diff options
Diffstat (limited to 'examples/gfx/subwindow/subwindow.pas')
-rw-r--r-- | examples/gfx/subwindow/subwindow.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/examples/gfx/subwindow/subwindow.pas b/examples/gfx/subwindow/subwindow.pas index d7d46640..c4b6527e 100644 --- a/examples/gfx/subwindow/subwindow.pas +++ b/examples/gfx/subwindow/subwindow.pas @@ -31,7 +31,7 @@ type TBoxWindow = class(TFWindow) public constructor Create(AParent: TFCustomWindow); - procedure Paint(Sender: TObject; const Rect: TRect); + procedure Paint(Sender: TObject); procedure MouseReleased(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint); end; @@ -41,7 +41,7 @@ type public ABox: TBoxWindow; constructor Create; - procedure Paint(Sender: TObject; const Rect: TRect); + procedure Paint(Sender: TObject); procedure MouseReleased(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint); end; @@ -62,7 +62,7 @@ begin WriteLn('Mouse released on child window'); end; -procedure TBoxWindow.Paint(Sender: TObject; const Rect: TRect); +procedure TBoxWindow.Paint(Sender: TObject); var r: TRect; tw: integer; @@ -94,7 +94,7 @@ begin ABox.Show; end; -procedure TMainWindow.Paint(Sender: TObject; const Rect: TRect); +procedure TMainWindow.Paint(Sender: TObject); var r: TRect; tw: integer; |