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

git-svn-id: trunk@15251 -
This commit is contained in:
paul 2008-05-27 06:58:54 +00:00
parent 35de6bcdec
commit 6e460c2b91

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