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

Вниз

AddFontMemResourceEx   Найти похожие ветки 

 
mrcat ©   (2003-07-09 15:17) [0]

Добрый день!
В программе необходимо грузить шрифты из *.dll Использую AddFontMemResourceEx для добавления ресурса шрифта. Проблема в том, после LoadFontResource шрифт в системе не появляется, хотя возвращаемое AddFontMemResourceEx значение больше 0 (В MSDN указано, что AddFontMemResourceEx возвращает хэндл добавленного шрифта если шрифт успешно добавлен, или 0 в случае ошибки). Может я неверно представляю работу функции? Помогите разобраться.

P.S. AddFontMemResourceEx включена начиная с W2k.

procedure TMyForm.LoadFontResource(const AFontName: string);

resourcestring
SResNotFound = "...";

var
hResFind,
hResFont,
hAddFont: THandle;
hResSize: Integer;
DesignVector: PDesignVector;

begin
New(DesignVector);
try
hResFind := FindResource(hInstance, PChar(AFontName), "FONT");
hResFont := LoadResource(hInstance, hResFind);
if (hResFind = 0) or (hResFont = 0) then
raise Exception.Create(SResNotFound);

hResSize := SizeOfResource(hInstance, hResFont);
hAddFont := AddFontMemResourceEx(Pointer(hResFont), hResSize, nil,
Pointer(DesignVector));
if hAddFont = 0 then
raise Exception.Create(SResNotFound)
else SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
finally
( DesignVector)
Добрый день!
В программе необходимо грузить шрифты из *.dll Использую AddFontMemResourceEx для добавления ресурса шрифта. Проблема в том, после LoadFontResource шрифт в системе не появляется, хотя возвращаемое AddFontMemResourceEx значение больше 0 (В MSDN указано, что AddFontMemResourceEx возвращает хэндл добавленного шрифта если шрифт успешно добавлен, или 0 в случае ошибки). Может я неверно представляю работу функции? Помогите разобраться.

P.S. AddFontMemResourceEx включена начиная с W2k.

procedure TMyForm.LoadFontResource(const AFontName: string);

resourcestring
SResNotFound = "...";

var
hResFind,
hResFont,
hAddFont: THandle;
hResSize: Integer;
DesignVector: PDesignVector;

begin
New(DesignVector);
try
hResFind := FindResource(hInstance, PChar(AFontName), "FONT");
hResFont := LoadResource(hInstance, hResFind);
if (hResFind = 0) or (hResFont = 0) then
raise Exception.Create(SResNotFound);

hResSize := SizeOfResource(hInstance, hResFont);
hAddFont := AddFontMemResourceEx(Pointer(hResFont), hResSize, nil,
Pointer(DesignVector));
if hAddFont = 0 then
raise Exception.Create(SResNotFound)
else SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
finally
Dispose(DesignVector);
end;
end;


 
mrcat ©   (2003-07-10 10:32) [1]

Удалено модератором
Примечание: Offtopic


 
mrcat ©   (2003-07-17 14:29) [2]

Дополнение

hResSize := SizeOfResource(hInstance, hResFont);

следует читать как:

hResSize := SizeOfResource(hInstance, hResFind);

кроме того, проверил GetLastError, возвращает: "Класс не существует." Ошибка: [1411].



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

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

Наверх




Память: 0.47 MB
Время: 0.021 c
7-58951
Сергей Князев
2003-07-04 13:40
2003.09.18
Как добавить свое сообщение в Журнал событий WinNt (WinXP)


1-58732
race1
2003-09-07 14:31
2003.09.18
tscrollbox


1-58624
Abikos
2003-09-05 15:14
2003.09.18
Как переключится в окно ???


14-58888
Vlad Oshin
2003-08-29 13:56
2003.09.18
Задолбали менять начальников :( Один так говорит, другой так


1-58736
Eugene_
2003-09-07 10:46
2003.09.18
Обработка ошибок другой программы