Текст в ListBox е

← →
МитяЙ2 © (2003-04-12 08:34) [0]

Доброго времени суток Мастера!
Всех с наступлением весны!

Вот возник вопрос:

Как узнать, что текст, находящийся в ListBox
не весь входит по длине, т.е. некоторые строки
не могут быть прочитаны полностью (конец строки
не видно)?

Пробовал:

ListBox1.Canvas.TextWidth(ListBox1.Items[ListBox1.ItemIndex]) и ListBox1.Canvas.TextExtent(ListBox1.Items[ListBox1.ItemIndex])

выдают одно и тоже, но не подходит, т.к. бывает текст не
входит по длине, а ЗНАЧЕНИЕ выдаваемое TextWidth < ListBox1.Width

Логично, что должно быть: ЗНАЧЕНИЕ выдаваемое TextWidth >= ListBox1.Width
Но это не так!
Как же быть?

P.S. Вертикальный ScrolBar НЕ виден.

Подскажите, МитяЙ.

← →
МитяЙ2 © (2003-04-12 11:40) [1]

Вот повозился да сам написал:

function IsVisibleAllTextInListBox(lb:TListBox;number_item:integer;Offset:integer;bold_flag:boolean):boolean; var t:TSize; cRect:TRect; bm:TBitmap; begin Windows.GetClientRect(lb.Handle, cRect); bm:=TBitmap.Create; bm.Width:=cRect.Right; bm.Height:=cRect.Bottom; bm.Canvas.Font:=lb.Font; if bold_flag then bm.Canvas.Font.Style:=bm.Canvas.Font.Style+[fsBold]; if bm.Canvas.TextWidth(lb.Items[number_item-1])+Offset<CRect.Right then IsVisibleAllTextInListBox:=true else IsVisibleAllTextInListBox:=false; bm.Free; end;

Текст в ListBox е Найти похожие ветки