Скачать: CL | DM;

Текст в 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;



---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c