home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / MOVEWIND.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  3.0 KB  |  92 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program MoveWindows;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel, GWindow, GShell;
  10.  
  11. const
  12.   Null = #0; { The Ascii null character }
  13.  
  14. var
  15.   I : integer;
  16.   Ch : char;
  17.  
  18. procedure DrawLines;
  19. var
  20.   I : integer;
  21. begin
  22.   for I := 1 to 20 do
  23.     DrawLine(I * 50, 0, 1000 - I * 50, I * 50);
  24. end; { DrawLines }
  25.  
  26.  
  27. begin { MoveWindows }
  28.  
  29.   InitGraphic;               { Initialize the graphics system }
  30.  
  31.  
  32.   DrawBorder;                { Draw a border around the drawing }
  33.                              { area of the primary window }
  34.                              { (the dimensions of the primary window }
  35.                              { default to the screen dimensions) }
  36.  
  37.   DefineWindow(1, Trunc(XMaxGlb / 10), Trunc(YMaxGlb / 10),
  38.                   Trunc(XMaxGlb / 2), Trunc(YMaxGlb / 2));
  39.                              { Define a window  one tenth of the way }
  40.                              { in from the left and top edges, and half }
  41.                              { way down from the right and bottom edges }
  42.  
  43.   DefineHeader(1, 'THIS IS THE FIXED WINDOW'); { Give it a header }
  44.  
  45.   DefineWorld(1, 0, 0, 1000, 1000);   { Give it a world coordinate system }
  46.  
  47.  
  48.  
  49.   DefineWindow(2, Trunc(XMaxGlb / 2), Trunc(YMaxGlb / 2),
  50.                   Trunc((XMaxGlb * 9) / 10), Trunc((YMaxGlb * 9) / 10));
  51.                              { Define a window  one half of the way }
  52.                              { in from the left and top edges, and half }
  53.                              { way down from the right and bottom edges }
  54.  
  55.   DefineHeader(2, 'THIS IS THE MOVEABLE WINDOW'); { Give it a header }
  56.  
  57.   DefineWorld(2, 0, 0, 1000, 1000);   { Give it a world coordinate system }
  58.  
  59.   SelectWindow(1);           { Select fixed window }
  60.   SetHeaderOn;
  61.   SelectWorld(1);            { Select it's world }
  62.   SetBackground(0);          { Give it a black background }
  63.   DrawBorder;                { Draw a border around the window }
  64.   DrawLines;                 { Draw lines in it }
  65.   CopyScreen;                { Copy it to the virtual screen }
  66.  
  67.   SetBreakOff;               { Don't error when edge hit }
  68.   SetMessageOff;
  69.  
  70.   SelectWindow(2);           { Select moveable window }
  71.   SetHeaderOn;
  72.   SelectWorld(2);            { Select it's world }
  73.   SetBackground(0);          { Give it a black background }
  74.   DrawBorder;                { Draw a border around the window }
  75.   DrawLines;                 { Draw lines in it }
  76.  
  77.   repeat
  78.     Ch := ReadKey;           { Read the keystroke }
  79.  
  80.     if (Ch = Null) and KeyPressed then { Test for an extended scan code  }
  81.       Ch := ReadKey;
  82.     case Ch of
  83.       'H' : MoveVer(-4, true);   { Up arrow }
  84.       'K' : MoveHor(-1, true);   { Left arrow }
  85.       'M' : MoveHor(1, true);    { Right arrow }
  86.       'P' : MoveVer(4, true);    { Down arrow }
  87.     end;
  88.   until Ch = ' ';            { Space character exits program }
  89.  
  90.   LeaveGraphic;              { Leave the graphics system }
  91. end. { MoveWindows }
  92.