Как обойти прорисовку формы?

[beringoff]

Есть такой вот код:

type
  TKletka= class (TPanel)
     FX,FY:Integer;
    constructor Create(X,Y:Integer);
  end;

  TPole=class(TObject)
    Kletki:array[0..100,0..50]of Pointer;
    constructor Create();
    function KletkaState(X,Y:Integer):Integer;
    destructor Destroy; override;
  end;

  TForm1 = class(TForm)
    Btn4: TButton;
    procedure Btn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Kletka:TKletka;
  Pole:TPole;

impementation
...................................
constructor TKletka.Create(X, Y: Integer);
begin
inherited Create(Form1);
  Parent:=Form1;
  Fx:=X*10;
  FY:=Y*10;
  Color:=clRed;
  SetBounds(FX,FY,10,10);
end;

constructor TPole.Create;
var X,Y:Integer;
begin
  inherited;
  for Y:=0 to 45 do begin
    for X:=0 to 100 do begin
         Kletki[X,Y]:=TKletka.Create(X,Y);
    end;
  end;
end;


procedure TForm1.Btn4Click(Sender: TObject);
begin
  Pole:=TPole.Create;
end;

Работает, но так медленно. Тормозит прорисовка формы после создание каждого объекта. клеточки появляются полосами, поле заполняется около минуты.
Как сделать так, чтобы все появлялось сразу, а не каждый объект в отдельности?

Пробовал:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Pole:=TPole.Create;
end;

Выдает access violation.

[Stilet]

Как сделать так, чтобы все появлялось сразу, а не каждый объект в отдельности?

Использовать drawGrid и не выдумывать чепухи.

[beringoff]

Да я и рад бы, но - такова задача.

[JUDAS]

а что такое KletkaState ?
Может оно тормозит?

[beringoff]

function TPole.KletkaState(X, Y: Integer):Integer;
begin
  Result:=1;
  if Kletki[x,y]=nil then Exit;
  Kletka:=Kletki[x,y];
  case Kletka.Color of
//    32: Kletka.Color:=16;
    clTeal: Kletka.Color:=1;
    clBlue: Kletka.Color:=clTeal;
    clRed: Kletka.Color:=clBlue;
  end;
  Kletka.Refresh;
  if Kletka.Color=1 then begin
      Pole.Kletki[x,y]:=nil;
      Kletka.Free;
      Result:=0;
  end;
end;

Да не, она не вызывается. До ее создание было то же самое.

[Stilet]

но - такова задача.

Допустим. Но из кода в топе не понятно что и где прорисовывается.

[beringoff]

Вот:

constructor TKletka.Create(X, Y: Integer);
begin
inherited Create(Form1);
  Parent:=Form1;
  Fx:=X*10;
  FY:=Y*10;
  Color:=clRed;
  SetBounds(FX,FY,10,10);
end;

прорисовывается панелька 10х10 на форме, 5000 штук одна за одной, в притирочку. TPole - массив указателей на клеточки, который в будущем будет управлять поведением этих клеточек.

[Человек_Борща]

Да я и рад бы, но - такова задача.

Задача задачей, но реализацию делаете вы. И делать крестики-нолики, морской бой с рисованием ячеек, ввиде панелей - бред. Ни к чему хорошему это не приведет, т.к. панель вообще не для этого придумана была, у неё своя "жизнь", у каждой в отдельности, своя.

DrawGrid лишен этого, все что находится внутри него - живет 1 жизнью с DrawGrid'ом, если это не кнопки и прочее.

Так что:

Использовать drawGrid и не выдумывать чепухи.

прорисовывается панелька 10х10 на форме, 5000 штук одна за одной, в притирочку. TPole - массив указателей на клеточки, который в будущем будет управлять поведением этих клеточек.

О ужас...
Используйте DrawGrid, и не парьтесь. Координаты ячеек и сами ячейки, в полуготовом виде, уже вам даны и нарисованы, и за пару мс вам зарисуется хоть 100 хоть 10000 ячеек одновременно.

[Stilet]

Угу теперь ясно что делаешь.
Тормоза при резайце формы, когда мульон этих клеток начинают отрисовываться.
Увы я продолжу настаивать на использовании DrawGrid.

[beringoff]

Я так и поступлю.
Я добился чтобы прорисовывалось все сразу(убрал doubleBuffer и все заработало в Oncreate), но все равно прорисовывается не красиво.
но задачка была именно такая, у знакомова в вузе, так шта....
А где эта ДравГрид находится? Я по базам больше, но зацепило.