|
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
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;
|