paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 22:36:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

statusbar does resizing itself upon receiving WM_SIZE message (fixes bug #603)

Browse Source 
git-svn-id: trunk@6819 -
This commit is contained in:
micha 2005-02-20 17:32:52 +00:00
parent 7aa4edbf74
commit 14132a2414
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/win32/win32wscomctrls.pp
View File

@ -51,6 +51,8 @@ type
class procedure PanelUpdate(const AStatusBar: TStatusBar; PanelIndex: integer); override;
class procedure SetPanelText(const AStatusBar: TStatusBar; PanelIndex: integer); override;
class procedure SetText(const AWinControl: TWinControl; const AText: string); override;
class procedure SetBounds(const AWinControl: TWinControl; const ALeft, ATop,
AWidth, AHeight: integer); override;
end;
{ TWin32WSTabSheet }
@ -299,11 +301,18 @@ begin
end;
end;
procedure TWin32WSStatusBar.SetText(const AWinControl: TWinControl; const AText: string);
procedure TWin32WSStatusBar.SetText(const AWinControl: TWinControl;
const AText: string);
begin
// inhibit. StatusBars do not have a caption, simpletext is set by SetPanelText
end;
procedure TWin32WSStatusBar.SetBounds(const AWinControl: TWinControl;
const ALeft, ATop, AWidth, AHeight: integer);
begin
// statusbars do their own resizing, post a size message to it's queue
Windows.PostMessage(AWinControl.Handle, WM_SIZE, 0, 0);
end;
{ TWin32WSCustomListView }