home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sound / sampler / menudefs.inc next >
Encoding:
Text File  |  1989-05-20  |  5.1 KB  |  118 lines
  1. { menu definitions for SAMPLER.PAS  R.M. 28/3/89}
  2.  
  3. {$define sample}
  4.  
  5. Const
  6.   noheadings     = 6;
  7.   maxverticalbars = 10;
  8.   menustringlength = 20;
  9.   cornersize     = 20;
  10.   menuxoffset    = cornersize;
  11.   menubcolor     = white;
  12.   menucolor      = black;
  13.   menuinvisiblecolor = cyan;
  14.   menufont       = smallfont;
  15.   menufontsize   = 4;
  16.  
  17. Type menuselectiontype =
  18.   (options, settings, _help,
  19.    _file, directory, read_sound_file, write_sound_file, quit_to_dos,
  20.    edit, cut, clear, _copy, paste, mix, mirror_segment, _scale_envelope, _zoom,
  21.     _sample,
  22.    _song, play_song, read_song_file,
  23.    miscellaneous, concert_a, monitor,
  24.    play_sound,
  25.    inactive);
  26.  
  27.   menuentrytype = Record
  28.                     selection      : menuselectiontype;
  29.                     title          : String[menustringlength];
  30.                     visible        : Boolean;
  31.                   End;
  32.  
  33.   menustructuretype = Array[1..noheadings]
  34.                         Of Record
  35.                              nentries       : Byte;
  36.                              entry          : Array[1..maxverticalbars] Of
  37.                              menuentrytype;
  38.                            End;
  39.  
  40. Const
  41.   menustructure : menustructuretype =
  42.   ((nentries : 3; entry :
  43.    ((selection : options; title : 'Options'; visible : True),
  44.     (selection : settings; title : 'Settings'; visible : True),
  45.     (selection : _help; title : 'Help'; visible : True),
  46.     (selection : inactive; title : ''; visible : True),
  47.     (selection : inactive; title : ''; visible : True),
  48.     (selection : inactive; title : ''; visible : True),
  49.     (selection : inactive; title : ''; visible : True),
  50.     (selection : inactive; title : ''; visible : True),
  51.     (selection : inactive; title : ''; visible : True),
  52.     (selection : inactive; title : ''; visible : True))),
  53.   (nentries : 5; entry :
  54.    ((selection : _file; title : 'File'; visible : True),
  55.     (selection : directory; title : 'Directory'; visible : True),
  56.     (selection : read_sound_file; title : 'Read sound file'; visible : True),
  57.     (selection : write_sound_file; title : 'Write sound file'; visible : True),
  58.     (selection : quit_to_dos; title : 'Quit to DOS'; visible : True),
  59.     (selection : inactive; title : ''; visible : True),
  60.     (selection : inactive; title : ''; visible : True),
  61.     (selection : inactive; title : ''; visible : True),
  62.     (selection : inactive; title : ''; visible : True),
  63.     (selection : inactive; title : ''; visible : True))),
  64.   (nentries : 10; entry :
  65.    ((selection : edit; title : 'Edit'; visible : True),
  66.     (selection : cut; title : 'Cut'; visible : False),
  67.     (selection : _copy; title : 'Copy'; visible : False),
  68.     (selection : paste; title : 'Paste'; visible : False),
  69.     (selection : mix; title : 'Mix'; visible : False),
  70.     (selection : mirror_segment; title : 'Mirror segment'; visible : False),
  71.     (selection : _scale_envelope; title : 'Scale envelope'; visible : False),
  72.     (selection : clear; title : 'Clear'; visible : False),
  73.     (selection : _zoom; title : 'Zoom'; visible : False),
  74. {$ifndef sample}
  75.     (selection : _sample; title : 'Sample'; visible : false))),
  76. {$else}
  77.     (selection : _sample; title : 'Sample'; visible : True))),
  78. {$endif}
  79.   (nentries : 3; entry :
  80.    ((selection : _song; title : 'Song'; visible : True),
  81.     (selection : play_song; title : 'Play song'; visible : False),
  82.     (selection : read_song_file; title : 'Read song file'; visible : True),
  83.     (selection : inactive; title : ''; visible : True),
  84.     (selection : inactive; title : ''; visible : True),
  85.     (selection : inactive; title : ''; visible : True),
  86.     (selection : inactive; title : ''; visible : True),
  87.     (selection : inactive; title : ''; visible : True),
  88.     (selection : inactive; title : ''; visible : True),
  89.     (selection : inactive; title : ''; visible : True))),
  90.   (nentries : 3; entry :
  91.    ((selection : miscellaneous; title : 'Miscellaneous'; visible : True),
  92.     (selection : concert_a; title : 'Concert A'; visible : True),
  93. {$ifndef sample}
  94.     (selection : monitor; title : 'Monitor'; visible : false),
  95. {$else}
  96.     (selection : monitor; title : 'Monitor'; visible : true),
  97. {$endif}
  98.     (selection : inactive; title : ''; visible : True),
  99.     (selection : inactive; title : ''; visible : True),
  100.     (selection : inactive; title : ''; visible : True),
  101.     (selection : inactive; title : ''; visible : True),
  102.     (selection : inactive; title : ''; visible : True),
  103.     (selection : inactive; title : ''; visible : True),
  104.     (selection : inactive; title : ''; visible : True))),
  105.   (nentries : 1; entry :
  106.    ((selection : play_sound; title : 'Play sound'; visible : True),
  107.     (selection : inactive; title : ''; visible : True),
  108.     (selection : inactive; title : ''; visible : True),
  109.     (selection : inactive; title : ''; visible : True),
  110.     (selection : inactive; title : ''; visible : True),
  111.     (selection : inactive; title : ''; visible : True),
  112.     (selection : inactive; title : ''; visible : True),
  113.     (selection : inactive; title : ''; visible : True),
  114.     (selection : inactive; title : ''; visible : True),
  115.     (selection : inactive; title : ''; visible : True))));
  116.  
  117.  
  118.