SetUserCharSize

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

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.