paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 07:00:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

statusbar: implement SizeGrip for qt

Browse Source 
git-svn-id: trunk@14592 -
This commit is contained in:
paul 2008-03-20 07:32:19 +00:00
parent 9642488f11
commit c11b2c957b
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/qt/qtwscomctrls.pp
View File

@ -52,6 +52,7 @@ type
class procedure DestroyHandle(const AWinControl: TWinControl); override;
class procedure PanelUpdate(const AStatusBar: TStatusBar; PanelIndex: integer); override;
class procedure SetPanelText(const AStatusBar: TStatusBar; PanelIndex: integer); override;
class procedure SetSizeGrip(const AStatusBar: TStatusBar; SizeGrip: Boolean); override;
class procedure Update(const AStatusBar: TStatusBar); override;
end;
@ -516,8 +517,6 @@ begin
TQtMainWindow(Parent).StatusBar := QtStatusBar;
TQtMainWindow(Parent).setStatusBar(QStatusBarH(QtStatusBar.Widget));
end;
// dont allow resize if parent is not form
QtStatusBar.setSizeGripEnabled(AControl.Parent is TCustomForm);
end;
class function TQtWSStatusBar.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle;
@ -526,6 +525,7 @@ var
QtStatusBar: TQtStatusBar;
begin
QtStatusBar := TQtStatusBar.Create(AWinControl, AParams);
QtStatusBar.setSizeGripEnabled(TStatusBar(AWinControl).SizeGrip and TStatusBar(AWinControl).SizeGripEnabled);
RecreatePanels(TStatusBar(AWinControl), QtStatusBar);
@ -602,6 +602,17 @@ begin
end;
end;
class procedure TQtWSStatusBar.SetSizeGrip(const AStatusBar: TStatusBar;
SizeGrip: Boolean);
var
QtStatusBar: TQtStatusBar;
begin
if not WSCheckHandleAllocated(AStatusBar, 'SetSizeGrip') then
Exit;
QtStatusBar := TQtStatusBar(AStatusBar.Handle);
QtStatusBar.setSizeGripEnabled(SizeGrip and AStatusBar.SizeGripEnabled);
end;
class procedure TQtWSStatusBar.Update(const AStatusBar: TStatusBar);
var
QtStatusBar: TQtStatusBar;