1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
procedure TForm7.FormCreate(Sender: TObject);
Var
i, j: Integer;
R, G, B: Byte;
begin
{ Dessin du dégradé de l'arrière-plan }
B := $C4;
G := $99;
R := $02;
j := -80;
With Canvas Do
Begin
Brush.Color := clWhite;
FillRect(ClipRect);
For i := 5 To ClientHeight - 6 Do
Begin
Pen.Color := RGB(
Max(Min(255, R + j), 0),
Max(Min(255, G + j), 0),
Max(Min(255, B + j), 0));
MoveTo(5, i);
LineTo(ClientWidth - 5, i);
If (i Mod 2 = 0) Then j := j + 1;
End;
end;
end; |
