【文件属性】：
文件名称：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)