home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CMPLTPAS.ZIP / DEMOMENU.DEF < prev    next >
Encoding:
Text File  |  1988-07-24  |  19.5 KB  |  344 lines
  1. {->>>>DemoMenu<<<<---------------------------------------------}
  2. {                                                              }
  3. { Filename : DEMOMENU.DEF -- Last Modified 7/14/88             }
  4. {                                                              }
  5. { This may be the largest structured constant you'll ever see. }
  6. { It defines a menu used by the PULLDOWN.PAS menu unit, which  }
  7. { implements a pulldown menuing system using the BGI.  You can }
  8. { copy this file to a new file and modify it to suit your      }
  9. { own applications.                                            }
  10. {                                                              }
  11. { The MenuDesc type is defined in unit PullDown.               }
  12. {                                                              }
  13. {     From: COMPLETE TURBO PASCAL 5.0  by Jeff Duntemann       }
  14. {    Scott, Foresman & Co., Inc. 1988   ISBN 0-673-38355-5     }
  15. {--------------------------------------------------------------}
  16.  
  17. CONST
  18.   DemoMenu : MenuDesc =
  19.              ((XStart    : 18; XEnd : 58;
  20.                Title     : 'Files';
  21.                MenuSize  : 11;
  22.                Imageptr  : NIL;
  23.                Active    : True;
  24.                Choices   : 5; ItemList  :
  25.                ((Item : 'Retrieve'; ItemCode : 21; ItemActive : True),
  26.                 (Item : 'Save';     ItemCode : 22; ItemActive : True),
  27.                 (Item : 'Delete';   ItemCode : 23; ItemActive : True),
  28.                 (Item : 'Rename';   ItemCode : 24; ItemActive : True),
  29.                 (Item : 'Quit';     ItemCode : 25; ItemActive : True),
  30.                 (Item : ''; ItemCode : 0; ItemActive : False),
  31.                 (Item : ''; ItemCode : 0; ItemActive : False),
  32.                 (Item : ''; ItemCode : 0; ItemActive : False),
  33.                 (Item : ''; ItemCode : 0; ItemActive : False),
  34.                 (Item : ''; ItemCode : 0; ItemActive : False),
  35.                 (Item : ''; ItemCode : 0; ItemActive : False),
  36.                 (Item : ''; ItemCode : 0; ItemActive : False),
  37.                 (Item : ''; ItemCode : 0; ItemActive : False),
  38.                 (Item : ''; ItemCode : 0; ItemActive : False),
  39.                 (Item : ''; ItemCode : 0; ItemActive : False),
  40.                 (Item : ''; ItemCode : 0; ItemActive : False),
  41.                 (Item : ''; ItemCode : 0; ItemActive : False),
  42.                 (Item : ''; ItemCode : 0; ItemActive : False),
  43.                 (Item : ''; ItemCode : 0; ItemActive : False))),
  44.               (XStart    : 74; XEnd      : 114;
  45.                Title     : 'Edit';
  46.                MenuSize  : 11;
  47.                Imageptr  : NIL;
  48.                Active    : True;
  49.                Choices   : 9; ItemList  :
  50.                ((Item : 'Grab';    ItemCode : 31; ItemActive : True),
  51.                 (Item : 'Pull';    ItemCode : 32; ItemActive : True),
  52.                 (Item : 'Erase';   ItemCode : 33; ItemActive : False),
  53.                 (Item : 'Join';    ItemCode : 34; ItemActive : False),
  54.                 (Item : 'Swap';    ItemCode : 35; ItemActive : False),
  55.                 (Item : 'Invert';  ItemCode : 36; ItemActive : True),
  56.                 (Item : 'Recolor'; ItemCode : 37; ItemActive : True),
  57.                 (Item : 'Split';   ItemCode : 38; ItemActive : True),
  58.                 (Item : 'Duplicate'; ItemCode : 39; ItemActive : True),
  59.                 (Item : ''; ItemCode : 0; ItemActive : False),
  60.                 (Item : ''; ItemCode : 0; ItemActive : False),
  61.                 (Item : ''; ItemCode : 0; ItemActive : False),
  62.                 (Item : ''; ItemCode : 0; ItemActive : False),
  63.                 (Item : ''; ItemCode : 0; ItemActive : False),
  64.                 (Item : ''; ItemCode : 0; ItemActive : False),
  65.                 (Item : ''; ItemCode : 0; ItemActive : False),
  66.                 (Item : ''; ItemCode : 0; ItemActive : False),
  67.                 (Item : ''; ItemCode : 0; ItemActive : False),
  68.                 (Item : ''; ItemCode : 0; ItemActive : False))),
  69.               (XStart    : 129; XEnd      : 175;
  70.                Title     : 'Draw';
  71.                MenuSize  : 11;
  72.                Imageptr  : NIL;
  73.                Active    : True;
  74.                Choices   : 4; ItemList  :
  75.                ((Item : 'Freehand';  ItemCode : 41; ItemActive : True),
  76.                 (Item : 'Polyline';  ItemCode : 42; ItemActive : True),
  77.                 (Item : 'Spray';     ItemCode : 43; ItemActive : True),
  78.                 (Item : 'Dragstamp'; ItemCode : 44; ItemActive : True),
  79.                 (Item : ''; ItemCode : 0; ItemActive : False),
  80.                 (Item : ''; ItemCode : 0; ItemActive : False),
  81.                 (Item : ''; ItemCode : 0; ItemActive : False),
  82.                 (Item : ''; ItemCode : 0; ItemActive : False),
  83.                 (Item : ''; ItemCode : 0; ItemActive : False),
  84.                 (Item : ''; ItemCode : 0; ItemActive : False),
  85.                 (Item : ''; ItemCode : 0; ItemActive : False),
  86.                 (Item : ''; ItemCode : 0; ItemActive : False),
  87.                 (Item : ''; ItemCode : 0; ItemActive : False),
  88.                 (Item : ''; ItemCode : 0; ItemActive : False),
  89.                 (Item : ''; ItemCode : 0; ItemActive : False),
  90.                 (Item : ''; ItemCode : 0; ItemActive : False),
  91.                 (Item : ''; ItemCode : 0; ItemActive : False),
  92.                 (Item : ''; ItemCode : 0; ItemActive : False),
  93.                 (Item : ''; ItemCode : 0; ItemActive : False))),
  94.                 (XStart    : 179; XEnd      : 215;
  95.                Title     : 'Text';
  96.                MenuSize  : 11;
  97.                Imageptr  : NIL;
  98.                Active    : True;
  99.                Choices   : 5; ItemList  :
  100.                ((Item : 'Load Font';     ItemCode : 51; ItemActive : True),
  101.                 (Item : 'Place Text';    ItemCode : 52; ItemActive : True),
  102.                 (Item : 'Set Direction'; ItemCode : 53; ItemActive : True),
  103.                 (Item : 'Dropshadow';    ItemCode : 54; ItemActive : True),
  104.                 (Item : 'Point Size';    ItemCode : 55; ItemActive : True),
  105.                 (Item : ''; ItemCode : 0; ItemActive : False),
  106.                 (Item : ''; ItemCode : 0; ItemActive : False),
  107.                 (Item : ''; ItemCode : 0; ItemActive : False),
  108.                 (Item : ''; ItemCode : 0; ItemActive : False),
  109.                 (Item : ''; ItemCode : 0; ItemActive : False),
  110.                 (Item : ''; ItemCode : 0; ItemActive : False),
  111.                 (Item : ''; ItemCode : 0; ItemActive : False),
  112.                 (Item : ''; ItemCode : 0; ItemActive : False),
  113.                 (Item : ''; ItemCode : 0; ItemActive : False),
  114.                 (Item : ''; ItemCode : 0; ItemActive : False),
  115.                 (Item : ''; ItemCode : 0; ItemActive : False),
  116.                 (Item : ''; ItemCode : 0; ItemActive : False),
  117.                 (Item : ''; ItemCode : 0; ItemActive : False),
  118.                 (Item : ''; ItemCode : 0; ItemActive : False))),
  119.                 (XStart    : 15; XEnd      : 55;
  120.                Title     : '';
  121.                MenuSize  : 0;
  122.                Imageptr  : NIL;
  123.                Active    : False;
  124.                Choices   : 0; ItemList  :
  125.                ((Item : ''; ItemCode : 0; ItemActive : False),
  126.                 (Item : ''; ItemCode : 0; ItemActive : False),
  127.                 (Item : ''; ItemCode : 0; ItemActive : False),
  128.                 (Item : ''; ItemCode : 0; ItemActive : False),
  129.                 (Item : ''; ItemCode : 0; ItemActive : False),
  130.                 (Item : ''; ItemCode : 0; ItemActive : False),
  131.                 (Item : ''; ItemCode : 0; ItemActive : False),
  132.                 (Item : ''; ItemCode : 0; ItemActive : False),
  133.                 (Item : ''; ItemCode : 0; ItemActive : False),
  134.                 (Item : ''; ItemCode : 0; ItemActive : False),
  135.                 (Item : ''; ItemCode : 0; ItemActive : False),
  136.                 (Item : ''; ItemCode : 0; ItemActive : False),
  137.                 (Item : ''; ItemCode : 0; ItemActive : False),
  138.                 (Item : ''; ItemCode : 0; ItemActive : False),
  139.                 (Item : ''; ItemCode : 0; ItemActive : False),
  140.                 (Item : ''; ItemCode : 0; ItemActive : False),
  141.                 (Item : ''; ItemCode : 0; ItemActive : False),
  142.                 (Item : ''; ItemCode : 0; ItemActive : False),
  143.                 (Item : ''; ItemCode : 0; ItemActive : False))),
  144.                 (XStart    : 15; XEnd      : 55;
  145.                Title     : '';
  146.                MenuSize  : 0;
  147.                Imageptr  : NIL;
  148.                Active    : False;
  149.                Choices   : 0; ItemList  :
  150.                ((Item : ''; ItemCode : 0; ItemActive : False),
  151.                 (Item : ''; ItemCode : 0; ItemActive : False),
  152.                 (Item : ''; ItemCode : 0; ItemActive : False),
  153.                 (Item : ''; ItemCode : 0; ItemActive : False),
  154.                 (Item : ''; ItemCode : 0; ItemActive : False),
  155.                 (Item : ''; ItemCode : 0; ItemActive : False),
  156.                 (Item : ''; ItemCode : 0; ItemActive : False),
  157.                 (Item : ''; ItemCode : 0; ItemActive : False),
  158.                 (Item : ''; ItemCode : 0; ItemActive : False),
  159.                 (Item : ''; ItemCode : 0; ItemActive : False),
  160.                 (Item : ''; ItemCode : 0; ItemActive : False),
  161.                 (Item : ''; ItemCode : 0; ItemActive : False),
  162.                 (Item : ''; ItemCode : 0; ItemActive : False),
  163.                 (Item : ''; ItemCode : 0; ItemActive : False),
  164.                 (Item : ''; ItemCode : 0; ItemActive : False),
  165.                 (Item : ''; ItemCode : 0; ItemActive : False),
  166.                 (Item : ''; ItemCode : 0; ItemActive : False),
  167.                 (Item : ''; ItemCode : 0; ItemActive : False),
  168.                 (Item : ''; ItemCode : 0; ItemActive : False))),
  169.                 (XStart    : 15; XEnd      : 55;
  170.                Title     : '';
  171.                MenuSize  : 0;
  172.                Imageptr  : NIL;
  173.                Active    : False;
  174.                Choices   : 0; ItemList  :
  175.                ((Item : ''; ItemCode : 0; ItemActive : False),
  176.                 (Item : ''; ItemCode : 0; ItemActive : False),
  177.                 (Item : ''; ItemCode : 0; ItemActive : False),
  178.                 (Item : ''; ItemCode : 0; ItemActive : False),
  179.                 (Item : ''; ItemCode : 0; ItemActive : False),
  180.                 (Item : ''; ItemCode : 0; ItemActive : False),
  181.                 (Item : ''; ItemCode : 0; ItemActive : False),
  182.                 (Item : ''; ItemCode : 0; ItemActive : False),
  183.                 (Item : ''; ItemCode : 0; ItemActive : False),
  184.                 (Item : ''; ItemCode : 0; ItemActive : False),
  185.                 (Item : ''; ItemCode : 0; ItemActive : False),
  186.                 (Item : ''; ItemCode : 0; ItemActive : False),
  187.                 (Item : ''; ItemCode : 0; ItemActive : False),
  188.                 (Item : ''; ItemCode : 0; ItemActive : False),
  189.                 (Item : ''; ItemCode : 0; ItemActive : False),
  190.                 (Item : ''; ItemCode : 0; ItemActive : False),
  191.                 (Item : ''; ItemCode : 0; ItemActive : False),
  192.                 (Item : ''; ItemCode : 0; ItemActive : False),
  193.                 (Item : ''; ItemCode : 0; ItemActive : False))),
  194.                (XStart    : 15; XEnd      : 55;
  195.                Title     : '';
  196.                MenuSize  : 0;
  197.                Imageptr  : NIL;
  198.                Active    : False;
  199.                Choices   : 0; ItemList  :
  200.                ((Item : ''; ItemCode : 0; ItemActive : False),
  201.                 (Item : ''; ItemCode : 0; ItemActive : False),
  202.                 (Item : ''; ItemCode : 0; ItemActive : False),
  203.                 (Item : ''; ItemCode : 0; ItemActive : False),
  204.                 (Item : ''; ItemCode : 0; ItemActive : False),
  205.                 (Item : ''; ItemCode : 0; ItemActive : False),
  206.                 (Item : ''; ItemCode : 0; ItemActive : False),
  207.                 (Item : ''; ItemCode : 0; ItemActive : False),
  208.                 (Item : ''; ItemCode : 0; ItemActive : False),
  209.                 (Item : ''; ItemCode : 0; ItemActive : False),
  210.                 (Item : ''; ItemCode : 0; ItemActive : False),
  211.                 (Item : ''; ItemCode : 0; ItemActive : False),
  212.                 (Item : ''; ItemCode : 0; ItemActive : False),
  213.                 (Item : ''; ItemCode : 0; ItemActive : False),
  214.                 (Item : ''; ItemCode : 0; ItemActive : False),
  215.                 (Item : ''; ItemCode : 0; ItemActive : False),
  216.                 (Item : ''; ItemCode : 0; ItemActive : False),
  217.                 (Item : ''; ItemCode : 0; ItemActive : False),
  218.                 (Item : ''; ItemCode : 0; ItemActive : False))),
  219.                (XStart    : 15; XEnd      : 55;
  220.                Title     : '';
  221.                MenuSize  : 0;
  222.                Imageptr  : NIL;
  223.                Active    : False;
  224.                Choices   : 0; ItemList  :
  225.                ((Item : ''; ItemCode : 0; ItemActive : False),
  226.                 (Item : ''; ItemCode : 0; ItemActive : False),
  227.                 (Item : ''; ItemCode : 0; ItemActive : False),
  228.                 (Item : ''; ItemCode : 0; ItemActive : False),
  229.                 (Item : ''; ItemCode : 0; ItemActive : False),
  230.                 (Item : ''; ItemCode : 0; ItemActive : False),
  231.                 (Item : ''; ItemCode : 0; ItemActive : False),
  232.                 (Item : ''; ItemCode : 0; ItemActive : False),
  233.                 (Item : ''; ItemCode : 0; ItemActive : False),
  234.                 (Item : ''; ItemCode : 0; ItemActive : False),
  235.                 (Item : ''; ItemCode : 0; ItemActive : False),
  236.                 (Item : ''; ItemCode : 0; ItemActive : False),
  237.                 (Item : ''; ItemCode : 0; ItemActive : False),
  238.                 (Item : ''; ItemCode : 0; ItemActive : False),
  239.                 (Item : ''; ItemCode : 0; ItemActive : False),
  240.                 (Item : ''; ItemCode : 0; ItemActive : False),
  241.                 (Item : ''; ItemCode : 0; ItemActive : False),
  242.                 (Item : ''; ItemCode : 0; ItemActive : False),
  243.                 (Item : ''; ItemCode : 0; ItemActive : False))),
  244.                (XStart    : 15; XEnd      : 55;
  245.                Title     : '';
  246.                MenuSize  : 0;
  247.                Imageptr  : NIL;
  248.                Active    : False;
  249.                Choices   : 0; ItemList  :
  250.                ((Item : ''; ItemCode : 0; ItemActive : False),
  251.                 (Item : ''; ItemCode : 0; ItemActive : False),
  252.                 (Item : ''; ItemCode : 0; ItemActive : False),
  253.                 (Item : ''; ItemCode : 0; ItemActive : False),
  254.                 (Item : ''; ItemCode : 0; ItemActive : False),
  255.                 (Item : ''; ItemCode : 0; ItemActive : False),
  256.                 (Item : ''; ItemCode : 0; ItemActive : False),
  257.                 (Item : ''; ItemCode : 0; ItemActive : False),
  258.                 (Item : ''; ItemCode : 0; ItemActive : False),
  259.                 (Item : ''; ItemCode : 0; ItemActive : False),
  260.                 (Item : ''; ItemCode : 0; ItemActive : False),
  261.                 (Item : ''; ItemCode : 0; ItemActive : False),
  262.                 (Item : ''; ItemCode : 0; ItemActive : False),
  263.                 (Item : ''; ItemCode : 0; ItemActive : False),
  264.                 (Item : ''; ItemCode : 0; ItemActive : False),
  265.                 (Item : ''; ItemCode : 0; ItemActive : False),
  266.                 (Item : ''; ItemCode : 0; ItemActive : False),
  267.                 (Item : ''; ItemCode : 0; ItemActive : False),
  268.                 (Item : ''; ItemCode : 0; ItemActive : False))),
  269.                (XStart    : 15; XEnd      : 55;
  270.                Title     : '';
  271.                MenuSize  : 0;
  272.                Imageptr  : NIL;
  273.                Active    : False;
  274.                Choices   : 0; ItemList  :
  275.                ((Item : ''; ItemCode : 0; ItemActive : False),
  276.                 (Item : ''; ItemCode : 0; ItemActive : False),
  277.                 (Item : ''; ItemCode : 0; ItemActive : False),
  278.                 (Item : ''; ItemCode : 0; ItemActive : False),
  279.                 (Item : ''; ItemCode : 0; ItemActive : False),
  280.                 (Item : ''; ItemCode : 0; ItemActive : False),
  281.                 (Item : ''; ItemCode : 0; ItemActive : False),
  282.                 (Item : ''; ItemCode : 0; ItemActive : False),
  283.                 (Item : ''; ItemCode : 0; ItemActive : False),
  284.                 (Item : ''; ItemCode : 0; ItemActive : False),
  285.                 (Item : ''; ItemCode : 0; ItemActive : False),
  286.                 (Item : ''; ItemCode : 0; ItemActive : False),
  287.                 (Item : ''; ItemCode : 0; ItemActive : False),
  288.                 (Item : ''; ItemCode : 0; ItemActive : False),
  289.                 (Item : ''; ItemCode : 0; ItemActive : False),
  290.                 (Item : ''; ItemCode : 0; ItemActive : False),
  291.                 (Item : ''; ItemCode : 0; ItemActive : False),
  292.                 (Item : ''; ItemCode : 0; ItemActive : False),
  293.                 (Item : ''; ItemCode : 0; ItemActive : False))),
  294.                (XStart    : 15; XEnd      : 55;
  295.                Title     : '';
  296.                MenuSize  : 0;
  297.                Imageptr  : NIL;
  298.                Active    : False;
  299.                Choices   : 0; ItemList  :
  300.                ((Item : ''; ItemCode : 0; ItemActive : False),
  301.                 (Item : ''; ItemCode : 0; ItemActive : False),
  302.                 (Item : ''; ItemCode : 0; ItemActive : False),
  303.                 (Item : ''; ItemCode : 0; ItemActive : False),
  304.                 (Item : ''; ItemCode : 0; ItemActive : False),
  305.                 (Item : ''; ItemCode : 0; ItemActive : False),
  306.                 (Item : ''; ItemCode : 0; ItemActive : False),
  307.                 (Item : ''; ItemCode : 0; ItemActive : False),
  308.                 (Item : ''; ItemCode : 0; ItemActive : False),
  309.                 (Item : ''; ItemCode : 0; ItemActive : False),
  310.                 (Item : ''; ItemCode : 0; ItemActive : False),
  311.                 (Item : ''; ItemCode : 0; ItemActive : False),
  312.                 (Item : ''; ItemCode : 0; ItemActive : False),
  313.                 (Item : ''; ItemCode : 0; ItemActive : False),
  314.                 (Item : ''; ItemCode : 0; ItemActive : False),
  315.                 (Item : ''; ItemCode : 0; ItemActive : False),
  316.                 (Item : ''; ItemCode : 0; ItemActive : False),
  317.                 (Item : ''; ItemCode : 0; ItemActive : False),
  318.                 (Item : ''; ItemCode : 0; ItemActive : False))),
  319.                (XStart    : 15; XEnd      : 55;
  320.                Title     : '';
  321.                MenuSize  : 0;
  322.                Imageptr  : NIL;
  323.                Active    : False;
  324.                Choices   : 0; ItemList  :
  325.                ((Item : ''; ItemCode : 0; ItemActive : False),
  326.                 (Item : ''; ItemCode : 0; ItemActive : False),
  327.                 (Item : ''; ItemCode : 0; ItemActive : False),
  328.                 (Item : ''; ItemCode : 0; ItemActive : False),
  329.                 (Item : ''; ItemCode : 0; ItemActive : False),
  330.                 (Item : ''; ItemCode : 0; ItemActive : False),
  331.                 (Item : ''; ItemCode : 0; ItemActive : False),
  332.                 (Item : ''; ItemCode : 0; ItemActive : False),
  333.                 (Item : ''; ItemCode : 0; ItemActive : False),
  334.                 (Item : ''; ItemCode : 0; ItemActive : False),
  335.                 (Item : ''; ItemCode : 0; ItemActive : False),
  336.                 (Item : ''; ItemCode : 0; ItemActive : False),
  337.                 (Item : ''; ItemCode : 0; ItemActive : False),
  338.                 (Item : ''; ItemCode : 0; ItemActive : False),
  339.                 (Item : ''; ItemCode : 0; ItemActive : False),
  340.                 (Item : ''; ItemCode : 0; ItemActive : False),
  341.                 (Item : ''; ItemCode : 0; ItemActive : False),
  342.                 (Item : ''; ItemCode : 0; ItemActive : False),
  343.                 (Item : ''; ItemCode : 0; ItemActive : False))));
  344.