VPF::AddFontMemResourceEx - Форум программистов

navodri

Дата 21.6.2010, 18:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 173
Регистрация: 26.10.2007

Репутация: нет
Всего: -1

Пробую загрузить шрифт из ресурсов. На вызове функции AddFontMemResourceEx вместо хендла шрифта получаю 0. Помогите!

Код


var
 MemFontHandle: HFONT;

procedure TForm1.Button1Click(Sender: TObject);
var
 ResAddr: pointer;
 Res:HGLOBAL;
 Src:HRSRC;
 FontCount:DWORD;
 ResSize: WORD;
// Font: HWND;
 pdv: PVOID;
begin
 Src := FindResource(hInstance,  MAKEINTRESOURCE(3), 'BINRES');
  if Src <> 0 then begin
   Res := LoadResource(hInstance, Src);
   ResSize := SizeofResource(hInstance, Src);
   ResAddr := LockResource(Res);
   FontCount := 1;

   MemFontHandle := AddFontMemResourceEx(ResAddr, ResSize, nil, @FontCount); //получаем 0
   if MemFontHandle <> 0 then caption := 'OK!';

   UnlockResource(Res);
   FreeResource(Src);
  end else caption := 'ops!';

   SendMessage(Edit1.Handle, WM_SETFONT, MemFontHandle, 0);
end;

Это сообщение отредактировал(а) navodri - 22.6.2010, 16:52

navodri

Дата 16.7.2010, 10:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 173
Регистрация: 26.10.2007

Репутация: нет
Всего: -1

Ребята, ну хоть какие-то соображения по этому поводу есть?
У кого-то этот код работает?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »