paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 11:16:22 +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: teButton:
begin begin
ADrawFlags := DFCS_BUTTONPUSH; ADrawFlags := DFCS_BUTTONPUSH;
if Details.Element = teButton then case Details.Part of
begin BP_RADIOBUTTON: ADrawFlags := DFCS_BUTTONRADIO;
case Details.Part of BP_CHECKBOX:
BP_RADIOBUTTON: ADrawFlags := DFCS_BUTTONRADIO; if IsMixed(Details) then
BP_CHECKBOX: ADrawFlags := DFCS_BUTTON3STATE
if IsMixed(Details) then else
ADrawFlags := DFCS_BUTTON3STATE ADrawFlags := DFCS_BUTTONCHECK;
else
ADrawFlags := DFCS_BUTTONCHECK;
end;
end; end;
if IsDisabled(Details) then if IsDisabled(Details) then
@ -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: