Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "WinAPI";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.011 c
14-60345
zeppelin
2003-06-02 12:22
2003.06.19
Отчет с помощью Rave


1-60205
Erik
2003-06-05 10:43
2003.06.19
Опрос свех инстанций com сервера.


14-60411
Yakudza
2003-06-02 17:29
2003.06.19
Малколм Макдауэлл


8-60268
NeoClub's Lider
2003-03-04 23:40
2003.06.19
Звук в Дельфине 5.0


14-60355
Странник
2003-05-30 11:05
2003.06.19
Вулфовиц: Уничтожение ОМУ не было основной целью США в Ираке





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский