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;

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

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

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

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