Градиентная заливка окна

Written on 22 Октября 2007. Posted in [Delphi] Пользовательский интерфейс. Окна и формы

Пример градиентной заливки:

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;