SetTextStyle

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

Nastaví styl pro výstup textu v grafickém režimu.

Deklarace
procedure SetTextStyle(Font, Direction: Word; CharSize: Word);
Režim
Reálný, Chráněný
Poznámky
Nastaví aktuální textový font, styl a činitel zvětšování znaků.
Viz také
GetTextSettings
GraphResult
OutText
OutTextXY
SetTextJustify
SetUserCharSize
TextHeight
TextWidth
Styly textu - konstanty


Vzorový příklad

{Settxtst.PAS}
{Vzorový příklad pro proceduru SetTextStyle.}
uses Graph;
var
  Gd, Gm: Integer;
  Y, Size: Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, ' ');
  if GraphResult <> grOk then
    Halt(1);
  Y := 0;
  for Size := 1 to 4 do
  begin
    SetTextStyle(DefaultFont, HorizDir, Size);
    OutTextXY(0, Y, 'Size = ' + Chr(Size + 48));
    Inc(Y, TextHeight('H') + 1);
  end;
  Readln;
  CloseGraph;
end.