[Back to TEXTEDIT SWAG index] [Back to Main SWAG index] [Original]

    {
    >Anyways, does anyone here have a quick and easy Procedure or
    >Function For centering Text?
    }

    Program CenterIt_Demo;

    Uses
      Crt;

    { Display a String centered on the screen. }
    Procedure DisplayCenter(st_Temp : String; by_Yaxis : Byte);
    begin
      GotoXY(((Succ(Lo(WindMax)) - Length(st_Temp)) div 2), by_Yaxis);
      Writeln(st_Temp);
    end; {DisplayCenter. }

    Var
      by_OldAttr : Byte;

    begin
      ClrScr;
      DisplayCenter('The Spirit of Elvis says... Hi!', 10);
      ReadKey;
    end.

[Back to TEXTEDIT SWAG index] [Back to Main SWAG index] [Original]