paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 19:35:57 +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

4
lcl/themes.pas
View File

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