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

Qt: fixed TPageControl ActivePageIndex.issue #24972

Browse Source 
git-svn-id: trunk@42677 -
This commit is contained in:
zeljko 2013-09-08 10:52:50 +00:00
parent a21b56c554
commit 1ceaecab57
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/qt/qtpagecontrol.inc
View File

@ -47,6 +47,19 @@ begin
{$endif}
end;
class procedure TQtWSCustomPage.DestroyHandle(const AWinControl: TWinControl);
var
B: Boolean;
begin
B := Assigned(AWinControl.Parent) and (AWinControl.Parent is TPageControl) and
AWinControl.Parent.HandleAllocated;
if B then
TQtWidget(AWinControl.Parent.Handle).BeginUpdate;
TQtWidget(AWinControl.Handle).Release;
if B then
TQtWidget(AWinControl.Parent.Handle).EndUpdate;
end;
class procedure TQtWSCustomPage.UpdateTabFontColor(APage: TCustomPage; AFont: TFont);
var
AParent: TQtWidget;

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

@ -41,6 +41,7 @@ type
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle; override;
class procedure DestroyHandle(const AWinControl: TWinControl); override;
class procedure SetFont(const AWinControl: TWinControl; const AFont: TFont); override;
class procedure UpdateProperties(const ACustomPage: TCustomPage); override;
end;