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

оптимизация на быстродействие   Найти похожие ветки 

← →
RedLord   (2004-07-22 17:56) [0]

всем привет
имеется код создающий 100 панелей и двигающий их по форме
(скролинг) но оттяпывающий 100 процентов мощи процессора
что можно зделать чтоб не грузить проц так сильно

var mesage:array[1..65535] of tpanel;
...
procedure TForm1.Button1Click(Sender: TObject);
var t1,t2:int64;
n:integer;
begin
t1:=GetTickCount;
for n:=1 to 100 do
begin
mesage[n]:=tpanel.create(form1);
mesage[n].top:=n*20;
mesage[n].Left:=5;
mesage[n].Height:=15;
mesage[n].Width:=200;
mesage[n].caption:=inttostr(n);
mesage[n].Parent:=form1;
end;
t2:=GetTickCount-t1;edit1.Text:=inttostr(t2);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
t1,t2:int64;
n:integer;
begin
t1:=GetTickCount;
for n:=1 to 100 do
begin
mesage[n].left:=mesage[n].Left+1;
end;
t2:=GetTickCount-t1;edit1.Text:=inttostr(t2);
end;

---

← →
Sandman25 ©   (2004-07-22 17:56) [1]

SetBounds

---

← →
Subdigger   (2004-07-22 17:59) [2]

в цыклу
processmessages;

---

← →
ИдиотЪ   (2004-07-22 18:03) [3]

и это все тормозит?

---

← →
RedLord   (2004-07-22 18:27) [4]

тормозит жутко перемещение примерно на 20 шагов и комп уже не всостоянии отображать содержание панелей (играющий mp3 замолкает напроч.  комп:  amd 2500  512mb ddr )

---

← →
Subdigger   (2004-07-22 18:38) [5]

2 РедЛорд
шо канкретно у тя глючит
у мя
t2:=GetTickCount-t1;edit1.Text:=inttostr(t2);
edit1.Text=78

комп=cel2000 256m

---

← →
RedLord   (2004-07-22 21:22) [6]

to subdigger
у меня edit1.tex:=38
но нагрузка на камень сто процентов
и ничего другое в ето время уже не работает
НУЖНО РАЗГРУЗИТЬ ПРОЦ

---

← →
Акакий   (2004-07-22 21:27) [7]

Насколько я помню
код из 100 панелей довольно легко создается на VB.Delphi - не саамый лучший вариант

---

← →
RedLord   (2004-07-22 21:37) [8]

скорость создания не критична критична скорость передвижения

---

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

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



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