{->>>>DemoMenu<<<<---------------------------------------------}
{                                                              }
{ Filename : DEMOMENU.DEF -- Last Modified 7/14/88             }
{                                                              }
{ This may be the largest structured constant you'll ever see. }
{ It defines a menu used by the PULLDOWN.PAS menu unit, which  }
{ implements a pulldown menuing system using the BGI.  You can }
{ copy this file to a new file and modify it to suit your      }
{ own applications.                                            }
{                                                              }
{ The MenuDesc type is defined in unit PullDown.               }
{                                                              }
{     From: COMPLETE TURBO PASCAL 5.0  by Jeff Duntemann       }
{    Scott, Foresman & Co., Inc. 1988   ISBN 0-673-38355-5     }
{--------------------------------------------------------------}

CONST
  DemoMenu : MenuDesc =
             ((XStart    : 18; XEnd : 58;
               Title     : 'Files';
               MenuSize  : 11;
               Imageptr  : NIL;
               Active    : True;
               Choices   : 5; ItemList  :
               ((Item : 'Retrieve'; ItemCode : 21; ItemActive : True),
                (Item : 'Save';     ItemCode : 22; ItemActive : True),
                (Item : 'Delete';   ItemCode : 23; ItemActive : True),
                (Item : 'Rename';   ItemCode : 24; ItemActive : True),
                (Item : 'Quit';     ItemCode : 25; ItemActive : True),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False))),
              (XStart    : 74; XEnd      : 114;
               Title     : 'Edit';
               MenuSize  : 11;
               Imageptr  : NIL;
               Active    : True;
               Choices   : 9; ItemList  :
               ((Item : 'Grab';    ItemCode : 31; ItemActive : True),
                (Item : 'Pull';    ItemCode : 32; ItemActive : True),
                (Item : 'Erase';   ItemCode : 33; ItemActive : False),
                (Item : 'Join';    ItemCode : 34; ItemActive : False),
                (Item : 'Swap';    ItemCode : 35; ItemActive : False),
                (Item : 'Invert';  ItemCode : 36; ItemActive : True),
                (Item : 'Recolor'; ItemCode : 37; ItemActive : True),
                (Item : 'Split';   ItemCode : 38; ItemActive : True),
                (Item : 'Duplicate'; ItemCode : 39; ItemActive : True),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False))),
              (XStart    : 129; XEnd      : 175;
               Title     : 'Draw';
               MenuSize  : 11;
               Imageptr  : NIL;
               Active    : True;
               Choices   : 4; ItemList  :
               ((Item : 'Freehand';  ItemCode : 41; ItemActive : True),
                (Item : 'Polyline';  ItemCode : 42; ItemActive : True),
                (Item : 'Spray';     ItemCode : 43; ItemActive : True),
                (Item : 'Dragstamp'; ItemCode : 44; ItemActive : True),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False))),
                (XStart    : 179; XEnd      : 215;
               Title     : 'Text';
               MenuSize  : 11;
               Imageptr  : NIL;
               Active    : True;
               Choices   : 5; ItemList  :
               ((Item : 'Load Font';     ItemCode : 51; ItemActive : True),
                (Item : 'Place Text';    ItemCode : 52; ItemActive : True),
                (Item : 'Set Direction'; ItemCode : 53; ItemActive : True),
                (Item : 'Dropshadow';    ItemCode : 54; ItemActive : True),
                (Item : 'Point Size';    ItemCode : 55; ItemActive : True),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False))),
                (XStart    : 15; XEnd      : 55;
               Title     : '';
               MenuSize  : 0;
               Imageptr  : NIL;
               Active    : False;
               Choices   : 0; ItemList  :
               ((Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False))),
                (XStart    : 15; XEnd      : 55;
               Title     : '';
               MenuSize  : 0;
               Imageptr  : NIL;
               Active    : False;
               Choices   : 0; ItemList  :
               ((Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False))),
                (XStart    : 15; XEnd      : 55;
               Title     : '';
               MenuSize  : 0;
               Imageptr  : NIL;
               Active    : False;
               Choices   : 0; ItemList  :
               ((Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False))),
               (XStart    : 15; XEnd      : 55;
               Title     : '';
               MenuSize  : 0;
               Imageptr  : NIL;
               Active    : False;
               Choices   : 0; ItemList  :
               ((Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False))),
               (XStart    : 15; XEnd      : 55;
               Title     : '';
               MenuSize  : 0;
               Imageptr  : NIL;
               Active    : False;
               Choices   : 0; ItemList  :
               ((Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False))),
               (XStart    : 15; XEnd      : 55;
               Title     : '';
               MenuSize  : 0;
               Imageptr  : NIL;
               Active    : False;
               Choices   : 0; ItemList  :
               ((Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False))),
               (XStart    : 15; XEnd      : 55;
               Title     : '';
               MenuSize  : 0;
               Imageptr  : NIL;
               Active    : False;
               Choices   : 0; ItemList  :
               ((Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False))),
               (XStart    : 15; XEnd      : 55;
               Title     : '';
               MenuSize  : 0;
               Imageptr  : NIL;
               Active    : False;
               Choices   : 0; ItemList  :
               ((Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False))),
               (XStart    : 15; XEnd      : 55;
               Title     : '';
               MenuSize  : 0;
               Imageptr  : NIL;
               Active    : False;
               Choices   : 0; ItemList  :
               ((Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False),
                (Item : ''; ItemCode : 0; ItemActive : False))));
