Thema: Delphi Problem mit ImageList

Einzelnen Beitrag anzeigen

Benutzerbild von LoW_FloW
LoW_FloW

Registriert seit: 29. Nov 2003
117 Beiträge
 
Delphi 7 Professional
 
#1

Problem mit ImageList

  Alt 21. Feb 2004, 11:22
Ich habe ein Problem mit der ImageList. Ich will Bilder in die Liste laden. Bin ein ziemlicher n00b und habe zuvor auch nix mit ImageListen gemacht .
Hier der Source :
Delphi-Quellcode:
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.
Ich hoffe, mir kann jemand helfen, das wäre wirklich
  Mit Zitat antworten Zitat