| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
List box [D7, XP]
{ент © (2007-11-21 15:49:00)У меня есть Лист бокс у в него заноситься текст, подскажите как сделать так что бы если текст не влезал по ширине то появлялась горизонтальная полоса прокрутки
Amoeba (2007-11-21 16:45:00) [1]
> Dennis I. Komarov © (21.11.07 16:35) [5]
>
> Юзай Hint
>
См. здесь: http://www.delphikingdom.com/asp/viewitem.asp?catalogid=762
Dennis I. Komarov (2007-11-21 16:35:00) [2]Юзай Hint
Igor Zorkov (2007-11-21 16:12:00) [3]
> {ент (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);
Johnmen (2007-11-21 16:08:00) [4]
> @!!ex © (21.11.07 16:01) [2]
> НЕт такого свойства у TListBox'a
А мне по-барабану :)
@!!ex (2007-11-21 16:01:00) [5]> [1] Johnmen © (21.11.07 15:55)
НЕт такого свойства у TListBox'a
Johnmen (2007-11-21 15:55:00) [6]ScrollBars
| |
