paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 19:39:18 +02: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]
end else begin
result.Font.Height := FontHeight-4;
result.Font.Color := $B00000;
result.Font.Color := clHighlight;
end;
end else
result.Font.Height := FontHeight;
@ -872,7 +872,7 @@ begin
Panel.BorderStyle := bsNone;
Panel.BevelOuter := bvNone;
if not aEmulateClassicStyle then begin
Panel.Color := clWhite;
Panel.Color := clWindow;
end;
Par := Panel;
// handle main dialog icon