Graphic转换成Bitmap代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】 Graphic转换成Bitmap

作者:jellyvice / 发布于2013/12/3/ 933

procedure GraphicToBitmap(const Src: Graphics.TGraphic;
 const Dest: Graphics.TBitmap; const TransparentColor: Graphics.TColor);
begin
 // Do nothing if either source or destination are nil
 if not Assigned(Src) or not Assigned(Dest) then
  Exit;
 // Size the bitmap
 Dest.Width := Src.Width;
 Dest.Height := Src.Height;
 if Src.Transparent then
 begin
  // Source graphic is transparent, make bitmap behave transparently
  Dest.Transparent := True;
  if (TransparentColor <> Graphics.clNone) then
  begin
   // Set destination as transparent using required colour key
   Dest.TransparentColor := TransparentColor;
   Dest.TransparentMode := Graphics.tmFixed;
   // Set background colour of bitmap to transparent colour
   Dest.Canvas.Brush.Color := TransparentColor;
  end
  else
   // No transparent colour: set transparency to automatic
   Dest.TransparentMode := Graphics.tmAuto;
 end;
 // Clear bitmap to required background colour and draw bitmap
 Dest.Canvas.FillRect(Classes.Rect(0, 0, Dest.Width, Dest.Height));
 Dest.Canvas.Draw(0, 0, Src);
end;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　转换成Bitmap　

同语言下

可能有用的

jellyvice贡献的其它代码(28)