1 578
editací
Změny
Created page with "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..."
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.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;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.
[[Category:Graph]]
[[Category:Procedúry Graph]]