当前位置: 开源爱好者 » Delphi源码 » UI界面 » 详情页

Delphi 利用API绘制弧形

Delphi 利用API绘制弧形,
  begin
   ArcRect := ClientRect;
   Canvas.Pen.Width:=2;
   for i:=1 to 10 do
   begin
   Arc(Canvas.Handle,ArcRect.Left,ArcRect.Top,ArcRect.Right,
   ArcRect.Bottom,ArcRect.Right,(ArcRect.Bottom-ArcRect.Top) div 2,
   ArcRect.Left,(ArcRect.Bottom-ArcRect.Top) div 2);
   InflateRect(ArcRect,-2,-2);
   Canvas.Pen.Color := PaletteIndex(i+10);
   end;

Delphi 利用API绘制弧形测试效果图
源码包大小:5.90K
该源码已累计下载了:
相关Delphi源码:

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图