Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "WinAPI";
Поточний архів: 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)"



сторінки: 1 вся гілка

Форум: "WinAPI";
Поточний архів: 2003.09.01;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.55 MB
Час: 0.032 c
14-1669
Затемнення
2003-08-12 11:17
2003.09.01
Допоможіть почати з 3D


1-1503
AZ
2003-08-17 07:46
2003.09.01
Наскільки цензурно вираз?


6-1538
Hff
2003-06-25 14:51
2003.09.01
Як розібрати вхідну пошту?


14-1569
VID
2003-08-08 19:32
2003.09.01
Шукаю музику ...


1-1420
Ліна
2003-08-19 14:49
2003.09.01
IniFile





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в&#39;єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська