diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-12 10:38:01 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-12 10:38:01 +0000 |
| commit | 044cc998bbeefdb22cf57d89c4e7c14f5fbaa22f (patch) | |
| tree | 7101c4316742e3287c6b69af8108ac61a1b6574e /prototypes/fpgui2/source | |
| parent | 6c86bd08077f71e2eae0993df79fa094e8f1d079 (diff) | |
| download | fpGUI-044cc998bbeefdb22cf57d89c4e7c14f5fbaa22f.tar.xz | |
* Added a new Timer demo to the prototype fpgui2.
Diffstat (limited to 'prototypes/fpgui2/source')
| -rw-r--r-- | prototypes/fpgui2/source/core/gfx_widget.pas | 2 | ||||
| -rw-r--r-- | prototypes/fpgui2/source/gui/gui_form.pas | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/prototypes/fpgui2/source/core/gfx_widget.pas b/prototypes/fpgui2/source/core/gfx_widget.pas index f949c98c..34fa73af 100644 --- a/prototypes/fpgui2/source/core/gfx_widget.pas +++ b/prototypes/fpgui2/source/core/gfx_widget.pas @@ -75,7 +75,7 @@ type procedure MoveAndResizeBy(dx, dy, dw, dh: TfpgCoord); procedure SetPosition(aleft, atop, awidth, aheight: TfpgCoord); procedure RePaint; - + { property events } property OnPaint: TPaintEvent read FOnPaint write FOnPaint; property OnMouseExit: TNotifyEvent read FOnMouseExit write FOnMouseExit; property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter; diff --git a/prototypes/fpgui2/source/gui/gui_form.pas b/prototypes/fpgui2/source/gui/gui_form.pas index 67e14f3c..8dff1aad 100644 --- a/prototypes/fpgui2/source/gui/gui_form.pas +++ b/prototypes/fpgui2/source/gui/gui_form.pas @@ -44,7 +44,7 @@ type procedure AfterConstruction; override; procedure BeforeDestruction; override; public - constructor Create(aowner: TComponent); override; + constructor Create(AOwner: TComponent); override; procedure AfterCreate; virtual; procedure Show; procedure Hide; @@ -139,7 +139,7 @@ begin DoSetWindowTitle(FWindowTitle); end; -constructor TfpgForm.Create(aowner: TComponent); +constructor TfpgForm.Create(AOwner: TComponent); begin inherited; FWindowPosition := wpUser; |