mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 13:50:06 +02:00
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:
parent
35de6bcdec
commit
6e460c2b91
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user