Свой шрифт в программе

[apromix]

Делаю все вроде бы правильно, но вместо кириллицы получаю квадратики. Как поступить? Где ошибка? Скрин и исходник выложил.

[Stilet]

Во-первых: Желательно фонты новые устанавливать стандартными средствами Винды.
Во вторых попробовал так:

procedure TForm1.FormCreate(Sender: TObject);
begin
  AddFontResource(PChar('wnl.ttf'));
  SendMessage(handle,WM_FONTCHANGE,0,0);

  Font.Name := 'WNL';
  Font.Size := 24;
  Font.Style := [];
end;

Работает, но я не уверен что правильный фонт загрузился, мне сравнить не с чем.

[apromix]

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

[Stilet]

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

Ну я лично незнаю таких способов )
Даже когда нам с программами приходят шрифты со стороны их (шрифты) приходится ручками ставить.

[raxp]

Stilet, у него в исходниках так и есть... у меня, ничего не менял, все ок (см. скрин)...
думаю дело в кодировках у вас - это уже неактуально

Просто на других компах вся прога - набор квадратиков Хотя у меня шрифт отображается правильно, и латиница, и кириллица.

оп-а, уже наваяли тут сообщений ну тады меняйте в своей программе кодировки на тех машинах.

[apromix]

raxp

А нельзя ли нужную кодировку задать сразу в исходнике, чтобы избежать некорректного отображения шрифта?

[Stilet]

думаю дело в кодировках у вас

Может быть, но с чего бы...

[apromix]

Пишу так, но не помогает

  AddFontResource(PChar('WNL.TTF'));
  SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
  Font.Charset := RUSSIAN_CHARSET;
  Font.Name := 'WienLight';
  Font.Size := 24;
  Font.Style := [];

А как вообще эти кодировки в системе настроить?

[raxp]

Цитата:думаю дело в кодировках у вас
Stilet
Может быть, но с чего бы...

це була вiдповiдь на перший пост, дык для apromix

apromix
А нельзя ли нужную кодировку задать сразу в исходнике, чтобы избежать некорректного отображения шрифта?

опробовать сие...

reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('System\CurrentControlSet\Control\Nls\Codepage',true);
  reg.WriteString('1250', 'C_1251.nls');
  reg.WriteString('1252', 'C_1251.nls');

UPD
-------

Не помогло.

после копаний в реестре, перезагрузиться-бы желательно.

[apromix]

Спасибо всем Не помогло. я решил просто отказаться от этого шрифта в пользу другого -- время - деньги