paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 01:59:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Remove a redundant test in TThemeServices.DrawElement.

Browse Source
This commit is contained in:
Juha 2023-04-29 17:17:58 +03:00
parent 77ae9452b9
commit bd40a6028e
1 changed files with 7 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/themes.pas
View File

@ -2115,16 +2115,13 @@ begin
teButton:
begin
ADrawFlags := DFCS_BUTTONPUSH;
if Details.Element = teButton then
begin
case Details.Part of
BP_RADIOBUTTON: ADrawFlags := DFCS_BUTTONRADIO;
BP_CHECKBOX:
if IsMixed(Details) then
ADrawFlags := DFCS_BUTTON3STATE
else
ADrawFlags := DFCS_BUTTONCHECK;
end;
case Details.Part of
BP_RADIOBUTTON: ADrawFlags := DFCS_BUTTONRADIO;
BP_CHECKBOX:
if IsMixed(Details) then
ADrawFlags := DFCS_BUTTON3STATE
else
ADrawFlags := DFCS_BUTTONCHECK;
end;
if IsDisabled(Details) then
@ -2135,7 +2132,6 @@ begin
ADrawFlags := ADrawFlags or DFCS_HOT;
if IsChecked(Details) or IsMixed(Details) then
ADrawFlags := ADrawFlags or DFCS_CHECKED;
WidgetSet.DrawFrameControl(DC, ARect, DFC_BUTTON, ADrawFlags);
end;
teHeader: