Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.08.13;
Скачать: CL | DM;

Вниз

Построение элементов   Найти похожие ветки 

 
doddoindan   (2006-06-30 17:34) [0]

Вообщем создаю динамически элементы, создаются они на разных панелях, потом пишу процедуру для их выравнивания, однако получается так, что на последней панели первые несколько элементов пропадают, никак немогу найтьи ошибку(на одной панеле размещаются 2 столбца по 14 элементов)

for x:=1 to i-1 do

begin

cb.items[x].Top:=cb.items[x-1].Top+16;
cb.items[x].Left:=cb.items[x-1].Left;
if (x mod 14 =0) and (y>=2) then
begin
  cb.items[x].Top:=5;
  cb.items[x].Left:=5;
  y:=1;
end
else
 if (x mod 14 =0) and (y<=2) then
begin
  cb.items[x].Top:=5;
  cb.items[x].Left:=170;
  y:=y+1;
end;

end;


 
Palladin ©   (2006-06-30 18:03) [1]

надеюсь ты Y инициализируешь перед циклом


 
doddoindan   (2006-06-30 18:21) [2]

естессно, проблема не в этом , проблема в логике... я её понимаю недоконца


 
Palladin ©   (2006-06-30 18:58) [3]

значит ты тут так напутал что сам неразберешься? :)
молодца



cb.Items[0].Left:=5;
for x:=1 to i-1 do
begin
cb.items[x].Top:=cb.items[x-1].Top+16;
cb.items[x].Left:=cb.items[x-1].Left;
if (x=14)  Then
 begin
  cb.items[x].Top:=5;
  cb.items[x].Left:=170;
 end
end;



 
Palladin ©   (2006-06-30 19:00) [4]

или еще лучше



cb.Items[0].Left:=5;
For x:=1 to i-1 Do
 If (x=14)  Then
  Begin
   cb.items[x].Top:=5;
   cb.items[x].Left:=170;
  End Else
 Begin
   cb.items[x].Top:=cb.items[x-1].Top+16;
   cb.items[x].Left:=cb.items[x-1].Left;
 End;




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

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

Наверх




Память: 0.47 MB
Время: 0.04 c
1-1151603913
Paull
2006-06-29 21:58
2006.08.13
Два вопроса по компонентам TListview, ViewStyle


1-1151311964
zdm
2006-06-26 12:52
2006.08.13
Работа с ККМ


4-1145373726
Uran
2006-04-18 19:22
2006.08.13
Определить программно расположение.


15-1153169163
ronyn
2006-07-18 00:46
2006.08.13
как узнать посещаемость своего сайта?


15-1153149555
HeadHunter
2006-07-17 19:19
2006.08.13
Qulix Systems (BelHard) приглашает на работу программистов