Category: Graphic
Title: Convert TGraphic descendant image to Bitmap
Date added: 15.03.2006
Hits: 1748
procedure ConvertToBitmap(Source : TGraphic; Bitmap : TBitmap);
begin
if Bitmap = nil
then
Bitmap := TBitmap.Create
else Bitmap.FreeImage;
Bitmap.Width := Source.Width;
Bitmap.Height := Source.Height;
Bitmap.Canvas.Draw(0,0,Source);
end;