paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-25 13:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: use cl3DHilight and cl3DShadow instead of clWhite and clGray to match theme coloring better (bug #8519) from Valdas

Browse Source 
git-svn-id: trunk@10760 -
This commit is contained in:
vincents 2007-03-17 21:12:01 +00:00
parent bf8330872a
commit 597ac330fc
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/bevel.inc
View File

@ -81,13 +81,13 @@ Begin
Case Style Of
bsRaised:
Begin
Colora:=clWhite;
Colorb:=clGray;
Colora:=cl3DHilight;
Colorb:=cl3DShadow;
End;
bsLowered:
Begin
Colora:=clGray;
Colorb:=clWhite;
Colora:=cl3DShadow;
Colorb:=cl3DHilight;
End;
End;
Canvas.Pen.Width:=1;