paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 00:30:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: mouse cursors are now allocated on demand

Browse Source 
git-svn-id: trunk@3581 -
This commit is contained in:
lazarus 2002-10-30 12:37:25 +00:00
parent a63aee24a3
commit 865f0767aa
1 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
examples/trackbar.pp
View File

@ -60,7 +60,6 @@ type
itmFileQuit: TMenuItem; itmFileQuit: TMenuItem;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
procedure LoadMainMenu; procedure LoadMainMenu;
Procedure FormKill(Sender : TObject);
procedure mnuQuitClicked(Sender : TObject); procedure mnuQuitClicked(Sender : TObject);
protected protected
procedure Button1CLick(Sender : TObject); procedure Button1CLick(Sender : TObject);
@ -159,19 +158,10 @@ begin
end; end;
end; end;
{------------------------------------------------------------------------------}
procedure TForm1.FormKill(Sender : TObject);
Begin
Application.terminate;
End;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
procedure TForm1.LoadMainMenu; procedure TForm1.LoadMainMenu;
begin begin
OnDestroy := @FormKill;
{ set the height and width } { set the height and width }
Height := 350; Height := 350;
Width := 700; Width := 700;
@ -310,6 +300,9 @@ begin
end. end.
{ {
$Log$ $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 Revision 1.5 2002/10/29 08:22:33 lazarus
MG: added interfaces unit MG: added interfaces unit