Ich habe den Crashkurs jetzt gelesen und außerdem der Klasse die Eigenschaften ImageTop und ImageLeft hinzugefügt:
Delphi-Quellcode:
TBild = Class
private
FImageContent: TBitmap;
FImageHeight: Integer;
FImageName: string;
FImageWidth: Integer;
FImageTop: Integer;
FImageLeft: Integer;
public
property ImageName: string read FImageName write FImageName;
property ImageContent: TBitmap read FImageContent write FImageContent;
property ImageHeight: Integer read FImageHeight write FImageHeight;
property ImageWidth: Integer read FImageWidth write FImageWidth;
property ImageTop: Integer read FImageTop write FImageTop;
property ImageLeft: Integer read FImageLeft write FImageLeft;
End;
Außerdem habe ich in einer Procedure den Eigenschaften verschiedene Werte zugewiesen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var Test:TBild;
begin
Key:='Feld'+IntToStr(Feldx)+','+IntToStr(Feldy);
Test:=TBild.Create;
Test.FImageName:=Key;
Test.FImageHeight:=Feldsize;
Test.FImageWidth:=Feldsize;
Imagelist1.GetBitmap(0,Test.FImageContent);
end;
Feldx und Feldy sind Variablen zur bestimmeug der Position des Feldes, Feldsize ist die Konstante die die Größe der Felder festlegt.
Wie kombiniere ich das jetzt mit der TObjectlist?