A form with a beautiful fading color

Have always been very fond of the gradient of the interface, but did not expect the beautiful gradient form originally so simple ... I really didn't think of that. It seems that I am not only a low level of technology, the idea of the brain is empty ...

-----------------------------------------------------------------------------

Procedure Tform1.formclick (sender:tobject); var  i,formwidth:integer;  Dct:trect;begin  formwidth:=form1.width;  For i:=0 to 255 do  begin    Canvas.brush.color:=rgb (0,i,255);    Dct:=rect (0,i,formwidth, (i+1) * *);    Canvas.fillrect (DCT);  End;end;

Note that this barbaric self-drawing form will mask all controls on the interface.

A form with a beautiful fading color