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...