GetTextSettings
Verze z 4. 10. 2012, 16:23, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (Created page with "Vrací nastavení pro výstup textu v grafickém režimu. ;Deklarace procedure GetTextSettings(var TextInfo: TextSettingsType); ;Režim :Reálný, Chráněný ;Poznámky :...")
Vrací nastavení pro výstup textu v grafickém režimu.
- Deklarace
procedure GetTextSettings(var TextInfo: TextSettingsType);
- Režim
- Reálný, Chráněný
- Poznámky
- Vrací aktuální textový font, směr, velikost a způsob zarovnání, nastavené procedurami SetTextStyle a SetTextJustify.
- Viz také
- InitGraph
Vzorový příklad
{Gettxtst.PAS} {Vzorový příklad pro proceduru GetTextSettings.} uses Graph; var Gd, Gm: Integer; OldStyle: TextSettingsType; begin Gd := Detect; InitGraph(Gd, Gm, ' '); if GraphResult <> grOk then Halt(1); GetTextSettings(OldStyle); OutTextXY(0, 0, 'Starý styl textu'); SetTextJustify(LeftText, CenterText); SetTextStyle(TriplexFont, VertDir, 4); OutTextXY(GetMaxX div 2, GetMaxY div 2, 'Nový styl'); with OldStyle do begin { Obnovení starého stylu textu } SetTextJustify(Horiz, Vert); SetTextStyle(Font, Direction, CharSize); end; OutTextXY(0, TextHeight('H'), 'Opět starý styl'); Readln; CloseGraph; end.