1 578
editací
Změny
bez shrnutí editace
Umožňuje uživateli měnit výšku a šířku znaků u vektorových fontů.
;Deklarace
procedure SetUserCharSize(MultX, DivX, MultY, DivY: Word);
;Režim
:Reálný, Chráněný
;Poznámky
:MultX:DivX je poměr zvětšení horizontálního rozměru znaku vzhledem k jeho normální šířce, MultY:DivY je totéž pro výšku znaku.
:Např. dvojnásobnou šířku znaku dosáhneme dosazením MultX = 2 a DivX = 1 (2 div 1 = 2). Volání [[SetUserCharSize]] nastaví aktuální velikost znaků na určené hodnoty.
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[OutText]]
:[[OutTextXY]]
:[[SetTextStyle]]
:[[TextHeight]]
:[[TextWidth]]
Vzorový příklad
{Setuchsz.PAS}
{Vzorový příklad pro proceduru SetUserCharSize.}
{ Následující program ukazuje, jak změnit výšku a šířku textu: }
uses Graph;
var Driver, Mode: Integer;
begin
Driver := Detect;
InitGraph(Driver, Mode, ' ');
if GraphResult <> grOk then
Halt(1);
{ Showoff }
SetTextStyle(TriplexFont, HorizDir, 4);
OutText('Normální');
SetUserCharSize(1, 3, 1, 1);
OutText('Úzké');
SetUserCharSize(3, 1, 1, 1);
OutText('Široké');
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;Deklarace
procedure SetUserCharSize(MultX, DivX, MultY, DivY: Word);
;Režim
:Reálný, Chráněný
;Poznámky
:MultX:DivX je poměr zvětšení horizontálního rozměru znaku vzhledem k jeho normální šířce, MultY:DivY je totéž pro výšku znaku.
:Např. dvojnásobnou šířku znaku dosáhneme dosazením MultX = 2 a DivX = 1 (2 div 1 = 2). Volání [[SetUserCharSize]] nastaví aktuální velikost znaků na určené hodnoty.
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[OutText]]
:[[OutTextXY]]
:[[SetTextStyle]]
:[[TextHeight]]
:[[TextWidth]]
Vzorový příklad
{Setuchsz.PAS}
{Vzorový příklad pro proceduru SetUserCharSize.}
{ Následující program ukazuje, jak změnit výšku a šířku textu: }
uses Graph;
var Driver, Mode: Integer;
begin
Driver := Detect;
InitGraph(Driver, Mode, ' ');
if GraphResult <> grOk then
Halt(1);
{ Showoff }
SetTextStyle(TriplexFont, HorizDir, 4);
OutText('Normální');
SetUserCharSize(1, 3, 1, 1);
OutText('Úzké');
SetUserCharSize(3, 1, 1, 1);
OutText('Široké');
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]