EIn picture im image öfter vorkommen lassen

[Dani]

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;