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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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

Не самый рациональный, но один из самых простых способов разукрасить свою форму. В событии формы 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)

// Здесь можно издеваться как фантазия позволит!!!.

{/codecitation}

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