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
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.