Вопрос о шрифтах

[kettanaito]

Юзабельно ли использовать в своем приложении шрифты, которых нет на машине пользователя? Например, я решил задать всем элементам Label шрифт Myriad Pro, который не есть стандартным. Как будут отображаться эти элементы на компьютере пользователя, у которого нет этого шрифта?

[Voody]

Будут квадратики.
Включайте в ресурсы: http://www.kansoftware.ru/?tid=1812

[kettanaito]

Voody, последовал тому примеру, что Вы дали. Все то и ничего, и шрифт создается, но программа просто не отображается. Главное окно не появляется. Процедура:

procedure LoadFont;
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(hInstance, 'MY_FONT', Pchar('FONTNAME'));
Res.SavetoFile(ExtractFilePath(Application.ExeName)+'Data\Corbel.ttf');
Res.Free;
AddFontResource(PChar(ExtractFilePath(Application.ExeName)+'Data\Corbel.ttf'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

Если убираю SendMessage(..) то приложение запускается. Насколько исправной можно считать такую вот работу не знаю. Шрифт не загружается и не и используется программой. Пум..

[Stilet]

А может стоит PostMessage? т.е. не ждать ответа от обработчика сообщения, а продолжать программу.

[kettanaito]

Res : TResourceStream;
begin
Res := TResourceStream.Create(hInstance, 'MY_FONT', Pchar('FONTNAME'));
Res.SavetoFile(ExtractFilePath(Application.ExeName)+'Data\Corbel.ttf');
Res.Free;
AddFontResource(PChar(ExtractFilePath(Application.ExeName)+'Data\Corbel.ttf'));
SendMessage(cdpmain.Handle,WM_FONTCHANGE,0,0);

Так приложение работает, но шрифт все-равно не грузит (хотя создает в нужной папке и он вполне исправен). Почему же?

[GunSmoker]

Где обработка ошибок для AddFontResource? А если ошибка? Правов нет?

Главное окно не появляется. Если убираю SendMessage(..) то приложение запускается.

Это баг в другой программе (где в "другие программы" входят и ваши программы).

А может стоит PostMessage? т.е. не ждать ответа от обработчика сообщения, а продолжать программу.

Наверное, лучше SendNotifyMessage или SendMessageTimeout.

Так приложение работает, но шрифт все-равно не грузит (хотя создает в нужной папке и он вполне исправен). Почему же?

Документация говорит - делать бродкаст. Значит - делать бродкаст.

Надеюсь, делаете это до создания формы?

Вообще, я бы использовал AddFontResourceEx - для создания приватного шрифта, а не для глобальной регистрации.