Форум: "Начинающим";
Текущий архив: 2007.12.16;
Скачать: [xml.tar.bz2];
Вниз
List box Найти похожие ветки
← →
{ент (2007-11-21 15:49) [0]У меня есть Лист бокс у в него заноситься текст, подскажите как сделать так что бы если текст не влезал по ширине то появлялась горизонтальная полоса прокрутки
← →
Johnmen © (2007-11-21 15:55) [1]ScrollBars
← →
@!!ex © (2007-11-21 16:01) [2]> [1] Johnmen © (21.11.07 15:55)
НЕт такого свойства у TListBox"a
← →
Johnmen © (2007-11-21 16:08) [3]
> @!!ex © (21.11.07 16:01) [2]
> НЕт такого свойства у TListBox"a
А мне по-барабану :)
← →
Igor Zorkov © (2007-11-21 16:12) [4]
> {ент (21.11.07 15:49)var
i, MaxWidth: integer;
begin
ListBox1.Items.Add("У меня есть Лист бокс у в него заноситься текст, подскажите как сделать так что бы если текст не влезал по ширине то появлялась горизонтальная полоса прокрутки");
MaxWidth := 0;
for i := 0 to ListBox1.Items.Count - 1 do
if MaxWidth < ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]) then
MaxWidth := ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]);
SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+2, 0);
← →
Dennis I. Komarov © (2007-11-21 16:35) [5]Юзай Hint
← →
Amoeba © (2007-11-21 16:45) [6]
> Dennis I. Komarov © (21.11.07 16:35) [5]
>
> Юзай Hint
>
См. здесь: http://www.delphikingdom.com/asp/viewitem.asp?catalogid=762
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.12.16;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.043 c
