home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / MULTWIND.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  2.7 KB  |  78 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program MultipleWindows;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel;
  10.  
  11. var
  12.   I : integer;
  13.  
  14. procedure DrawLines;
  15. var
  16.   I : integer;
  17. begin
  18.   for I := 1 to 20 do
  19.     DrawLine(I * 50, 0, 1000 - I * 50, I * 50);
  20. end; { DrawLines }
  21.  
  22. begin
  23.   InitGraphic;               { Initialize the graphics system }
  24.  
  25.  
  26.   DrawBorder;                { Draw a border around the drawing }
  27.                              { area of the primary window }
  28.                              { (the dimensions of the primary window }
  29.                              { default to the screen dimensions) }
  30.  
  31.   DefineWindow(1, Trunc(XMaxGlb / 10), Trunc(YMaxGlb / 10),
  32.                   Trunc(XMaxGlb / 2), Trunc(YMaxGlb / 2));
  33.                              { Define a window  one tenth of the way }
  34.                              { in from the left and top edges, and half }
  35.                              { way down from the right and bottom edges }
  36.  
  37.   DefineHeader(1, 'THIS IS A LARGER WORLD'); { Give it a header }
  38.  
  39.   DefineWorld(1, 0, 0, 2000, 2000); { Give it a larger world coordinate system }
  40.  
  41.  
  42.   DefineWindow(2, Trunc(XMaxGlb / 3), Trunc(YMaxGlb / 3),
  43.                   Trunc((XMaxGlb * 2) / 3), Trunc((YMaxGlb * 2) / 3) );
  44.                              { Define a window  one third of the way }
  45.                              { in from the left and top edges, and }
  46.                              { from the right and bottom edges }
  47.  
  48.   DefineHeader(2, 'THIS IS A CORRECT WORLD'); { Give it a header }
  49.  
  50.   DefineWorld(2, 0, 0, 1000, 1000); { Give it a correct world coordinate system }
  51.  
  52.  
  53.   DefineWindow(3, Trunc(XMaxGlb / 2), Trunc(YMaxGlb / 2),
  54.                   Trunc((XMaxGlb * 9) / 10), Trunc((YMaxGlb * 9) / 10));
  55.                              { Define a window  one half of the way }
  56.                              { in from the left and top edges, and half }
  57.                              { way down from the right and bottom edges }
  58.  
  59.   DefineHeader(3, 'THIS IS A SMALLER WORLD'); { Give it a header }
  60.  
  61.   DefineWorld(3, 0, 0, 500, 500); { Give it a smaller world coordinate system }
  62.  
  63.   for I := 1 to 3 do
  64.   begin
  65.     SelectWindow(I);         { Select window }
  66.     SetHeaderOn;             { Set the window header on }
  67.     SelectWorld(I);          { Select a world coordinate system }
  68.     SetBackground(0);        { Give the window a black background }
  69.     DrawBorder;              { Draw a border around  the window }
  70.     DrawLines;               { Draw lines }
  71.   end;
  72.  
  73.   repeat until KeyPressed;   { Wait until a key is pressed }
  74.  
  75.   LeaveGraphic;              { Leave the graphics system }
  76.  
  77. end. { MultipleWindows }
  78.