---

procedure TForm1.Button1Click(Sender:TObject);
var
x,y:Integer;Bmp:TBitmap;
begin
bmp:=TBitmap.Create;
bmp.LoadFromFile('c:\windows\streifen.bmp');
for x:=0 to (image1.width div bmp.width) do
for y:=0 to (image1.height div bmp.height) do
Image1.Canvas.Draw(x*bmp.width,y*bmp.height,bmp);
bmp.Free;
end;

---

---

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.