Graphics To Bitmap

procedure GraphicToBitmap(const Src: Graphics.TGraphic;

const Dest: Graphics.TBitmap; const TransparentColor: Graphics.TColor);

begin

if not Assigned(Src) or not Assigned(Dest) then

Exit;

Dest.Width := Src.Width;

Dest.Height := Src.Height;

if Src.Transparent then

begin

Dest.Transparent := True;

if (TransparentColor <> Graphics.clNone) then

begin

Dest.TransparentColor := TransparentColor;

Dest.TransparentMode := Graphics.tmFixed;

Dest.Canvas.Brush.Color := TransparentColor;

end

else

Dest.TransparentMode := Graphics.tmAuto;

end;

Dest.Canvas.FillRect(Classes.Rect(0, 0, Dest.Width, Dest.Height));

Dest.Canvas.Draw(0, 0, Src);

end;