Рисую на форме в Run Time...

← →
Tom (2004-10-29 13:23) [0]

Всем привет!
Рисую на форме в ран таим шеипами...
например
var
SHAPES : array of array of TShape;
begin
SetLength(SHAPES,N);
for i:=0 to N-1 do
begin
SetLength(SHAPES[i],N);
for j:=0 to M-1 do
begin
SHAPES[i,j] := TShape.create(self);
SHAPES[i,j].parent := self;
SHAPES[i,j].visible := true;
...
end;
end;
end;

при большом размере надписи работает очень долго....
Посоветуйте как это можно сделать чтобы быстрее работало.

← →
Skier © (2004-10-29 13:27) [1]

> Рисую на форме в ран таим шеипами...

Что рисуешь ? И вообще что требуется ?

← →
Tom (2004-10-29 13:33) [2]

В матрице имеются 0/1 ... в зависимости от значения меняю цвет...получаедся надпись...основная цель : надпись должна отображаться кружочками...вибрала Shape для этого....есть какая-нибудь идея полудше?

← →
Skier © (2004-10-29 13:36) [3]

>Tom (29.10.04 13:33) [2]
Количество Shape-ов меняется ?

← →
Ozone © (2004-10-29 13:37) [4]

Canvas.Ellipse ?

← →
Tom (2004-10-29 13:43) [5]

>> Ozone
Canvas.Ellipse ? что имеете ввиду? (изнивите чайника :) )

>> Skier
Количество Shape-ов меняется.

Tom (29.10.04 13:43) [5]

Не понимаю, зачем "рисовать" компонентами?

Ну правильно, у тебя конструкторы во вложенных циклах тормозить по-страшному будут. Или создавай заранее, или пользуйся обычным рисованием на обычном TCanvas.

Рисую на форме в Run Time... Найти похожие ветки