Delphi Picture2Bitmap - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Picture2Bitmap

Ein Thema von backdraft · begonnen am 30. Aug 2006 · letzter Beitrag vom 1. Okt 2006

Antwort

turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge

Delphi 6 Personal

Re: Picture2Bitmap

1. Okt 2006, 06:52

Das Thema "Picture2Bitmap" hatten wir schon mal. Das umwandeln auch.

Auf Canvas bei TImage zeichnen

zusammenfalten · markieren

Delphi-Quellcode:

			procedure ConvertImageToBitmap(Image: TImage);

var TmpPic: TPicture;

begin

  TmpPic := TPicture.Create;

  try

    TmpPic.Bitmap.Assign(Image.Picture.Graphic);

    Image.Picture.Bitmap.Assign(TmpPic.Bitmap);

  finally

    TmpPic.Free;

  end;

end;