gettextsize

Синтаксис:

s = gettextsize(str, font);

Аргументы:

str – строка с текстом,

font – название шрифта текста.

Описание:

gettextsize – функция получения размера строки str, отображаемой шрифтом font. Тип возвращаемого значения - комплексное число, где действительная часть соответствует ширине строки, мнимая - высоте.

Результат:

s – ширина и высота строки. Тип complex.

Пример:

initialization 
  var TxtSize: complex = (1,1);
  //Получаем размер шрифта     
  TxtSize = gettextsize(TextLabel.Text,TextLabel.Font);
  TextLabel1.Text = "CX=" + floattostr(real(TxtSize)) + " CY=" + floattostr(imag(TxtSize));
end;
//Сдвигаем индикатор
move((real(TxtSize),0),Line,PolyLine);

Сопутствующие материалы