Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

длина лабела в символах

vasa777 © (2012-05-07 16:44:00)
на форме есть лабел, положен на форму и растянут на несколько см, автосайз=фальш. Вопрос: можно ли както определить сколько видимых символов в него влезет? Помню какаято была функция вроде, которая от размера шрифта чтото определяла.. надо что то типа:

const symbol='X';
var s:string;i,z:integer;
begin
s:='';
for i:=0 to 1000 do begin
s:=s+symbol;if MyFunctMaxVisibleLabelCaption(label1,s)=false then break; label1.caption:=s;
end;
showmessage('Максимальное число видимых символов: '+inttostr(length(s)));
end;

function MyFunctMaxVisibleLabelCaption(L:tlabel;s:string):bool;
begin
//???
end;

vasa777 (2012-05-07 17:09:00) [1]

> Amoeba_ (07.05.12 16:55) [1]

ага, там похоже нужное только в конце:

::" Остальные функции, предназначены для получения различной информации о шрифтах, размерах и т.п. (GetTextExtentPoint, EnumFontFamiliesEx, GetFontData, GetCharABCWidths, GetCharWidthFloat и т.д.), но это уже другая тема."

vasa777 (2012-05-07 17:09:00) [2]

> Юрий Зотов © (07.05.12 17:08) [3]

во, вот это оно похоже

Юрий Зотов (2012-05-07 17:08:00) [3]
Label1.Canvas.TextWidth - проще

Inovet (2012-05-07 17:04:00) [4]
Именно сантиметров? Не мегатонн, не мегапикселей?

Amoeba_ (2012-05-07 16:55:00) [5]
Использовать св-во Canvas.handle
Читать здесь:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=452

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »