【文件属性】：
文件名称：Delphi Canvas生成万花筒特效.rar
文件大小：7KB
文件格式：RAR
更新时间：2022-07-30 11:22:06
Delphi源码-图形处理
Delphi Canvas生成万花筒特效，是由一个个单体的圆形经过变换生成的，单体的圆形的定义代码，可参考下边的代码：
Form1: TForm1;
R1,R2,Syn:integer; //R1大圆半径,R2小圆半径；Syn为小圆上的任意一点到圆心距离
Xr,Yr,W,H:integer;
//Xr,Yr为小圆上一点座标,W,H大圆圆心座标
a1,a2:Real;//a1定义为大圆角度，a2定义为小圆角度
pi : real=3.1415926;
复制圆然后旋转。
【文件预览】：
codesc.net
----Delphi Canvas生成万花筒特效()
--------Project1.res(876B)
--------Unit1.dfm(470B)
--------Unit1.ddp(51B)
--------Project1.cfg(434B)
--------Unit1.pas(1KB)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(5KB)