laden und grösse anpassen und anzeigen in einer Paintbox.
Delphi-Quellcode:
var
Backbild: Tbitmap;
orginalbild: Tbitmap;
IF Opendialog1.execute then
begin
orginalbild := TBitmap.create;
orginalbild.loadfromfile(Opendialog1.filename);
Paintbox1.width := 800;
Paintbox1.heught := 600;
Backbild:= TBitmap.create;
Backbild.width := 800;
Backbild.height := 600;
Backbild.Canvas.StretchDraw(Rect(0, 0, Backbild.width , Backbild.height), orginalbild);
Paintbox1.canvas.draw(0,0,Backbild);
end;
Speichern:
Backbild.savetofile(c:\neuesbild.bmp)
im destruktor wieder freigeben:
Delphi-Quellcode:
Backbild.free;
orginalbild.free;
mfg