[Zhigalov]

Прорисовка формы происходит давольно медленно и при больших значениях появляются косяки! Может у ковото есть предложения как это дело можно ускорить и исправить.

[Zhigalov]

Не ужели не кто не может мне помочь...Хотя бы советом каким нето!

[Страдалецъ]

Попробуйте сделать так:

Код:

1 2 3 4

procedure TForm1.FormPaint(Sender: TObject); begin  // DrawPlace; end;

Удивитесь результату.

[Страдалецъ]

А косяки появляются потому-что рисуете не на чистом листе, а поверх уже нарисованного. Можно очищать лист, а можно делайте так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

procedure TForm1.DrawPlace; Var x1,y1,i,j,CM,CR,n,wr,hr,w,h,m,f:Integer;   r:TRect;   Bitmap: TBitmap; begin  Bitmap := TBitmap.Create;  Bitmap.Width := PaintBox1.Width;  Bitmap.Height := PaintBox1.Height;  CM := StrToInt(Edit1.Text);  CR := StrToInt(Edit2.Text);  w := PaintBox1.Width;  h := PaintBox1.Height;  n := CM div CR;  x1:=0;  y1:=0;  wr := w div n;  hr := (h-((CR-1)*40)) div CR;  m:=1;  for i:=1 to CR do  begin   for j:=1 to n do   begin     Bitmap.Canvas.Pen.Color := clBlack;     Bitmap.Canvas.Brush.Color := clGray;     r.Top := y1;     r.Left := x1;     r.Right := x1+wr;     r.Bottom := y1+hr;     Bitmap.Canvas.Rectangle(r);     Bitmap.Canvas.Pen.Color := clMaroon;     if hr>wr then       f:=wr     else       f := hr;     Bitmap.Canvas.Font.Size := round(f*0.3);     Bitmap.Canvas.Brush.Color := clGray;     r.Top := y1+5;     r.Left := x1+5;     r.Right := x1+wr-5;     r.Bottom := y1+hr-5;     Bitmap.Canvas.TextOut(x1+5,y1+5,IntToStr(m));     Inc(m);     x1 := wr*j;   end;   y1 := (hr*i)+40*i;   x1 := 0;   PaintBox1.Canvas.CopyRect(PaintBox1.ClientRect,Bitmap.Canvas,Rect(0,0,Bitmap.Width,Bitmap.Height));  end;

[Zhigalov]

Большоее спасибо