mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Dark mode - paint hot checkbox and radiobutton

Browse source
This commit is contained in:
Alexander Koblov 2022-05-11 21:18:44 +03:00
commit fa96f7b026
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/platform/win/uwin32widgetsetdark.pas
View file

@ -1372,7 +1372,11 @@ begin
LCanvas.TextRect(pRect, 0, 0, MDL_CHECKBOX_FILLED, AStyle);
// Draw checkbox border
LCanvas.Font.Color:= RGBToColor(192, 192, 192);
if iStateId in [CBS_UNCHECKEDHOT, CBS_MIXEDHOT, CBS_CHECKEDHOT] then
LCanvas.Font.Color:= SysColor[COLOR_HIGHLIGHT]
else begin
LCanvas.Font.Color:= RGBToColor(192, 192, 192);
end;
LCanvas.TextRect(pRect, 0, 0, MDL_CHECKBOX_OUTLINE, AStyle);
// Draw checkbox state
@ -1427,6 +1431,8 @@ begin
// Set outline circle color
if iStateId in [RBS_UNCHECKEDPRESSED, RBS_CHECKEDPRESSED] then
LCanvas.Font.Color:= RGBToColor(83, 160, 237)
else if iStateId in [RBS_UNCHECKEDHOT, RBS_CHECKEDHOT] then
LCanvas.Font.Color:= SysColor[COLOR_HIGHLIGHT]
else begin
LCanvas.Font.Color:= RGBToColor(192, 192, 192);
end;