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