Вниз
Скачать: CL | DM;

Использование своего шрифта   Найти похожие ветки 

← →
Keymaster ©   (2003-04-21 14:23) [0]

Как подключить свой шрифт понятно (нашёл в FAQ),
а как его после этого использовать?
Т.к. при попытке установить font.name при работе
вместо него используется courier


← →
MBo ©   (2003-04-21 14:33) [1]

addfontresource+WM_FONTCHANGE


← →
Keymaster ©   (2003-04-21 14:49) [2]

не работает.


← →
MBo ©   (2003-04-21 14:53) [3]

все работает. Проанализируй ошибки Addfontresource.
Код покажи.


← →
Keymaster ©   (2003-04-21 15:25) [4]

AddFontResource( PChar("c:\geeksfnt.ttf" ) );
SendMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
Label1.Font.Name := "geeksfnt";


← →
MBo ©   (2003-04-21 15:31) [5]

кусок из раб. программы
может, у тебя имя файла отличается от имени шрифта?

AddFontResource(PChar("myfont.ttf"));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
...
label1.font.name:="myfont";


← →
Игорь Шевченко ©   (2003-04-21 15:36) [6]


> SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);


PostMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);


← →
Keymaster ©   (2003-04-21 15:43) [7]

имя файла с именем шрифта совпадают...


← →
Keymaster ©   (2003-04-21 15:45) [8]

procedure TSettingsForm.ButtonApply(Sender: TObject);
begin
AddFontResource( PChar("c:\geeksfnt.ttf" ) );
// SendMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
PostMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
Label1.Font.Name := "geeksfnt";
end;


← →
Игорь Шевченко ©   (2003-04-21 16:05) [9]

int AddFontResource(

LPCTSTR lpszFilename // pointer to font-resource filename
);

Return Values

If the function succeeds, the return value specifies the number of fonts added.
If the function fails, the return value is zero. To get extended error information, call GetLastError.

Я к тому, что результат функции надо проанализировать...


← →
Keymaster ©   (2003-04-21 16:22) [10]

AddFontResource( PChar("c:\geeksfnt.ttf" ) )
возвращает "1"



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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.017 c
14-60314
Neox
2003-05-31 13:56
2003.06.19
Delphi 6 и Service Pack


1-60175
XobBIT
2003-06-07 15:13
2003.06.19
Как в run-time добавить кнопки в TToolBar?


14-60404
Думкин
2003-06-03 12:42
2003.06.19
Цивилизация и .... мы.


3-60033
Карелин Артем
2003-05-27 16:29
2003.06.19
Обновление запроса.


1-60170
deedlit
2003-06-06 15:19
2003.06.19
Оскомина работы с эксплорером...




   Наверх