Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

Этот пример демонстрирует, как залить форму градиентом, подобно программам инсталляции:


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;

 

Добавить комментарий


Защитный код
Обновить