Zobrazení zdroje stránky InstallUserFont

Instaluje nový font.

;Deklarace
 function InstallUserFont(FontFileName: string ): Integer;

;Režim
:Reálný, Chráněný

;Poznámky
:Nový font není zabudovaný do systému BGI.

;Viz také
:[[SetTextStyle]]


Vzorový příklad

 {Instufnt.PAS}
 {Vzorový příklad pro funkci InstallUserFont.}
 uses Graph;
 var
   Driver, Mode: Integer;
   TestFont: Integer;
 begin
   TestFont := InstallUserFont('TEST');   { Instalování fontu }
   if GraphResult <> grOk then
   begin
     Writeln('Chyba při instalaci TestFont (použije se DefaultFont)');
     Readln;
   end;
   Driver := Detect;   { Přepnutí do grafického režimu }
   InitGraph(Driver, Mode, ' ');
   if GraphResult <> grOk then
     Halt(1);
   SetTextStyle(TestFont, HorizDir, 2);   { Použije se nový font }
   OutText('Instalovatelné fonty jsou podporovány...');
   Readln;
   CloseGraph;
 end.
[[Category:Graph]]
[[Category:Funkce Graph]]