Delphi 渐变的RGB空心色环绘制源码演示
代码说明:
Delphi渐变圆形的实现方法,RGB色环空心绘制演示源码: oBmp := TBitmap.Create; //为了代码整齐就不写try了 oBmp.PixelFormat := ABitmap.PixelFormat; oBmp.Width := ABitmap.Width; oBmp.Height := ABitmap.Height; BitBlt(oBmp.Canvas.Handle, 0, 0, oBmp.Width, oBmp.Height, ABitmap.Canvas.Handle, 80, 80, SRCCOPY); //要拷贝的位图 oRgn := CreateEllipticRgn(0, 0, 100, 100); //创建圆形区域 SelectClipRgn(ABitmap.Canvas.Handle, oRgn); //选择剪切区域 ABitmap.Canvas.Draw(0, 0, oBmp); //位图位于区域内的部分加载
下载说明:请别用迅雷下载,失败请重下,重下不扣分!