Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.12.16;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.023 c
4-1180166777
Ganda
2007-05-26 12:06
2007.12.16
Подключить 32 битную библиотеку к 16 битному приложению.


2-1195819480
AlexanderMS
2007-11-23 15:04
2007.12.16
Запустить Web-страницу + переход на метку.


4-1180349595
kolos_rus
2007-05-28 14:53
2007.12.16
Как зная PID процесса узнать имя пользователя


15-1194954330
Slimer
2007-11-13 14:45
2007.12.16
Открытие *.qrt файлов


15-1195331712
Petr V. Abramov
2007-11-17 23:35
2007.12.16
Себестоимость и амортизация