home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 08 / pulldown / pdvar.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-05-27  |  3.8 KB  |  86 lines
  1. (* ----------------------------------------------------------------------- *)
  2. (*                              PDVAR.PAS                                  *)
  3. (*                  System- und PULLDOWN-Variablen                         *)
  4.  
  5. (* Bildschirm und Bildschirm-Puffer: *)
  6.       SaveRAM   :ARRAY [1..ScreenLen] OF BYTE;
  7.       ScreenRAM :ARRAY [1..ScreenLen] OF BYTE ABSOLUTE ScreenSeg:ScreenOfs;
  8.  
  9. (* Vereinbarung der vom Pull-Down-Demo verwendeten Menus. Hier als typi-   *)
  10. (* sierte Konstanten (TURBO-PASCAL!!), was Variablen mit einem definierten *)
  11. (* Anfangswert entspricht. In anderen Dialekten muessen die hier aufge-    *)
  12. (* fuehrten Groessen als VARiablen vereinbart und explizit initialisiert   *)
  13. (* werden (Zuweisungen!). Siehe auch Begleitartikel!                       *)
  14.  
  15. CONST NoMenus = 7;                                     (* 7 Menues im Demo *)
  16.  
  17.       fcol    = white;                                      (* Rahmenfarbe *)
  18.       ntcol   = black;                                    (* normaler Text *)
  19.       nbcol   = lightgray;                         (* normaler Hintergrund *)
  20.       stcol   = white;                                (* selektierter Text *)
  21.       sbcol   = black;                         (* selektierter Hintergrund *)
  22.  
  23.       (* Die Bildschirm-Anfangspositionen der Menues: *)
  24.  
  25.       xpos :ARRAY [1..NoMenus] OF INTEGER = (1,1,15,27,40,53,66);
  26.       ypos :ARRAY [1..NoMenus] OF INTEGER = (1,2,2,2,2,2,2);
  27.  
  28. (* ----------------------------------------------------------------------- *)
  29.  
  30.    Menu :ARRAY [1..NoMenus] OF MenuType =
  31.  (* Main Menu: *)
  32.     ((Item: ('    File     ','   Action    ','    Disk     ',
  33.              '   Tools     ','    Exit     ','  Controls     ');
  34.       NoItems: 6; LastItem: 1;
  35.       FrameColor: lightgray;
  36.       NormalText: lightgray; NormalBack: black;
  37.       SelectText: black;     SelectBack: lightgray;
  38.       vertical  : FALSE;     Frame     : FALSE),
  39.  (* File Menu: *)
  40.      (Item: (' Work File  ',' Main File  ',' SaveQuit   ',
  41.              ' SaveCont   ',' QuitNoSave ','');
  42.       NoItems: 5; LastItem: 1;
  43.       FrameColor: fcol;
  44.       NormalText: ntcol; NormalBack : nbcol;
  45.       SelectText: stcol; SelectBack : sbcol;
  46.       vertical  : TRUE;  Frame      : TRUE),
  47.  (* Action Menu: *)
  48.      (Item: (' Edit    ',' Compile ',' Link    ',' Run     ','','');
  49.       NoItems: 4; LastItem: 1;
  50.       FrameColor: fcol;
  51.       NormalText: ntcol; NormalBack : nbcol;
  52.       SelectText: stcol; SelectBack : sbcol;
  53.       vertical  : TRUE;  Frame      : TRUE),
  54.  (* Disk Menu: *)
  55.      (Item: (' Directory    ',' Logged Drive ',' Set Paths    ','','','');
  56.       NoItems: 3; LastItem: 1;
  57.       FrameColor: fcol;
  58.       NormalText: ntcol; NormalBack : nbcol;
  59.       SelectText: stcol; SelectBack : sbcol;
  60.       vertical  : TRUE;  Frame      : TRUE),
  61.  (* Tools Menu: *)
  62.      (Item: (' Execute     ',' Calculator  ',' Clock       ',
  63.              ' ASCII-Table ',' Help        ','');
  64.       NoItems: 5; LastItem: 1;
  65.       FrameColor: fcol;
  66.       NormalText: ntcol; NormalBack : nbcol;
  67.       SelectText: stcol; SelectBack : sbcol;
  68.       vertical  : TRUE;  Frame      : TRUE),
  69.  (* Exit Menu: *)
  70.      (Item: ('  ExitToDOS ','  Continue  ','','','','');
  71.       NoItems: 2; LastItem: 1;
  72.       FrameColor: fcol;
  73.       NormalText: ntcol; NormalBack : nbcol;
  74.       SelectText: stcol; SelectBack : sbcol;
  75.       vertical  : TRUE;  Frame      : TRUE),
  76.  (* Controls Menu: *)
  77.      (Item: (' Sound      ',' WindowSize ',' AutoSave   ',
  78.              ' LinkerOpt  ','','');
  79.       NoItems: 4; LastItem: 1;
  80.       FrameColor: fcol;
  81.       NormalText: ntcol; NormalBack : nbcol;
  82.       SelectText: stcol; SelectBack : sbcol;
  83.       vertical  : TRUE;  Frame      : TRUE));
  84. (* ----------------------------------------------------------------------- *)
  85. (*                        Ende von PDVAR.PAS                               *)
  86.