diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-03-24 00:17:04 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-03-24 00:17:04 +0200 |
commit | 870f82d1208adcc0e5aae744196c0cf64976e8f1 (patch) | |
tree | 9d8a1fcb989ad0c0b704859199c39d2d77135387 /src/gui | |
parent | b3f574e2794b96dfc2affc534e0162105635bc7c (diff) | |
download | fpGUI-870f82d1208adcc0e5aae744196c0cf64976e8f1.tar.xz |
tabs: Implemented left and right tab drawing in DrawTab() method.
This is only visual painting, no user interaction yet. This is also
just the initial painting - it needs some more tweaking before it
is 100% correct.
Diffstat (limited to 'src/gui')
-rw-r--r-- | src/gui/fpg_tab.pas | 47 |
1 files changed, 46 insertions, 1 deletions
diff --git a/src/gui/fpg_tab.pas b/src/gui/fpg_tab.pas index 74c6e354..92f76750 100644 --- a/src/gui/fpg_tab.pas +++ b/src/gui/fpg_tab.pas @@ -522,8 +522,53 @@ begin Canvas.SetColor(clShadow2); Canvas.DrawLine(r.Right-1, r.Bottom-1, r.Right, r.Bottom-2); // right rounded edge (1px) Canvas.DrawLine(r.Right, r.Bottom-2, r.Right, r.Top+1); // right outer edge - Canvas.SetColor(clRed); end; + + tpLeft: + begin + if Mode = 2 then + begin + r.Width := r.Width - 1; + r.Height:=r.Height+2; + end; + with Canvas do + begin + FillRectangle(r.Left, r.Top, r.Width, r.Height-2); + SetColor(clHilite2); + DrawLine(r.Left, r.Bottom-2, r.Left, r.Top+2); + DrawLine(r.Left, r.Top+2, r.Left+2, r.Top); + DrawLine(r.Left+2, r.Top, r.Right-1, r.Top); + SetColor(clShadow1); + DrawLine(r.Left+2, r.Bottom-1, r.Right-1, r.Bottom-1); + SetColor(clShadow2); + DrawLine(r.Left+1, r.Bottom-1, r.Left+3, r.Bottom); + DrawLine(r.Left+2, r.Bottom, r.Right, r.Bottom); + end; + end; + + tpRight: + begin + if Mode = 2 then + begin + r.Width:= r.Width + 1; + r.Height:=r.Height+2; + end; + With Canvas do + begin + FillRectangle(r.Left, r.Top, r.Width, r.Height-2); + SetColor(clHilite2); + DrawLine(r.Left+1, r.Top, r.Right-2, r.Top); + SetColor(clShadow1); + DrawLine(r.Right-2,r.Top,r.Right-1,r.Top+1); + DrawLine(r.Left+2, r.Bottom-1, r.Right-2, r.Bottom-1); + DrawLine(r.Right-3, r.Bottom-1, r.Right-1, r.Bottom-3); + DrawLine(r.Right-1, r.Bottom-3, r.Right-1, r.Top); + SetColor(clShadow2); + DrawLine(r.Left+2,r.Bottom,r.Right-3, r.Bottom); + DrawLine(r.Right-3, r.Bottom, r.Right, r.Bottom-3); + DrawLine(r.Right, r.Top+2, r.Right, r.Bottom-2); + end; + end; end; end; |