Bild auf TImage kacheln?

[s.h.a.r.k]

Zitat von himitsu:

aber Besser wäre es so

Delphi-Quellcode:

procedure TForm1.Form1Create(Sender: TObject);
begin
  img := TJPEGImage.Create;
  img.LoadFromFile('back.jpg');
end;

procedure TForm1.Form1Destroy(Sender: TObject);
begin
  img.Free;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to PaintBox1.Width div img.Width - 1 do
    PaintBox1.Canvas.Draw(img.Width * I, 0, img);
end;

Wieso das denn? So muss ich ja eine "globale" Varibale in der Klasse halten, die erst gegen Ende freigegeben wird. Ich würde es noch verstehe, wenn das Image mehrfach im Code verwendet werden würde, was es aber nicht wird.

PS: Über TImage und kacheln bin ich auf den Thread gestoßen es gab nur zwei Treffer: timage kacheln