diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-21 11:10:09 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-21 11:10:09 +0200 |
| commit | 8c653c16e4d86cbd7fab92d4688226db1646ed78 (patch) | |
| tree | 93214ab89347b6d3cb11faf52bc5b504a1d48b4f /src | |
| parent | b1d8c09916ae753b9df0954d9a995d16fd4b2232 (diff) | |
| download | fpGUI-8c653c16e4d86cbd7fab92d4688226db1646ed78.tar.xz | |
panel/bevel: corrected the shadow color used in box/panel style
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/fpg_panel.pas | 9 |
1 files changed, 6 insertions, 3 deletions
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); |