Registriert seit: 30. Jan 2004
823 Beiträge
|
AW: Inhalt von TImage gestreched speichern
14. Jul 2010, 19:55
Falls mal über google gefunden:
Delphi-Quellcode:
var
bmp: TBitmap;
begin
bmp := TBitmap.Create;
try
bmp.Width := Image1.width;
bmp.height := Image1.Height;
bmp.canvas.StretchDraw(Rect(0,0,Bmp.Width, bmp.Height), image1.Picture.Graphic);
bmp.SaveToFile('F:\test.bmp');
finally
FreeAndNil(bmp);
end;
end;
|