Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Рисую на форме в Run Time... [D6, Win2k]

Tom © (2004-10-29 13:23:00)
Всем привет!
Рисую на форме в ран таим шеипами...
например
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;

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

Ega23 (2004-10-29 13:57:00) [1]
Ну правильно, у тебя конструкторы во вложенных циклах тормозить по-страшному будут. Или создавай заранее, или пользуйся обычным рисованием на обычном TCanvas.

Ozone (2004-10-29 13:50:00) [2]
Tom (29.10.04 13:43) [5]

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

Tom (2004-10-29 13:43:00) [3]
>> Ozone
Canvas.Ellipse ? что имеете ввиду? (изнивите чайника :) )

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

Ozone (2004-10-29 13:37:00) [4]
Canvas.Ellipse ?

Skier (2004-10-29 13:36:00) [5]
>Tom (29.10.04 13:33) [2]
Количество Shape-ов меняется ?

Tom (2004-10-29 13:33:00) [6]
В матрице имеются 0/1 ... в зависимости от значения меняю цвет...получаедся надпись...основная цель : надпись должна отображаться кружочками...вибрала Shape для этого....есть какая-нибудь идея полудше?

Skier (2004-10-29 13:27:00) [7]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »