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