diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-05-04 00:05:13 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-05-04 00:05:13 +0200 |
commit | 9492ed66c005af908a015a154ddba64677e792ec (patch) | |
tree | 67e9f157560bb361aeaa51533240a1de4c8adc89 /src | |
parent | 383cea0c26d905b1f4397da114a8b8b43ca48f28 (diff) | |
download | fpGUI-9492ed66c005af908a015a154ddba64677e792ec.tar.xz |
Prototype style: implemented cuPushButtonLabel
This fpg_style prototype unit should really be removed. I don't like the
code at all, and it isn't actually used in any of the GUI widgets yet.
Diffstat (limited to 'src')
-rw-r--r-- | src/gui/fpg_style.pas | 31 |
1 files changed, 30 insertions, 1 deletions
diff --git a/src/gui/fpg_style.pas b/src/gui/fpg_style.pas index 615ec397..c13f16c8 100644 --- a/src/gui/fpg_style.pas +++ b/src/gui/fpg_style.pas @@ -205,6 +205,9 @@ type implementation +uses + fpg_button + ; { TfpgCommonStyle } @@ -212,6 +215,8 @@ procedure TfpgCommonStyle.DrawControl(element: TfpgControlElement; const option: TfpgStyleOption; canvas: TfpgCanvas; widget: TfpgWidget); var r: TfpgRect; + dx, dy: integer; + offset: integer; begin // Do common things here case element of @@ -272,7 +277,28 @@ begin Canvas.SetColor(clShadow1); Canvas.DrawLine(r.Right-1, r.Top+1, r.Right-1, r.Bottom-1); // right Canvas.DrawLine(r.Right-1, r.Bottom-1, r.Left, r.Bottom-1); // bottom - end { cePushButtonBevel } + end; { cePushButtonBevel } + + cePushButtonLabel: + begin + {$IFDEF DEBUG} + writeln('TfpgCommonStyle.DrawControl: cePushButtonLabel'); + {$ENDIF} + r.SetRect(option.Rect.Left, option.Rect.Top, option.Rect.Width, option.Rect.Height); +// InflateRect(r, -3, -3); { same size as used in the focus rectangle } + + Canvas.SetTextColor(TfpgButton(widget).TextColor); + Canvas.SetFont(TfpgButton(widget).Font); + Canvas.SetClipRect(r); + +// if stLowered in TfpgButtonStyleOption(option).State then +// offset := 1 +// else +// offset := 0; + + Canvas.DrawText(r, TfpgButton(widget).Text); +// Canvas.DrawString(tx+offset, ty+offset, Text, Enabled); + end; { cePushButtonLabel } end; end; @@ -280,6 +306,9 @@ procedure TfpgCommonStyle.DrawPrimitive(element: TfpgPrimitiveElement; const option: TfpgStyleOption; canvas: TfpgCanvas; widget: TfpgWidget); var r: TfpgRect; + oldColor: TfpgColor; + oldLineWidth: integer; + oldLineStyle: TfpgLineStyle; begin // Do common things here. It's going to be a huge case statement. This design // allows us to add new controls or elements without having to instantly |