paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-31 13:35:56 +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;
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