TBitmap verkleinern

**Blackheart**

Hallo Leute
Ich erzeuge ein Hintergrundbild setze ein zweites Bild in die Mitte
das klappt soweit.
Nun möchte ich das ganze in einer bestimmten größe speichern (100x100)
Hat da jemand einen Tipp für Mich wie das am einfachsten geht.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button2Click(Sender: TObject);

var

 bmpGross, bmpKlein:TBitmap;

begin

  bmpGross:=TBitmap.Create;

  bmpKlein:=TBitmap.Create;

  bmpKlein.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bildklein.bmp');

  bmpGross.Width:=600;

  bmpGross.Height:=600;

  bmpGross.Canvas.Brush.Color:=clYellow;

  bmpGross.Canvas.FillRect(Rect(0,0,600,600));

  bmpGross.Canvas.Draw(bmpGross.Width div 2 - bmpKlein.Width div 2, bmpGross.Height div 2 - bmpKlein.height div 2, bmpKlein);

  bmpGross.SaveToFile(ExtractFilePath(ParamStr(0)) + 'BildNeu.bmp');

  bmpGross.Free;

  bmpKlein.Free;

end;

TBitmap verkleinern

TBitmap verkleinern

Forumregeln