Hi,
kacheln musst du das Bild "manuell", z.B. im OnCreate des Formulars. Da Änderungen an TImage.Canvas ausahmsweise permanent sind, könntest du es z.B. so machen:
Delphi-Quellcode:
var tmpBMP: TBitmap;
i,j: Integer;
begin
tmpBMP := TBitmap.Create;
try
tmpBMP.LoadFromFile('C:\kachel.bmp');
for i:=0 to (Image1.Width div tmpBMP.Width) do
for j:=0 to (Image1.Height div tmpBMP.Height) do
begin
Image1.Canvas.Draw(i * tmpBMP.Width, j * tmpBMP.Height, tmpBMP);
end;
finally
tmpBMP.Free;
end;
end;
Dani H.
At Least I Can Say I Tried