From 8c653c16e4d86cbd7fab92d4688226db1646ed78 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Tue, 21 Sep 2010 11:10:09 +0200 Subject: panel/bevel: corrected the shadow color used in box/panel style --- src/gui/fpg_panel.pas | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/gui/fpg_panel.pas b/src/gui/fpg_panel.pas index b58b516d..1446283f 100644 --- a/src/gui/fpg_panel.pas +++ b/src/gui/fpg_panel.pas @@ -333,21 +333,24 @@ begin else Canvas.SetLineStyle(2, lsSolid); + { top } if FPanelBorder = bsSingle then Canvas.DrawLine(0, 0, Width - 1, 0) else Canvas.DrawLine(0, 1, Width - 1, 1); + { left } if FPanelBorder = bsSingle then Canvas.DrawLine(0, 1, 0, Height - 1) else Canvas.DrawLine(1, 1, 1, Height - 1); if Style = bsRaised then - Canvas.SetColor(clShadow2) + Canvas.SetColor(clShadow1) else Canvas.SetColor(clHilite2); + { right, then bottom } Canvas.DrawLine(Width - 1, 0, Width - 1, Height - 1); Canvas.DrawLine(0, Height - 1, Width, Height - 1); end; @@ -597,7 +600,7 @@ begin if Style = bsRaised then Canvas.SetColor(clHilite2) else - Canvas.SetColor(clShadow2); + Canvas.SetColor(clShadow1); if FPanelBorder = bsSingle then begin @@ -611,7 +614,7 @@ begin end; if Style = bsRaised then - Canvas.SetColor(clShadow2) + Canvas.SetColor(clShadow1) else Canvas.SetColor(clHilite2); -- cgit v1.2.3-70-g09d2