home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TWINS11.ZIP / MENUS.INF < prev    next >
Encoding:
Text File  |  1990-02-15  |  2.0 KB  |  67 lines
  1.  
  2. UNIT Menus;
  3.  
  4.                         (***********************************)
  5.                         (*       TWINS Version 1.00        *)
  6.                         (***********************************)
  7.                         (*     Object -Oriented Windows    *)
  8.                         (*  for Turbo Pascal Version 5.5   *)
  9.                         (*         Copyright 1990          *)
  10.                         (*          Brian Corll            *)
  11.                         (*       All Rights Reserved       *)
  12.                         (***********************************)
  13.                         (***********************************)
  14.                         (*   Turbo Pascal is a registered  *)
  15.                         (* trademark of Borland Int. Corp. *)
  16.                         (***********************************)
  17.                         (*   Portions Copyright 1984,1989  *)
  18.                         (*    Borland International Corp.  *)
  19.                         (***********************************)
  20.                         (***********************************)
  21.  
  22.  
  23. INTERFACE
  24.  
  25. Uses Dos,Screens,Windows,Keys;
  26.  
  27.  
  28. TYPE
  29. BlinkStatus = (BlinkOn,BlinkOff);
  30. Str2 = String[2];
  31. Str40 = String[40];
  32. Str80 = String[80];
  33. MenuRec = RECORD
  34.    Row,Col    : BYTE;
  35.    MenuPrompt : String[40];
  36.    MenuHelp   : String[80];
  37.    MenuLevel  : String[2];
  38.    END;
  39.  
  40.    MenuDesc = ARRAY[1..32] OF MenuRec;
  41.  
  42. VAR
  43.    ColorWindow : WindowPtr;
  44.    Row,Col,Color : BYTE;
  45.    Ch : CHAR;
  46.    MaxRow,MaxCol,MinRow,MinCol : BYTE;
  47.    BoxBuf : POINTER;
  48.    WinEndCol : BYTE;
  49.    Blinkers : BOOLEAN;
  50.  
  51. PROCEDURE MenuDef(VAR TheMenu : MenuDesc;ItemNo : BYTE;Row,Col : BYTE;
  52.    MPrompt : Str40;MHelp : Str80);
  53.  
  54. FUNCTION  Menu(MenuItems : MenuDesc;LoColor,HiColor,HelpColor : BYTE;
  55.           FirstItem,NumItems : BYTE) : BYTE;
  56.  
  57. PROCEDURE CreateColorMenu(TLRow,TLCol : BYTE;ShowBlinking : BlinkStatus);
  58.  
  59. FUNCTION  ColorSelect : BYTE;
  60.  
  61. PROCEDURE DestroyColorMenu;
  62.  
  63.  
  64.  
  65. IMPLEMENTATION
  66.  
  67.