gettxtst.pas
Пример программы для процедуры GetTextSettings.
Код примера
{Gettxtst.PAS}
{ Пример программы для процедуры 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, 'Old text style');
SetTextJustify(LeftText, CenterText);
SetTextStyle(TriplexFont, VertDir, 4);
OutTextXY(GetMaxX div 2, GetMaxY div 2, 'New style');
{ Восстанавливаем старый стиль }
With OldStyle Do
Begin
SetTextJustify(Horiz, Vert);
SetTextStyle(Font, Direction, CharSize);
End;
OutTextXY(0, TextHeight('H'), 'Old style again');
ReadLn;
CloseGraph;
End.
Скачать gettxtst.pas