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

LCL/LCLTaskDialog: Replace hard-coded rgb colors by system colors.

Browse Source
This commit is contained in:
wp_xyz 2022-09-21 22:04:22 +02:00
parent a4a24bc66b
commit f73bf85730
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lcltaskdialog.pas
View File

@ -716,7 +716,7 @@ begin
result.Font.Style := [fsBold] result.Font.Style := [fsBold]
end else begin end else begin
result.Font.Height := FontHeight-4; result.Font.Height := FontHeight-4;
result.Font.Color := $B00000; result.Font.Color := clHighlight;
end; end;
end else end else
result.Font.Height := FontHeight; result.Font.Height := FontHeight;
@ -872,7 +872,7 @@ begin
Panel.BorderStyle := bsNone; Panel.BorderStyle := bsNone;
Panel.BevelOuter := bvNone; Panel.BevelOuter := bvNone;
if not aEmulateClassicStyle then begin if not aEmulateClassicStyle then begin
Panel.Color := clWhite; Panel.Color := clWindow;
end; end;
Par := Panel; Par := Panel;
// handle main dialog icon // handle main dialog icon