summaryrefslogtreecommitdiff
path: root/prototypes/newmultihandle
diff options
context:
space:
mode:
authorsekelsenmat <sekelsenmat@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-07-12 19:07:43 +0000
committersekelsenmat <sekelsenmat@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-07-12 19:07:43 +0000
commit08ea6967cba84ee641e74da4996aaf9a83da252b (patch)
tree4b00b3da32c21b2c852c90b811130799f08951fc /prototypes/newmultihandle
parent0f5d6e2c74166fa6fd452fd6193d711e8c38f601 (diff)
downloadfpGUI-08ea6967cba84ee641e74da4996aaf9a83da252b.tar.xz
Small fix to newmultihandle and fixed show on windows
Diffstat (limited to 'prototypes/newmultihandle')
-rw-r--r--prototypes/newmultihandle/gui_button.inc2
-rw-r--r--prototypes/newmultihandle/gui_widget.inc15
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();