Hallo ich möchte aus vielen kleinen 100Pixeln großen Bildern eine gesammte Karte erstellen ... nur dass die Karte nachher ziehmlich groß wird. Ich möchte deshalb die Bilder noch verkleinern, z.B. auf 70Pixel. Da dabei die Quallität eher weniger eine Rolle spiel, aber das ganze möglichst schnell gehen soll, habe ich es mit StretchDraw probiert.
Aber die größer der Bilder verändert sich nicht.
Was mach ich falsch?!
Delphi-Quellcode:
procedure TForm5.FormShow(Sender: TObject);
VAR
a,b : INTEGER;
Bild :TBitmap;
begin
Karte.Picture.Bitmap.Height := unit1.YLENTH * 70;
Karte.Picture.Bitmap.Width := unit1.XLENTH * 70;
Karte.Picture.Bitmap.PixelFormat := pf32bit;
Bild := TBitmap.Create;
for a := 0 TO XLENTH-1 DO
BEGIN
for b := 0 to YLENTH-1 DO
BEGIN
Bild.Assign(Form2.getPicture(unit1.gkarte[a,b]).Graphic);
Bild.Canvas.StretchDraw(Rect(0, 0, 70, 70),Bild);
Karte.Picture.Bitmap.Canvas.Draw(b*70,a*70,Bild);
END;
END;
Bild.Free;
end;
gruß
Evian