...convert TGraphic descendant image to Bitmap?

Author: Ido Kanner

Category: Graphic

{
This Demo Will convert Any type of TGraphic descendant to a TBitmap image...
Tested with TJPEGImage and Some of the GraphicEx library by Mike Lischke (http://www.delphi-gems.com).
}

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base