|
|
|
|
Delphi 1
Создание синего экрана установки
Пример градиентной заливки:
|
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;
|
[000667]
|
|
|
|
|