|
...convert TGraphic descendant image to Bitmap?
|
| Autor:
Ido Kanner |
| [ Print tip
] | | |
{
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;
|
