Текст в Label е [D6, Win2k]
DJ X © (2001-12-25 18:24:00)
Как сделать, чтобы неумещающающийся текст в Label"е
представлялся так же как в заголовке окно (например:
"окн...")?
Виталик (2001-12-25 22:34:00) [1]
Ну можно сделать что-то вроде этого.
withlabel
do
begin
autosize:=false;
showhint:=true;// Так как свойство Caption у Label будет
содержать не всю строку, а толлько её часть с многоточием в конце,
то строку полностью нужно хранить где-то ещё. Я предлагаю его
хранить в свойстве Hint. Его можно и не отображать, т.е.
showhint:=false;
end;
*********
var
c, n, w: integer;
s: string;
begin
w:=label.width;
s:=label.hint;
n:=Length(s);
Whilelabel.Canvas.TextWidth(label1.caption)>w
do
begin
dec(n);
label.caption:=copy(s,1,n)+"...";
end;
Label.hint:=s;
end;
Наверх 
ЧАТ |
Орешник |
|
