Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.14;
Скачать: CL | DM;

Вниз

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



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

Текущий архив: 2002.01.14;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.011 c
1-42435
Phisio
2001-12-24 15:01
2002.01.14
Выбор нескольких объектов


1-42415
d()c666
2001-12-27 02:08
2002.01.14
символ эквивалентный переходу на другую строку...


14-42558
MJH
2001-11-19 09:39
2002.01.14
Good Idea 4 Forums!


3-42390
Bizon
2001-12-13 16:26
2002.01.14
Что происходит с ролями?


4-42597
Begemoth
2001-11-12 16:08
2002.01.14
Можно ли с помощью API узнать имя локального компьютера?