Delphi 绘制艺术图案.rar

时间:2022-07-30 03:29:48
【文件属性】:

文件名称:Delphi 绘制艺术图案.rar

文件大小:6KB

文件格式:RAR

更新时间:2022-07-30 03:29:48

Delphi源码-图形处理

Delphi 绘制标准的艺术图案,是比较有规则的几何图案,如示例截图所示的样式 。   self.ClientHeight:=200;   self.ClientWidth:=200;   r:=self.ClientWidth/2;   Sect:=20;   for i:=0 to Sect-1 do   begin    x[i]:=Trunc(r*Cos(i*2*PI/Sect) self.ClientWidth/2);    y[i]:=Trunc(r*Sin(i*2*PI/Sect) self.ClientHeight /2);   end;


【文件预览】:
codesc.net
----绘制艺术图案()
--------Unit1.ddp(51B)
--------Project1.res(876B)
--------Unit1.dcu(5KB)
--------Unit1.dfm(374B)
--------Project1.cfg(358B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.pas(1KB)

网友评论