From 865f0767aa651fbbd0d93127a8dd61856bab6da9 Mon Sep 17 00:00:00 2001 From: lazarus Date: Wed, 30 Oct 2002 12:37:25 +0000 Subject: [PATCH] MG: mouse cursors are now allocated on demand git-svn-id: trunk@3581 - --- examples/trackbar.pp | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) diff --git a/examples/trackbar.pp b/examples/trackbar.pp index 70e1b84068..c60baf2aeb 100644 --- a/examples/trackbar.pp +++ b/examples/trackbar.pp @@ -60,7 +60,6 @@ type itmFileQuit: TMenuItem; constructor Create(AOwner: TComponent); override; procedure LoadMainMenu; - Procedure FormKill(Sender : TObject); procedure mnuQuitClicked(Sender : TObject); protected procedure Button1CLick(Sender : TObject); @@ -159,19 +158,10 @@ begin end; end; -{------------------------------------------------------------------------------} - -procedure TForm1.FormKill(Sender : TObject); -Begin - Application.terminate; -End; - {------------------------------------------------------------------------------} procedure TForm1.LoadMainMenu; begin - OnDestroy := @FormKill; - { set the height and width } Height := 350; Width := 700; @@ -310,6 +300,9 @@ begin end. { $Log$ + Revision 1.6 2002/10/30 12:37:25 lazarus + MG: mouse cursors are now allocated on demand + Revision 1.5 2002/10/29 08:22:33 lazarus MG: added interfaces unit