SetUserCharSize

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.