Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
1-12829
SMA
2003-04-22 00:17
2003.05.05
Имена каталогов и файлов


1-12692
Sirus
2003-04-23 08:00
2003.05.05
Как сделать чтобы форма не отображалась при запуске???


14-12921
DenKop
2003-04-18 00:24
2003.05.05
Что такое моразм (не знаю как правильно)?


7-12951
AFrolov
2003-03-13 19:01
2003.05.05
Как убить чужое приложение (как в диспетчере задач)


14-12902
bercut
2003-04-17 17:50
2003.05.05
Всем привет заходите на сайт студентов экологического факультета