Picture2Bitmap

[turboPASCAL]

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

Auf Canvas bei TImage zeichnen

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;