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

← →
vasa777 (2012-05-07 16:44) [0]

на форме есть лабел, положен на форму и растянут на несколько см, автосайз=фальш. Вопрос: можно ли както определить сколько видимых символов в него влезет? Помню какаято была функция вроде, которая от размера шрифта чтото определяла.. надо что то типа:

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;

← →
Amoeba_ (2012-05-07 16:55) [1]

Использовать св-во Canvas.handle
Читать здесь:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=452

← →
Inovet © (2012-05-07 17:04) [2]

Именно сантиметров? Не мегатонн, не мегапикселей?

← →
Юрий Зотов © (2012-05-07 17:08) [3]

Label1.Canvas.TextWidth - проще

← →
vasa777 (2012-05-07 17:09) [4]

> Amoeba_ (07.05.12 16:55) [1]

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

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

← →
vasa777 (2012-05-07 17:09) [5]

длина лабела в символах Найти похожие ветки