сторонний шрифт для приложения кроссплатформенно

[VirtUX]

Есть необходимость, чтобы приложение в разных ОС (на данный момент Linux и Windows, возможно и в Mac) выглядело одинаково. Самое узкое место - это шрифты. Так как список предустановленных шрифтов в разных ОС может кардинально различаться. Из-за этого может "поползти" интерфейс и ряд контролов уехать в "невиданную даль".
Я вижу выход из ситуации - это использовать сторонний шрифт, который подгружать в приложение при старте и выгружать в OnDestroy или после Application.Run.
Нашел способы для Windows...

Код: Выделить всё

function AddFontResourceEx(_para1:LPCSTR; flags:DWORD; reserved:Pointer) : integer; stdcall; external 'gdi32' name 'AddFontResourceExA';
function RemoveFontResourceEx(_para1:LPCSTR; flags:DWORD; reserved:Pointer) : integer; stdcall; external 'gdi32' name 'RemoveFontResourceExA';

..., но не понимаю какой подключить модуль, чтобы появился тип: LPCSTR.
Для Linux и Mac ничего не находится...

[zub]

Я в ваше приложение ниногой. Шрифты должны быть какие я хочу, а не не пойми какие

[runewalsh]

Код: Выделить всё

uses Windows;

Алсо, лучше

Код: Выделить всё

function AddFontResourceExW(name: LPWSTR; flags: DWORD; reserved: pointer): integer; stdcall; external 'gdi32';
function RemoveFontResourceExW(name: LPWSTR; flags: DWORD; reserved: pointer): integer; stdcall; external 'gdi32';

[Vadim]

VirtUX
А просто положить нужный Вам шрифт при установке программы в каталог шрифтов?

[Снег Север]

А просто положить нужный Вам шрифт при установке программы в каталог шрифтов?

Лень проверять, но в последних версиях винды вряд ли пройдет - требуется регистрация шрифта в системе.

[Vadim]

Снег Север
Вот что значит я на винду давно плюнул. В Линуксе просто скопировал и нет проблем. А винда - десятки у меня нет, проверить не могу. А в семёрке вроде с копированием проблем не было...

[VirtUX]

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

[Dakor]

Решение в лоб - подбирать такой Font.Size, для которого Canvas.TextWidth или Canvas.TextHeight будет максимально приближено к нужному значению. Но тут есть нюансы.

Доступные шрифты есть в Screen.Fonts. Далее копать в сторону характеристик шрифта, чтобы понять, что он моноширинный.

[zoltanleo]

Решение в лоб - подбирать такой Font.Size, для которого Canvas.TextWidth или Canvas.TextHeight будет максимально приближено к нужному значению

+100500

Я так с кнопками и метками делаю, чтобы первые не выглядели убого, а вторые не вылезали за форму. Часто приходится класть на форму сначала скроллбокс, а на него bevel, к которому уже можно привязывать остальные гуишные элементы. Отступы bevel'а рассчитываются при создании формы и вот тут есть нюансы (каждый раз приходится на линухе проверять, как выглядит). Скроллбокс очень пригождается, когда элементы лежат не просто на форме, а, например, на вкладке pagecontrol, которые имеет ограничение по размерам