Hi,
versuch's doch mal so:
Delphi-Quellcode:
procedure TForm1.DrawStein(sx,sy: integer);
var
x,y: integer;
Rect: TRect;
begin
with Spielfeld do
begin
Rect:=CellRect(sx,sy);
x:=Rect.Left;
y:=Rect.Top;
ImageList1.Draw(canvas,x,y,Feld[sx,sy]);
end;
end;
Dein Bild legst du einfach in einer ImageList ab.
Feld[x,y] ist dein Bild-Index! Allerdings solltest du dein Bild in ein Bitmap wandeln...
[edit=FuckRacism]Delphi-Syntax hinzugefügt. Mfg, FuckRacism[/edit]