Inherits from
TForm
Demo-Program for TLMDAniClip
Press the right mousebutton at runtime to select the availabe options via
Popupmenu.
This program is freeware. Use it and enjoy!
If you made any improvements it would be nice to send them to us.
© 1995 by LMD Innovative
------------------------------------------------------------------
History:
0.01.00 (02.11.95): First Version
Author: RM
procedure Center1Click(Sender: TObject);
procedure Normal1Click(Sender: TObject);
procedure Play1Click(Sender: TObject);
procedure Stop1Click(Sender: TObject);
procedure Stretch1Click(Sender: TObject);
procedure Tile1Click(Sender: TObject);
procedure Transparent1Click(Sender: TObject);
Center1 : TMenuItem;
img : TLMDAniImage;
LMDAniPicClip2 : TLMDAniPicClip;
LMDTile1 : TLMDTile;
N1 : TMenuItem;
N2 : TMenuItem;
Normal1 : TMenuItem;
Play1 : TMenuItem;
PopupMenu1 : TPopupMenu;
Stop1 : TMenuItem;
Stretch1 : TMenuItem;
Tile1 : TMenuItem;
Transparent1 : TMenuItem;
procedure Center1Click(Sender: TObject);
procedure Normal1Click(Sender: TObject);
procedure Play1Click(Sender: TObject);
procedure Stop1Click(Sender: TObject);
procedure Stretch1Click(Sender: TObject);
procedure Tile1Click(Sender: TObject);
procedure Transparent1Click(Sender: TObject);
Center1 : TMenuItem;
img : TLMDAniImage;
LMDAniPicClip2 : TLMDAniPicClip;
LMDTile1 : TLMDTile;
N1 : TMenuItem;
N2 : TMenuItem;
Normal1 : TMenuItem;
Play1 : TMenuItem;
PopupMenu1 : TPopupMenu;
Stop1 : TMenuItem;
Stretch1 : TMenuItem;
Tile1 : TMenuItem;
Transparent1 : TMenuItem;