home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / TVINP101.ZIP / MAKETEST.PAS next >
Encoding:
Pascal/Delphi Source File  |  1992-05-13  |  2.2 KB  |  83 lines
  1. program makeinputs;
  2. { This program creates a dialog box that uses all of the TInputs for
  3.   numeric input, then stores that dialog box on a stream for use
  4.   with TEST.PAS }
  5.  
  6. uses views,objects,drivers,dialogs,tvinp101;
  7.  
  8. var p : pdialog;
  9.     pint : pinputint;
  10.     plong : pinputlong;
  11.     preal : pinputreal;
  12.     psingle : pinputsingle;
  13.     pdouble : pinputdouble;
  14.     pextended : pinputextended;
  15.     pcomp : pinputcomp;
  16.     resource : TResourceFile;
  17.     diskfile : Pbufstream;
  18.     r : Trect;
  19.  
  20. begin
  21.   r.assign(5,2,75,20);
  22.   p := new(pdialog,init(r,'Demo'));
  23.  
  24.   r.assign(2,3,10,4);
  25.   pint := new(pinputint,init(r,7,-32768,32767,0));
  26.   p^.insert(pint);
  27.   r.assign(2,2,12,3);
  28.   p^.insert(new(plabel,init(r,'Integer',pint)));
  29.  
  30.   r.assign(2,6,14,7);
  31.   plong := new(pinputlong,init(r,10,-1000000,1000000,500000));
  32.   p^.insert(plong);
  33.   r.assign(2,5,12,6);
  34.   p^.insert(new(plabel,init(r,'Longint',plong)));
  35.  
  36.   r.assign(22,3,34,4);
  37.   preal := new(pinputreal,init(r,10,-100,100,50,6,3));
  38.   p^.insert(preal);
  39.   r.assign(22,2,32,3);
  40.   p^.insert(new(plabel,init(r,'Real',preal)));
  41.  
  42.   r.assign(22,6,34,7);
  43.   pdouble := new(pinputdouble,init(r,15,-1e10,1e10,3.14159265,12,10));
  44.   p^.insert(pdouble);
  45.   r.assign(22,5,34,6);
  46.   p^.insert(new(plabel,init(r,'Double',pdouble)));
  47.  
  48.   r.assign(2,9,14,10);
  49.   psingle := new(pinputsingle,default(r,15));
  50.   p^.insert(psingle);
  51.   r.assign(2,8,14,9);
  52.   p^.insert(new(plabel,init(r,'Single',psingle)));
  53.  
  54.   r.assign(2,12,24,13);
  55.   pextended := new(pinputextended,init(r,20,-1e6,1e6,0.9e6,18,10));
  56.   p^.insert(pextended);
  57.   r.assign(2,11,14,12);
  58.   p^.insert(new(plabel,init(r,'Extended',pextended)));
  59.  
  60.   r.assign(22,9,34,10);
  61.   pcomp := new(pinputcomp,default(r,15));
  62.   p^.insert(pcomp);
  63.   r.assign(22,8,34,9);
  64.   p^.insert(new(plabel,init(r,'Comp',pcomp)));
  65.  
  66.  
  67.   r.assign(2,15,12,17);
  68.   p^.insert(new(pbutton,init(r,'~O~K',cmOK,bfdefault)));
  69.  
  70.   r.assign(22,15,32,17);
  71.   p^.insert(new(pbutton,init(r,'~C~ancel',cmcancel,bfnormal)));
  72.  
  73.   registerdialogs;
  74.   RegisterObjects;
  75.   RegisterViews;
  76.   RegisterNumerics;
  77.  
  78.   diskfile := new(PBufstream,init('Tinputs.res',stcreate,1024));
  79.   resource.init(diskfile);
  80.   resource.put(p,'Dialog');
  81.   resource.done;
  82. end.
  83.