home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / bix / dispdef.sys < prev    next >
Encoding:
Text File  |  1986-08-04  |  3.2 KB  |  69 lines
  1. (************************************************************************)
  2. (*                                                                      *)
  3. (*                                                                      *)
  4. (*                          DISPDEF.SYS                                 *)
  5. (*             TYPE DECLARATIONS FOR WINDOW UTILITIES                   *)
  6. (*                                                                      *)
  7. (*                                                                      *)
  8. (*      WRITTEN BY:  JOHN LEONARD    ---  1/25/86                       *)
  9. (*                                                                      *)
  10. (*                                                                      *)
  11. (*          NOT FOR SALE WITHOUT WRITTEN PERMISSION                     *)
  12. (*                                                                      *)
  13. (*                                                                      *)
  14. (************************************************************************)
  15.  
  16. const
  17.    DefaultAttribute : integer =  7;
  18.    DefaultFiller    : integer = 32;
  19.    MaxDisplayStack  = 15;
  20.    DisplayTop       : integer = MaxDisplayStack;
  21.    HardwareTop      =  0;
  22.    DefaultRegenSize = 4096;   { 4K Screen buffer size }
  23.    DefaultWidth     = 80;
  24.  
  25.  
  26. type
  27.     Window_String       = string[7];
  28.     Window_Little_String= string[20];
  29.     Window_Medium_String= string[80];
  30.     Window_Big_String   = string[255];
  31.     Window_Char_Set     = set of char;
  32.     Initial_Screen_Data = record
  33.                              regen : integer;
  34.                              conout: integer;
  35.                              mtype : window_string;
  36.                              stype : window_string;
  37.                              hardb : integer;
  38.                              x,y,s1,s2 : integer;
  39.                           end;
  40.     Window_Locations    = record
  41.                              xloc,yloc   : integer;
  42.                              framed      : boolean;
  43.                              flen,hlen   : integer;
  44.                              x1,y1,x2,y2 : integer;
  45.                           end;
  46.     Current_Screen_Data = record
  47.                              hardb       : integer;
  48.                              regen       : integer;
  49.                              page        : integer;
  50.                              attribute   : integer;
  51.                              filler      : integer;
  52.                              s1,s2       : integer;
  53.                              windowloc   : array [0..MaxDisplayStack]
  54.                                             of Window_Locations;
  55.                           end;
  56.     Mono_Screen_buffer  = array [0..4095] of byte;
  57.     Mono_Screen_Pointer = ^Mono_Screen_Buffer;
  58.     Mono_Screen_Locs    = array [0..MaxDisplayStack] of Mono_Screen_Pointer;
  59.     Display_Record      = record
  60.                                     info : window_Locations;
  61.                                     data : Mono_Screen_Buffer;
  62.                           end;
  63.     Attribute_Rec  = array [1..3] of byte;
  64.  
  65. var
  66.     Displaystack        : Mono_Screen_Locs;
  67.     CurrentScreenData   : Current_Screen_Data;
  68.     InitialScreenData   : Initial_Screen_Data;
  69.