Mega Code Archive

 

Categories / Delphi / Graphic

 

Convert TGraphic descendant image to Bitmap

Title: convert TGraphic descendant image to Bitmap? { 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;