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.