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

lcl: make checked non-hot non-themed toolbutton more windows like (not 100% similarity though)

Browse Source 
git-svn-id: trunk@15251 -
This commit is contained in:
paul 2008-05-27 06:58:54 +00:00
parent 35de6bcdec
commit 6e460c2b91
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/themes.pas
View File

@ -1839,7 +1839,7 @@ procedure TThemeServices.DrawElement(DC: HDC; Details: TThemedElementDetails; co
FillRect(DC, ARect, Brush); FillRect(DC, ARect, Brush);
DeleteObject(Brush); DeleteObject(Brush);
end; end;
var var
ADrawFlags: DWord; ADrawFlags: DWord;
Bevel: TGraphicsBevelCut; Bevel: TGraphicsBevelCut;
@ -1902,6 +1902,12 @@ begin
Bevel := bvNone; Bevel := bvNone;
Frame3D(DC, ARect, 1, Bevel); Frame3D(DC, ARect, 1, Bevel);
if IsChecked(Details) and not IsHot(Details) then
begin
InflateRect(ARect, -1, -1);
FillWithColor(ARect, clBtnHighlight);
end;
end; end;
TP_SPLITBUTTONDROPDOWN: TP_SPLITBUTTONDROPDOWN:
begin begin