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

Вниз

ListBox   Найти похожие ветки 

← →
Alex Slater   (2003-03-06 11:49) [0]

Господа Мастера , подскажите как сделать в ListBox"e горизонтальный скроллинг .

---

← →
Игорь Шевченко ©   (2003-03-06 11:53) [1]

SendMessage (ListBox.Handle, LB_SETHORIZONTALEXTENT, Размер_для_самой длинной строки, 0);

---

← →
Jel ©   (2003-03-06 12:39) [2]

А чем ScrollWidth не угодил?

When ScrollWidth is greater than the client width of the list box, the list box gets a horizontal scrollbar. When ScrollWidth is less than or equal to ClientWidth, the horizontal scrollbar disappears.

---

← →
Игорь Шевченко ©   (2003-03-06 12:41) [3]

Jel © (06.03.03 12:39)

Тем, что в D5 его нету.

Впрочем, function TCustomListBox.GetScrollWidth: Integer;
begin
Result := SendMessage(Handle, LB_GETHORIZONTALEXTENT, 0, 0);
end;

procedure TCustomListBox.SetScrollWidth(const Value: Integer);
begin
if Value <> ScrollWidth then
SendMessage(Handle, LB_SETHORIZONTALEXTENT, Value, 0);
end;


---

← →
Jel ©   (2003-03-06 12:53) [4]

2
> Игорь Шевченко © (06.03.03 12:41)

Понял, буду читать вопросы внимательнее. :)

---

← →
ALEX SLATER   (2003-03-06 16:49) [5]

>> Игорь Шевченко

Как продолжало резать строки в ListBox"e так и режет дальше , горизонтального скроллинга нет .
Может быть проблема в этом : сообщение относится только к блокам списка, созданным со стилем ws_HScroll . Если да , то как установить этот стиль .

---

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

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

Наверх

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