Советы по Delphi
Создание синего экрана установки
Пример градиентной заливки:
| procedure TForm1.FormPaint(Sender: TObject);varRow, Ht: Word ;beginHt := (ClientHeight + 255) div 256 ;for Row := 0 to 255 dowith Canvas do beginBrush.Color := RGB(0, 0, Row) ;FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht)) ;end ;end; |
[000667]
