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

Qt: fixed crash if stylesheet is used.

Browse Source 
git-svn-id: trunk@44927 -
This commit is contained in:
zeljko 2014-05-05 14:19:21 +00:00
parent 46d144081e
commit 805a4e6542
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -201,13 +201,13 @@ begin
// we must recalculate aclientrect since we have pending resize event
// and clientrect won't be accurate.issue #21805
Result := True;
dx := GetPixelMetric(QStylePM_DefaultFrameWidth, nil, nil);
dx := GetPixelMetric(QStylePM_DefaultFrameWidth, nil, ATabWidget.Widget);
// HSpace := GetPixelMetric(QStylePM_TabBarTabHSpace, nil, nil);
VSpace := GetPixelMetric(QStylePM_TabBarTabVSpace, nil, nil);
Overlap := GetPixelMetric(QStylePM_TabBarBaseOverlap, nil, nil);
TabOverLap := GetPixelMetric(QStylePM_TabBarTabOverlap, nil, nil);
BaseHeight := GetPixelMetric(QStylePM_TabBarBaseHeight, nil, nil);
ShiftVertical := GetPixelMetric(QStylePM_TabBarTabShiftVertical, nil, nil);
VSpace := GetPixelMetric(QStylePM_TabBarTabVSpace, nil, ATabWidget.Widget);
Overlap := GetPixelMetric(QStylePM_TabBarBaseOverlap, nil, ATabWidget.Widget);
TabOverLap := GetPixelMetric(QStylePM_TabBarTabOverlap, nil, ATabWidget.Widget);
BaseHeight := GetPixelMetric(QStylePM_TabBarBaseHeight, nil, ATabWidget.Widget);
ShiftVertical := GetPixelMetric(QStylePM_TabBarTabShiftVertical, nil, ATabWidget.Widget);
// trigger sizing, do not remove
ATabWidget.TabBar.sizeHint(@ASize);