1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Created page with "Instaluje nový font. ;Deklarace function InstallUserFont(FontFileName: string ): Integer; ;Režim :Reálný, Chráněný ;Poznámky :Nový font není zabudovaný do syst..."
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:Procedúry Graph]]
;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:Procedúry Graph]]
