Заливка формы градиентом

WinHack

Администратор
23 Фев 2015
2,664
1,913
bsfo.ru
Этот пример демонстрирует, как залить форму градиентом, подобно программам инсталляции:

Код:
procedure TForm1.FormPaint(Sender: TObject) ;
var Row, Ht: Word ;
begin
  Ht := (ClientHeight + 255) div 256 ;
  for Row := 0 to 255 do
   with Canvas do begin
     Brush.Color := RGB(0, 0, Row) ;
     FillRect(Rect(0, Row * Ht,
                   ClientWidth, (Row + 1) * Ht)) ;
   end;
end;