> Var p:TFont;
mm_size: integer;
...
mm_size := Round((abs(p.Height) / Screen.PixelsPerInch) * 2.54);

обьяснения:
св-во Height у TFont измеряется в пикселях (см справку для деталей)...
abs(p.Height) / Screen.PixelsPerInch - переводим его в дюймы...
и умножением на 2.54 переводим размер в миллиметры...

вроде всё...

← →
Anatoly Podgoretsky © (2004-05-31 15:54) [4]

Это свойство в пунктах
FontSize * 254 / 720

← →
wicked © (2004-05-31 16:08) [5]

хмм... Борланд обманывает?...
цитируем справку от билдера:
Description

Use Height to specify the height of the font in pixels.
--- skipped ---
To specify the size of the font in points, use the Size property instead. Users usually specify font size in points, while applications may be concerned with the actual size of the font in pixels when displaying the font on the screen.

The value of Height can be obtained from the point size using this formula:

Font.Height = -Font.Size * Font.PixelsPerInch / 72
--- конец цитаты ---

хотя если автор имел в виду АПИшную структуру LOGFONT, тогда совсем другое дело....

кстати, в моих изысканиях есть ошибка - множить надо не на 2.54, а на 25.4 - кол-во миллиметров в дюйме...

Не обманывает, это формула получения пикселей из пунктов. То есть это привязка физическим характеристикам уствройства. А для получения миллиметров из пунктов, пиксели не нужны.

Font Size Найти похожие ветки