home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l043 / 3.ddi / TXTWDTH.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1987-11-02  |  474 b   |  27 lines
  1. uses
  2.   Graph;
  3. var
  4.   Gd, Gm : integer;
  5.   Row    : integer;
  6.   Title  : string;
  7.   Size   : integer;
  8.  
  9. begin
  10.   Gd := Detect;
  11.   InitGraph(Gd, Gm, '');
  12.   if GraphResult <> grOk then
  13.     Halt(1);
  14.   Row := 0;
  15.   Title := 'Turbo Graphics';
  16.   Size := 1;
  17.   while TextWidth(Title) < GetMaxX do
  18.   begin
  19.     OutTextXY(0, Row, Title);
  20.     Inc(Row, TextHeight('M'));
  21.     Inc(Size);
  22.     SetTextStyle(DefaultFont, HorizDir, Size);
  23.   end;
  24.   Readln;
  25.   CloseGraph;
  26. end.
  27.