ListBox & SpeedButton

[Rebel123]

то есть мне убрать свой код перемотки колесиком?
или просто добавить вашу?

[Stilet]

то есть мне убрать свой код перемотки колесиком?

Скорее заменить, если ты использовал мой способ.

[Rebel123]

А вот все! работает! добавил в свой код кусочек вашей. Big Thanks Stilet.

Вот тут неувязочка:

with Form4 do ListBox2.TopIndex:=ListBox1.TopIndex;

то есть при перемотки ListBox1 он будет перематывать другую, а если на ListBox2 то, тогда он не перематывает.
Пыталься сделать так:

with Form4 do ListBox2.TopIndex:=ListBox1.TopIndex;
with Form4 do ListBox1.TopIndex:=ListBox2.TopIndex;

не работает

и вот так пробывал:

with Form4 do ListBox2.TopIndex:=ListBox1.TopIndex or with Form4 do ListBox1.TopIndex:=ListBox2.TopIndex;

тоже не работает.
Я новичок, соответсвенно неполучилось! может подскажите Stilet?

[Stilet]

Чеж не подскажу. Подскажу:

procedure TlistBox.wp(var w: TWMVScroll);
begin
inherited;
if self=Form1.ListBox1 then
 with form1 do ListBox2.TopIndex:=ListBox1.TopIndex;
if self=Form1.ListBox2 then
 with form1 do ListBox1.TopIndex:=ListBox2.TopIndex;
end;

Делов то...

При этом ролер мышки соответственно не потеряет актуальности и для второго.

[Rebel123]

Вооо спасибо!!! все работает просто отлично!

Тут вот если заметили у моей проги касяк на ListBox'e именно в том что перевод слов очент длинные и соответсвенно они не влезают в ListBox2.
Теперь хотел бы сделать СкроллБары чтоб они в бок мотали!!! реально ли это сделать, заставив его работать от ListBox'ов или же надо будет отдельный компоненты ScrollBar???

[Stilet]

заставив его работать от ListBox'ов или же надо будет отдельный компоненты ScrollBar???

Хм... Рекомендую поместить Листбокс в ScrollBox и один раз пройтись по нему в цикле вычислив максимальную ширину:

var i:integer;
begin
 for i:=0 to 100 do begin

 if ListBox1.Width<ListBox1.Canvas.TextWidth(ListBox1.Items[i])
 then
  ListBox1.Width:=ListBox1.Canvas.TextWidth(ListBox1.Items[i]);
  end;

end;

Задай Листбоксу координаты 0,0 и высотой в высоту СкроллБокса и прокрутка Скролбокса сама заработает на вычисленную ширину Листбокса

[mihali4]

Сообщение от Rebel123

...у моей проги касяк на ListBox'e именно в том что перевод слов очент длинные и соответсвенно они не влезают в ListBox2.
Теперь хотел бы сделать СкроллБары чтоб они в бок мотали...

Горизонтальные скроллы... Фу-у-у...
А что, если просто разместить, допустим, под ListBox2 многострочный лэйбл и в нем отображать этот перевод?

[Rebel123]

Сообщение от Stilet
Хм... Рекомендую поместить Листбокс в ScrollBox и один раз пройтись по нему в цикле вычислив максимальную ширину:

То есть, мне надо будет поместить ScrollBox и на него разместить мои ListBox'ы, затем сделать так чтоб ListBox'ы стояли поверх ScrollBox'a и на клике вписать ваш код? я так понял?

Сообщение от mihali4
А что, если просто разместить, допустим, под ListBox2 многострочный лэйбл и в нем отображать этот перевод?

Многострочный Лейбл??? ну я даже себе представить не могу как оно работать будет!

[mihali4]

Сообщение от Rebel123

Многострочный Лейбл??? ну я даже себе представить не могу как оно работать будет!

Это обычный лэйбл, у которого свойство WordWrap=True...
То есть строка, длина которой больше длины лэйбла, будет разбиваться на куски, длина которых не больше длины лэйбла.
Повторяя предыдущий пример:

procedure TForm1.Edit1Change(Sender: TObject);
begin
Listbox1.perform(lb_selectstring,-1,longint(pchar(Edit1.text)));
ListBox2.ItemIndex:=ListBox1.ItemIndex;
Label1.Caption:=ListBox2.Items[ListBox2.ItemIndex];
end;

[Rebel123]

Сообщение от mihali4
Это обычный лэйбл, у которого свойство WordWrap=True...
То есть строка, длина которой больше длины лэйбла, будет разбиваться на куски, длина которых не больше длины лэйбла.
Повторяя предыдущий пример:

То есть, будет присутсвовать Лейбл и когда я наведу мышкой по длинной строке он его отобразит оставшийся кусок на лейбле? а причем тут Edit1Change??