unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
   procedure FormPaint(Sender: TObject);
private
  { Private declarations }
public
  { Public declarations }
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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 // для каждой точки Формы по вертикали
     //здесь пишем любую операцию на i и j и получаем любой узор
     //например round(sqr(i)+sqr(j))
     //или J * i
     //или Sqr(i + j)
     //или Round(Sqr(i + j) / Pi)
     //короче у бесконечное число вариантов
     Pixels[i, j] := round(sqr(i)+sqr(j));
   end
end;

end.

Копирайт © 2007, Lanselot. Все права защищены.