home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / DRWSTXT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  1.3 KB  |  44 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program DrawStandardText;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel;
  10.  
  11. const
  12.   MaxWorldX : Float = 1000.0;
  13.   MaxWorldY : Float = 1000.0;
  14.  
  15. var
  16.   I : integer;
  17.   CharHeight, CharWidth : Float;
  18.  
  19. begin
  20.   InitGraphic;                      { Initialize the graphics system }
  21.  
  22.   DefineWorld(1, 0, 0, MaxWorldX, MaxWorldX);    { Define the world to draw in }
  23.   SelectWorld(1);                   { Select the world and window }
  24.   SelectWindow(1);
  25.   DrawBorder;
  26.  
  27.   GotoXY(39, 12);                   { Goto the center of the text screen }
  28.   Writeln('* <- This should be at the center '); { Write two lines of text }
  29.   Write('This should be on the next line');
  30.  
  31.   CharWidth := MaxWorldX / 80;      { Compute a character's width }
  32.   CharHeight := MaxWorldY / 25;     { Compute a character's height }
  33.  
  34.   DrawSquare(9*CharWidth, 7*CharHeight,          { Draw box at text loc [10,8] }
  35.             (22*CharWidth)+2, (8*CharHeight)+2, true);
  36.  
  37.   GotoXY(10, 8);                    { Position cursor }
  38.  
  39.   Write('Text in a box');           { Write text in it }
  40.  
  41.   repeat until KeyPressed;          { Wait until a key is pressed }
  42.   LeaveGraphic;                     { Leave the graphics system }
  43. end. { DrawStandardText }
  44.