Bild auf TImage kacheln?

[ryLIX]

Gibt es eine Möglichkeit ein Bild auf einem TImage zu kacheln?
Hab schon einiges Probiert aber das gibt nicht den gewünschten Effekt.

[s.h.a.r.k]

guckst du hier

[ryLIX]

Hmm repeat -.- ich hab nach kacheln gesucht wie ein doofer ...

Jetzt ist folgendes:
PaintBox1 ist alTop und im OnPaint zeichne ich den Hintergrund:

Delphi-Quellcode:

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  img: TJPEGImage;
  Count, I, X, Y : Integer;
begin
  img := TJPEGImage.Create;
  img.LoadFromFile('back.jpg');
  Count := round(PaintBox1.Width / img.Width);
  for I := 0 to Count do
  begin
    X := PaintBox1.Left + round(img.Width * I);
    Y := PaintBox1.Top;
    PaintBox1.Canvas.Draw(X, Y, img);
  end;
  img.Free;
end;

Aber kein Bild O.o die Zeichenfläche bleibt einfach leer...

Mit dem gleichen Code habe ich sonst Bilder auf Panels gekachelt.
Aber leider Ignorieren Controls mit Tranzparenz Panels im Hintergrund...

[himitsu]

X und Y werden relativ zur Paintbox gesehn, also benötigt man hier kein Offset.

Delphi-Quellcode:

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  img: TJPEGImage;
  I: Integer;
begin
  img := TJPEGImage.Create;
  try
    img.LoadFromFile('back.jpg');
    for I := 0 to PaintBox1.Width div img.Width - 1 do
      PaintBox1.Canvas.Draw(img.Width * I, 0, img);
  finally
    img.Free;
  end;
end;

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;

[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

[Matze]

Zitat von s.h.a.r.k:

Wieso das denn?

Damit nicht bei jedem OnPaint-Ereignis das Image erzeugt und das JPG-Bild geladen werden muss. Das OnPaint-Ereignis wird nicht nur einmalig aufgerufen.

[ryLIX]

Ok jetzt klappts.
Vielen dank für eure Hilfe.