home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Pascal / Samples / MCUNIT10.ARJ / SETUP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-02-17  |  1.1 KB  |  37 lines
  1. program setup;
  2. { $M 1024,0,655360 }
  3. uses mcmenu10;
  4.  
  5. const
  6. y=true;
  7. n=false;
  8.  
  9.    m1c:win=(x:200;y:10;ni:7;vert:y;titl:'DEMO';hlp:nil;pt:nil;
  10.      its:((u:y;text:'~Command';enable:y;k:1),
  11.         (u:y;text:'~Yes/no';enable:y;k:2;yes:y),
  12.         (u:y;text:'~What ?';enable:y;k:3;n:3;i:1;a:('1st','2nd','3rd','','','','','')),
  13.         (u:y;text:'~Number';enable:y;k:4;v:12.34;min:0;max:500;lv:6;d:2),
  14.         (u:y;text:'~String';enable:y;k:5;s:'string';ls:10),
  15.         (u:y;text:'-';enable:y;k:1),
  16.         (u:y;text:'C~ontinue';enable:y;k:1),
  17.         (u:n),(u:n),(u:n),(u:n),(u:n),(u:n),(u:n),(u:n),(u:n)));
  18.  
  19.    m2c:win=(x:100;y:10;ni:4;vert:y;titl:'HELP';hlp:nil;pt:nil;
  20.      its:((u:y;text:'This is test of menu window';enable:y;k:1),
  21.         (u:y;text:'working as a PUTTEXT';enable:y;k:1),
  22.         (u:y;text:' ';enable:y;k:1),
  23.         (u:y;text:'Thats all';enable:y;k:1),
  24.         (u:n),(u:n),(u:n),(u:n),(u:n),(u:n),(u:n),(u:n),(u:n),(u:n),(u:n),(u:n)));
  25.  
  26. var
  27. tdata:fwin;
  28.  
  29. begin
  30.   assign(tdata,'setup.dat');
  31.   rewrite(tdata);
  32.   write(tdata,m1c,m2c);
  33.   close(tdata);
  34. end.
  35.  
  36.  
  37.