home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / COMPUSCI / TOT11.ZIP / TOTDOC11.ZIP / CHAPT18.TXT < prev    next >
Text File  |  1991-02-11  |  15KB  |  334 lines
  1.                                                                        Extending
  2.                                                                          Windows
  3.  
  4.  
  5.          "The success hasn't gone to our price."          Peugeot Motor Company
  6.  
  7.  
  8.  
  9.          Earlier, in chapter 7: Using Windows (page 7-12) a template for
  10.          stretchable windows was presented. This template illustrated how, with
  11.          just a few procedures, you could build customized windows. In this
  12.          chapter you will learn how to use OOP techniques to extend window
  13.          objects, and gain even more flexibility. To illustrate the concepts,
  14.          the StretchWinOBJ object will be extended to provide a generic object
  15.          for scrolling virtual screens.
  16.  
  17.  
  18. Window Object Structure
  19.  
  20.          Before trying to extend the window objects, you need to have an under-
  21.          standing of how the window objects function. The table below describes
  22.          the data declared in each window object.
  23.  
  24.  
  25.                                        WinOBJ
  26.                  Variable                         Description
  27.            vBorder: tCoords     The (X1,Y1,X2,Y2) coordinates of the window
  28.                                 border.
  29.            vOuter: tCoords      The (X1,Y1,X2,Y2) coordinates of the saved
  30.                                 screen area, i.e. window and shadow.
  31.            vUnderneathPtr:      A pointer to the saved image overlaid by the
  32.            pointer              window.
  33.            vSavedSize: longint  The size, in bytes, of the saved area.
  34.            vTitle: string       The window title.
  35.            vBorderAttr          The window display attributes.
  36.            vTitleAttr
  37.            vBodyAttr
  38.            vIconsAttr: byte
  39.            vStyle:byte          The window style.
  40.            vRemove: boolean     A boolean to indicate whether the window will
  41.                                 be removed when the object is Done.
  42.            vCursX,vCursY,       The cursor settings at the time the window was
  43.            vCursTop,            displayed.
  44.            vCursBot: byte
  45.            vOldWin: tByteCoords The window settings at the time the window was
  46.                                 displayed.
  47.            vOldWinConfine:      A boolean to indicate whether window settings
  48.            boolean              were active when the window was displayed.
  49.            vMVisible: boolean   A boolean to indicate whether the mouse was
  50.                                 visible when the window was displayed.
  51.  
  52. 18-2                                                       Extending the Toolkit
  53.  
  54. --------------------------------------------------------------------------------
  55.                                        MoveWinOBJ
  56.                  Variable                         Description
  57.  
  58.  
  59.            vBoundary:tCoords    The (X1,Y1,X2,Y2) coordinates of the area in
  60.                                 which the window can be moved.
  61.            vMoveKey: word       The key to press to invoke a manual (non-mouse)
  62.                                 move.
  63.            vAllowMove:boolean   A boolean to indicate whether the user is
  64.                                 allowed to move the window.
  65.  
  66.                                        ScrollWinOBJ
  67.                  Variable                         Description
  68.            vScrollV:boolean;    A boolean to indicate whether the vertical
  69.                                 scroll bar is visible.
  70.            vScrollH:boolean;    A boolean to indicate whether the horizontal
  71.                                 scroll bar is visible.
  72.  
  73.  
  74.  
  75.                                        StretchWinOBJ
  76.                  Variable                         Description
  77.            vZoomed:boolean      A boolean to indicate whether the window is
  78.                                 currently zoomed.
  79.            vPreZoom:tCoords     The coordinates of the window border prior to
  80.                                 zooming.
  81.            vMinWidth:byte       The minimum width of the window.
  82.            vMinDepth:byte       The minimum depth of the window.
  83.            vStretchKey:word     The key to press to invoke a manual (non-mouse)
  84.                                 stretch.
  85.            vZoomKey:word        The key to press to invoke a manual (non-mouse)
  86.                                 zoom.
  87.            vAllowStretch:       A boolean to indicate whether the user is
  88.            boolean              allowed to stretch the window.
  89.            vSmartStretch:       A boolean to indicate whether the window will
  90.            boolean              be updated during a stretch operation.
  91.  
  92.  
  93.          Note that the type tCoords is defined as follows:
  94.                   tCoords = record
  95.                      X1,Y1,X2,Y2: shortint;
  96.                   end;
  97.  
  98.  
  99.          By now, you should already know most of the window methods in the file
  100.          TOTWIN.PAS. Review the declaration of all four windows objects for a
  101.          complete list of the methods. From an object extension perspective, the
  102.          following methods are important:
  103.          constructor Init;
  104.  
  105.          Initializes the object.
  106.  
  107. Extending Windows                                                           18-3
  108. --------------------------------------------------------------------------------
  109.  
  110.          procedure WinKey(var K:word; var X,Y: byte); VIRTUAL;
  111.  
  112.          WinKey is passed keystroke details as variable parameters. If the key-
  113.          stroke is window specific, e.g. a click on the close icon, a zoom, a
  114.          window stretch etc., the method will process the key and modify the
  115.          relevant window characteristic. The value of K is then updated to indi-
  116.          cate the type of activity, e.g. set to 602 to indicate that the window
  117.          has been re-sized.
  118.          procedure StretchRefresh; VIRTUAL;
  119.  
  120.          While the user is stretching the lower right window, the method Stret-
  121.          chRefresh is continuously called. This is the mechanism for dynamically
  122.          showing the user how the window will appear while it is being
  123.          stretched. The method is only called if the boolean vSmartStretch is
  124.          set to true. There are two important items to consider. Firstly, this
  125.          method will only be called while the window settings are suspended, so
  126.          any screen writing statements in the procedure must use the full-screen
  127.          coordinate system. Secondly, this method must complete its display
  128.          update very quickly. It will be called continuously during a stretch
  129.          operation, and if the procedure takes too long, the user will notice a
  130.          sluggish response.
  131.          procedure Draw; VIRTUAL;
  132.  
  133.          Draw saves the contents of the portion of the screen which will be
  134.          overlaid by the window, and then draws the window and shadow.
  135.          destructor Done; VIRTUAL;
  136.  
  137.          Disposes of the window object memory, and removes the window (if it is
  138.          still visible and the vRemove variable is set to true).
  139.  
  140.          If you extend any window object, you will probably modify most of these
  141.          methods, since they control the window display and input processing
  142.          routines.
  143.  
  144.  
  145.  
  146. Extending StretchWinOBJ
  147.          To illustrate the principles of window extension, a new window object
  148.          for displaying and scrolling virtual screens will be created. You may
  149.          recall that a virtual screen is a screen which has all the properties
  150.          of the physical screen, but is not visible. A virtual screen can be up
  151.          to 255 characters wide and 255 lines deep - quite a screen! The Screen-
  152.          OBJ method PartDisplay can be used to transfer a portion of the virtual
  153.          screen to the visible screen.
  154.  
  155.  
  156.  
  157. 18-4                                                       Extending the Toolkit
  158. --------------------------------------------------------------------------------
  159.  
  160.          The first task in designing the new object is to decide what additional
  161.          data will be needed. Obviously, the object will need to know the
  162.          address of the virtual