Форум "Delphi" (архив)

Паскаль, Делфи

#0 Phoroon 08.11.04 10:44:36 - 08.11.04 14:25:59

Шрифт

Как , при загрузке своего приложения установить , а при выходе удалить данный шрифт!!!
Помогите!

#1 Deep © 08.11.04 12:02:00

Как приложению воспользоваться своими шрифтами?

{Функция загрузки и выгрузки шрифта.}

function LoadFont(sFontFileName: string; bLoadIt: boolean): boolean;
var
  sFont, sAppDir, sFontRes: string;
begin
  result := TRUE;

  if bLoadIt then
  begin
   {Загрузка шрифта.}
   if FileExists(sFontFileName) then
   begin
   sFontRes := sFontFileName +#0;
   if AddFontResource((собачка)sFontRes[1]) = 0 then
   result := FALSE
   else
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
   end;
  end
  else
  begin
   {Выгрузка шрифта.}
   sFontRes := sFontFileName +#0;
   result := RemoveFontResource((собачка)sFontRes[1]);
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
  end;
end; {LoadFont}

#2 Phoroon 08.11.04 14:25:59

Спасибо!!!

Тема находится в архиве

Написать ответ