Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Вниз

Текст в Label е 


DJ X   (2001-12-25 18:24) [0]

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



Виталик   (2001-12-25 22:34) [1]

Ну можно сделать что-то вроде этого.
with label 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);

While label.Canvas.TextWidth(label1.caption)>w do
begin
dec(n);
label.caption:=copy(s,1,n)+"...";
end;
Label.hint:=s;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.015 c
4-42621           XM-AD                 2001-11-14 10:37  2002.01.14  
Как можно узнать директорию в которую пытаются сохранить файл?


3-42347           Саня                  2001-12-06 13:54  2002.01.14  
Уважаемые мастера, а можно ли....


1-42457           Lakich2               2001-12-25 07:55  2002.01.14  
Excel и Delphi


3-42353           Ser GIK               2001-12-07 23:22  2002.01.14  
Подскажите чудаку!


3-42356           bk                    2001-12-09 16:30  2002.01.14  
Probeli V ADO