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