Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2003.09.01;
Скачать: [xml.tar.bz2];




Вниз

Горизонтальная прокрутка в ListBox 


RIMMER   (2003-06-28 00:27) [0]

Старый совет по добавлению сабжа неправильно работает в WinXP - длина скролла устанавливается меньше, чем надо. Что делать?



RIMMER   (2003-06-28 00:30) [1]

ЗЫ Имеется в виду следующая процедура
procedure TForm1.ShowHScroll(Sender: TObject; ListBox: TCustomListBox);
var

i, MaxWidth: integer;
begin

MaxWidth := 0;
for i := 0 to ListBox.Items.Count - 1 do
if MaxWidth < ListBox.Canvas.TextWidth(ListBox.Items.Strings[i]) then
MaxWidth := ListBox.Canvas.TextWidth(ListBox.Items.Strings[i]);

SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+7, 0);

end;



Ученик   (2003-06-28 10:08) [2]

Вроде, работает этот код под Windows XP, а какие шрифты установлены с системе "большие" или "маленькие", может проблема в +7, или много не хватает ?



RIMMER   (2003-07-01 00:25) [3]

Не хватает по разному (кажется в зависимости от длины макс. строки), но обычно >20 пикселов. Шрифты по вкладке в свойствах дисплея = "Обычный размер (96 dpi)"




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2003.09.01;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.033 c
4-1740            Turok                 2003-07-03 11:30  2003.09.01  
Как скопировать информацию из окна чужой программы.


1-1366            Андрей Слюсаренко     2003-08-17 18:04  2003.09.01  
Своп файл


1-1497            ossa                  2003-08-18 08:41  2003.09.01  
Подскажите как из 2-го модуля вывести в 1-м в Label текст.


14-1646           Johnny Smith          2003-08-12 11:15  2003.09.01  
Давайте поговорим о софтверных патентах. И их нарушении.


14-1632           Zergling              2003-08-13 11:38  2003.09.01  
А где орешник?