TextHeight

Vrací výšku řetězce v pixelech.

Deklarace

function TextHeight(TextString: string): Word;

Režim

Reálný, Chráněný

Poznámky

Zjišťuje výšku TextString v pixelech vynásobením základní velikosti aktuálního fontu násobícím činitelem. Výsledek můžete použít pro správné nastavení meziřádkových mezer, pro určení výšky výřezu a pro jakékoli vkládání textu do plochy s omezením svislého rozměru.

Například v případě bitmapového fontu 8x8 a násobícího činitele 1 (nastaveného pomocí SetTextStyle) je řetězec Turbo 8 pixelů vysoký.

Používejte tuto funkci místo manuálních propočtů i v takovýchto jednoduchých případech, ušetříte si práci při případné změně fontu (nebude nutné upravovat zdrojový text).

Omezení

Je nutno být v grafickém režimu.

Viz také

OutText

OutTextXY

SetTextStyle

TextWidth

Vzorový příklad

{Txthght.PAS}
{Vzorový příklad pro funkci TextHeight.}
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 5 do
  begin
    SetTextStyle(DefaultFont, HorizDir, Size);
    OutTextXY(0, Y, 'Turbo Graphics');
    Inc(Y, TextHeight('Turbo Graphics'));
  end;
  Readln;
  CloseGraph;
end.