Мраморное окно

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

Если вам надоели обычные монотонные формы, то эта статья — спасенье для вас!!! Всё, что вам нужно сделать для того, чтобы ваше окно выглядело так же эффектно, как и показанное на рисунке , это только написать несколько строк кода на событие OnPaint (на прорисовку) для вашего подопытного окна:

procedure TForm1.FormPaint(Sender: TObject);

var

i, j: Integer;

begin

with Form1.Canvas do

for j := 0 to Form1.Height do

for i := 0 to Form1.Width do

Pixels[i, j] := Trunc(Random($00000095));

end;

С помощью двух циклов мы обошли поверхность окна (канву) и каждому пикселю задали случайный оттенок нужного цвета. (Для тех, кто не знает, ПИКСЕЛЬ — это мельчайшая точка). Цвет задаём 16-ричным кодом, например я указал: $00000095. Получилось весьма неплохо :-)) Вы можете изменить цвет.

Второй способ (более быстрый):

procedure TForm1.FormPaint(Sender: TObject);

var

h, w, i, j: Integer;

Rect1, Rect2: TRect;

begin

h := Form1.Height div 10;

w := Form1.Width div 10;

with Form1.Canvas do

begin

for j := 0 to h do

for i := 0 to w do

Pixels[i,j]:=Trunc(Random($00000095));

Rect1 := Rect(0, 0, w, h);

for j := 0 to 9 do

begin

for i := 0 to 9 do

begin

Rect2 := Rect(w*j, h*i, w*(j 1), h*(i 1));

CopyRect(Rect2, Form1.Canvas, Rect1);

end;

end;

end;

end;

{/codecitation}

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