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

Qt,Qt5: removed dropdown button metrics, use themes.

Browse Source 
git-svn-id: trunk@54143 -
This commit is contained in:
zeljko 2017-02-12 13:36:13 +00:00
parent cd35ca39a6
commit 7af8c77037
2 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt/qtthemes.pas
View File

@ -867,15 +867,13 @@ begin
inc(Result.cx); inc(Result.cx);
inc(Result.cy); inc(Result.cy);
end; end;
{$IFDEF LINUX} // fix tbsButtonDrop arrow outside button bounds
teToolBar: teToolBar:
if (Details.Part = TP_DROPDOWNBUTTON) then if (Details.Part = TP_DROPDOWNBUTTON) or (Details.Part = TP_SPLITBUTTONDROPDOWN) then
begin begin
Result.cy := -1; Result.cy := -1;
Result.cx := 14; Result.cx := QStyle_pixelMetric(Style, QStylePM_MenuButtonIndicator, nil, nil);
end else end else
Result := inherited; Result := inherited;
{$ENDIF}
else else
Result := inherited; Result := inherited;
end; end;

6
lcl/interfaces/qt5/qtthemes.pas
View File

@ -865,15 +865,13 @@ begin
inc(Result.cx); inc(Result.cx);
inc(Result.cy); inc(Result.cy);
end; end;
{$IFDEF LINUX} // fix tbsButtonDrop arrow outside button bounds
teToolBar: teToolBar:
if (Details.Part = TP_DROPDOWNBUTTON) then if (Details.Part = TP_DROPDOWNBUTTON) or (Details.Part = TP_SPLITBUTTONDROPDOWN) then
begin begin
Result.cy := -1; Result.cy := -1;
Result.cx := 14; Result.cx := QStyle_pixelMetric(Style, QStylePM_MenuButtonIndicator, nil, nil);
end else end else
Result := inherited; Result := inherited;
{$ENDIF}
else else
Result := inherited; Result := inherited;
end; end;