Текущий архив: 2003.08.18;
Скачать: CL | DM;

Вниз

Создание Shape   Найти похожие ветки 

← →
DimaB ©   (2003-08-04 20:02) [0]

Уважаемые мастера!
Возникла страшная проблема: мне жизненно необходимо создать 2500 Shape"ов, но быстро создется только где-то около 1000, а больше машина начинает сильно тормозить.
Может я что-то неправильно делаю?

for i:=1 to 16 do
begin
for j:=1 to 160 do
begin
( self) Уважаемые мастера!
Возникла страшная проблема: мне жизненно необходимо создать 2500 Shape"ов, но быстро создется только где-то около 1000, а больше машина начинает сильно тормозить.
Может я что-то неправильно делаю?

for i:=1 to 16 do
begin
for j:=1 to 160 do
begin
point[i,j]:=TShape.Create(self);
point[i,j].Parent:=Self;
point[i,j].Pen.Style:=psClear;
point[i,j].Width:=3;
point[i,j].Height:=3;
point[i,j].Left:=100+j*3;
point[i,j].Top:=100+i*3;
point[i,j].Brush.Color:=clBlack;
end;
end;


---

← →
Rouse_ ©   (2003-08-04 20:28) [1]

Советую пересмотреть логику приложения. TShape не предназначен для такого использования.

Желаю успехов

---

← →
Echelon ©   (2003-08-04 20:31) [2]

А ты попробуй создать 2500 окон =)

---

← →
DimaB ©   (2003-08-04 20:33) [3]

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

---

← →
Романов Р.В. ©   (2003-08-04 20:36) [4]

> может что-то другое использовать?

Bitmap, Image, Canvas + array и т.д.

---

← →
Anatoly Podgoretsky ©   (2003-08-04 20:48) [5]

+MoveTo+LineTo для рисования сетки

---

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

Текущий архив: 2003.08.18;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.005 c