Delphi Inhalt von TImage gestreched speichern

Thema durchsuchen

Ansicht

Themen-Optionen

Inhalt von TImage gestreched speichern

Ein Thema von Delphi-Narr · begonnen am 14. Jul 2010 · letzter Beitrag vom 14. Jul 2010

Vorheriger Beitrag

Nächster Beitrag

brechi

Registriert seit: 30. Jan 2004
823 Beiträge

AW: Inhalt von TImage gestreched speichern

14. Jul 2010, 18:55

Falls mal über google gefunden:

zusammenfalten · markieren

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;