Разукрасить свою форму

Автор: Рудный Артем

Не самый рациональный, но один из самых простых способов разукрасить свою форму. В событии формы onPoint напишем следующее:

procedure TForm1.FormPaint(Sender: TObject);
var
  i, j: Longint;
begin
  with Canvas do
    for i := 1 to Width do // для всех точек Формы по горизонтали
    begin
      Application.ProcessMessages;
      for j := 1 to Height do // для каждой точки Формы по вертикали
        Pixels[i, j] := random(9999); // задаём случайный цвет пиксела
    end;
  // получится мраморное окно
end;

// Теперь можно поэкспериментировать с цветом пикселей:
// Для этого выражение random(9999)заменим на другие к примеру
J * i
Sqr(i + j)
Round(Sqr(i + j) / Pi)
// Здесь можно издеваться как фантазия позволит!!!.