Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.06.29;
Скачать: CL | DM;

Вниз

Проблема загрузки шрифта   Найти похожие ветки 

 
VovKul   (2008-06-04 11:09) [0]

Скажите, пожалуйста, почему не работает этот код. Почему не загружается новый шрифт в систему (по крайней мере, моя программа не видит его)
procedure TForm1.FormCreate(Sender: TObject);
begin
  AddFontResource(PChar(ExtractFilePath(ParamStr(0) + "YourFont.TTF")));
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  RemoveFontResource(PChar(ExtractFilePath(ParamStr(0) + "YourFont.TTF")));
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;


 
Olegz77 ©   (2008-06-04 11:27) [1]

По поводу используемых функций ничего не могу сказать. А ошибки нет со скобками при формировании имени файла шрифта - внутри приведения PChar ? ExtractFilePath должен обрабатывать, скорее всего, ParamStr(0), а не ParamStr(0) + "YourFont.TTF"
Наверное так:
PChar(ExtractFilePath(ParamStr(0)) + "YourFont.TTF")


 
{RASkov} ©   (2008-06-04 13:33) [2]

> [0] VovKul   (04.06.08 11:09)

Что покажет данный код:
procedure TForm1.FormCreate(Sender: TObject);
begin
 ShowMessage(IntToStr(
   AddFontResource(PChar(ExtractFilePath(ParamStr(0) + "YourFont.TTF"))));
 SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
?
Если 0 - значит нет шрифтов в файле или самого файла со шрифтом нет....


 
Anatoly Podgoretsky ©   (2008-06-04 14:04) [3]

> VovKul  (04.06.2008 11:09:00)  [0]

AddFontResource вообще то функция, а не процедура, а у тебя не видно анализа и обработки ошибок. Ты что хочешь, что бы мы по телепатировали?



Страницы: 1 вся ветка

Текущий архив: 2008.06.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
2-1212410997
zensan
2008-06-02 16:49
2008.06.29
Множественное наследование


15-1210699066
AEN
2008-05-13 21:17
2008.06.29
Программа для древовидных данных...


2-1212434955
Mariana
2008-06-02 23:29
2008.06.29
Запуск приложения


15-1211107449
@!!ex
2008-05-18 14:44
2008.06.29
Подсветка синтаксиса в MSVS 7.1 C++


2-1212170826
VovKul
2008-05-30 22:07
2008.06.29
Как поместить шрифт в ресурс...