Delphi生成漸變色效果,生成閃爍矩形代碼,一共生成有4種效果,1、菱形擴散效果,2、中心向左右擴散,3、中心向上下擴散,4、動畫矩形效果,整體的運行效果如下:
01
unit
Unit1;
02
interface
03
uses
04
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
05
Dialogs, StdCtrls, ExtCtrls;
06
type
07
TForm1 =
class
(TForm)
08
Button1: TButton;
09
Image1: TImage;
10
Image2: TImage;
11
Label1: TLabel;
12
Label2: TLabel;
13
Image3: TImage;
14
Label3: TLabel;
15
Image4: TImage;
16
Timer1: TTimer;
17
Label4: TLabel;
18
procedure
Button1Click(Sender: TObject);
19
Timer1Timer(Sender: TObject);
20
FormDestroy(Sender: TObject);
21
private
22
{ Private declarations }
23
public
24
{ Public declarations }
25
end
;
26
var
27
Form1: TForm1;
28
implementation
29
{$R *.dfm}
30
TForm1
.
31
i:
Integer
32
begin
33
With
Image1
Do
34
For
i:=
0
To
64
DO
//菱形擴散效果
35
Begin
36
Canvas
Brush
Color:=RGB(
3
*i+
45
,
);
37
FillRect(Rect(i,i,
));
38
FillRect(Rect(i,
128
-i,
39
FillRect(Rect(
-i,i,
40
41
42
Image2
// 中心向左右擴散
43
44
46
,i+
1
47
-i+
48
49
Image3
//中心向上下擴散
50
51
52
53
,i,
54
-i));
55
56
Timer1
enabled:=
True
57
58
59
k:
60
61
Image4
62
k:=
//動畫矩形效果
63
Color:=RGB(Random(
255
),Random(
65
FillRect(Rect(k,k,
66
FillRect(Rect(k,
-k,
67
-k,k,
68
69
70
71
72
73
Enabled:=
False
//關閉時鐘
74
75
本例效果圖:代碼文件:unit Unit1;i
為什麼是用等待函數來把關? 因為上面幾個等待函數也可以等待
IGPGraphicsPathIterator 能遍歷路
本例制作一個背景能夠變化的窗體。當點擊窗體中的“隨機背景”
本例效果圖: 代碼文件:unit Unit1;inte
說明:(1)其中using System ,表示使用Sys