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

Qt: qtthemes - when toolbar is flat, then make toolbar buttons also flat.

Browse Source 
git-svn-id: trunk@16659 -
This commit is contained in:
zeljko 2008-09-19 21:31:42 +00:00
parent fd0b43824d
commit 160b31e9dc
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -272,6 +272,11 @@ begin
Result := Result or QStyleState_NoChange; Result := Result or QStyleState_NoChange;
// specific states // specific states
{when toolbar = flat, toolbar buttons should be flat too.}
if (Details.Element = teToolBar) and
(Details.Part = TP_BUTTON) and
(Details.State = TS_NORMAL) then
Result := QStyleState_AutoRaise;
// define orientations // define orientations
if ((Details.Element = teRebar) and (Details.Part = RP_GRIPPER)) or if ((Details.Element = teRebar) and (Details.Part = RP_GRIPPER)) or