文件名称: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)