unit uTest;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ImgList;
type
TForm1 =
class(TForm)
Start: TButton;
FigurListe: TImageList;
Label1: TLabel;
Timer1: TTimer;
procedure StartClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
Bild : TBitmap ;
BildName :
string ;
i : integer ;
implementation
{$R *.dfm}
procedure TForm1.StartClick(Sender: TObject);
begin
for i := 1
to 2
do
begin
Bild.LoadFromFile(IntToStr(i) + '
.bmp');
Bild.Width := 840 ;
Bild.Height := 560 ;
FigurListe.Width := 840 ;
FigurListe.Height := 560 ;
FigurListe.Masked := false ;
FigurListe.Add(Bild,
nil)
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FigurListe.Free ;
Bild.Free ;
end;
end.