...convert TGraphic descendant image to Bitmap?
Author: Ido Kanner
{
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