home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / SIMPWIND.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  1.2 KB  |  40 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program SimpleWindow;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel, GWindow;
  10.  
  11. begin
  12.   InitGraphic;                   { Initialize the graphics system }
  13.  
  14.   DrawBorder;                    { Draw a border around the drawing }
  15.                                  { area of the primary window }
  16.  
  17.   DefineWindow(1, 10, 20, XMaxGlb-10, YMaxGlb-20);
  18.                                  { Define a window 80 pixels in from }
  19.                                  { the left and right edges, and 20 }
  20.                                  { from the top and bottom edges }
  21.  
  22.   DefineHeader(1,'THIS IS AN EXAMPLE WINDOW'); { Give it a header }
  23.   SetHeaderOn;
  24.  
  25.   DefineWorld(1,0,0,1000,1000);  { Give it a world coordinate system }
  26.  
  27.   SelectWindow(1);               { Select the window }
  28.  
  29.   SelectWorld(1);                { Select the world }
  30.  
  31.   SetBackground(85);             { Give it a grey background }
  32.  
  33.   DrawBorder;                    { Draw the border }
  34.  
  35.   repeat until KeyPressed;       { Wait until a key is pressed }
  36.  
  37.   LeaveGraphic;                  { Leave the graphics system }
  38.  
  39. end. { SimpleWindow }
  40.