diff options
author | sekelsenmat <sekelsenmat@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-12 19:07:43 +0000 |
---|---|---|
committer | sekelsenmat <sekelsenmat@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-12 19:07:43 +0000 |
commit | 08ea6967cba84ee641e74da4996aaf9a83da252b (patch) | |
tree | 4b00b3da32c21b2c852c90b811130799f08951fc /prototypes/newmultihandle | |
parent | 0f5d6e2c74166fa6fd452fd6193d711e8c38f601 (diff) | |
download | fpGUI-08ea6967cba84ee641e74da4996aaf9a83da252b.tar.xz |
Small fix to newmultihandle and fixed show on windows
Diffstat (limited to 'prototypes/newmultihandle')
-rw-r--r-- | prototypes/newmultihandle/gui_button.inc | 2 | ||||
-rw-r--r-- | prototypes/newmultihandle/gui_widget.inc | 15 |
2 files changed, 5 insertions, 12 deletions
diff --git a/prototypes/newmultihandle/gui_button.inc b/prototypes/newmultihandle/gui_button.inc index b12bbf8a..b70c5795 100644 --- a/prototypes/newmultihandle/gui_button.inc +++ b/prototypes/newmultihandle/gui_button.inc @@ -38,7 +38,7 @@ constructor TFButton.Create(ACaption: string; AParent: TFCustomWindow); begin Create(AParent); - DrawBackground := False; + FDrawBackground := False; Text := ACaption; end; diff --git a/prototypes/newmultihandle/gui_widget.inc b/prototypes/newmultihandle/gui_widget.inc index de7c5a3c..7f99d9d1 100644 --- a/prototypes/newmultihandle/gui_widget.inc +++ b/prototypes/newmultihandle/gui_widget.inc @@ -5,12 +5,11 @@ type TFWidget = class(TFWindow) protected - DrawBackground: Boolean; + FDrawBackground: Boolean; procedure EvPaint; override; public constructor Create(AParent: TFCustomWindow); virtual; -// procedure EvPaint; override; end; {$else} @@ -22,23 +21,17 @@ begin { Inherited components should set this to False, or the background will override their painting } - DrawBackground := True; + FDrawBackground := True; SetClientSize(Size(125, 125)); end; procedure TFWidget.EvPaint; -var - r: TRect; begin - if DrawBackground then + if FDrawBackground then begin Canvas.SetColor(colLtGray); - r.Left := 0; - r.Top := 0; - r.Right := Width; - r.Bottom := Height; - Canvas.FillRect(r); + Canvas.FillRect(Bounds(0, 0, Width, Height)); end; inherited EvPaint(); |