Скачать: CL | DM;

Рисую на форме в 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-ов меняется.

---

← →
Ozone ©   (2004-10-29 13:50) [6]

Tom   (29.10.04 13:43) [5]

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

---

← →
Ega23 ©   (2004-10-29 13:57) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c