paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 19:01:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

customdrawn: Small frame3d color improvement

Browse Source 
git-svn-id: trunk@33994 -
This commit is contained in:
sekelsenmat 2011-12-06 13:43:30 +00:00
parent 83d025bb08
commit 72229752c8
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/customdrawn_common.pas
View File

@ -357,7 +357,7 @@ begin
// white lines in the left and top // white lines in the left and top
ADest.Pen.Style := psSolid; ADest.Pen.Style := psSolid;
ADest.Brush.Style := bsClear; ADest.Brush.Style := bsClear;
ADest.Pen.Color := WIN2000_FRAME_DARK_GRAY; ADest.Pen.Color := WIN2000_FRAME_GRAY;
ADest.MoveTo(ARect.Left, ARect.Bottom); ADest.MoveTo(ARect.Left, ARect.Bottom);
ADest.LineTo(ARect.Left, ARect.Top); ADest.LineTo(ARect.Left, ARect.Top);
ADest.LineTo(ARect.Right, ARect.Top); ADest.LineTo(ARect.Right, ARect.Top);
@ -377,7 +377,7 @@ begin
ADest.LineTo(ARect.Left, ARect.Top); ADest.LineTo(ARect.Left, ARect.Top);
ADest.LineTo(ARect.Right, ARect.Top); ADest.LineTo(ARect.Right, ARect.Top);
// Dark grey line on the right and bottom // Dark grey line on the right and bottom
ADest.Pen.Color := WIN2000_FRAME_DARK_GRAY; ADest.Pen.Color := WIN2000_FRAME_GRAY;
ADest.MoveTo(ARect.Left, ARect.Bottom); ADest.MoveTo(ARect.Left, ARect.Bottom);
ADest.LineTo(ARect.Right, ARect.Bottom); ADest.LineTo(ARect.Right, ARect.Bottom);
ADest.LineTo(ARect.Right, ARect.Top); ADest.LineTo(ARect.Right, ARect.Top);