home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE5 / CUA_SAMP.ZIP / DBCALC.DFM < prev    next >
Encoding:
Text File  |  1994-06-24  |  8.3 KB  |  286 lines
  1.  
  2. *.............................................................................
  3. *
  4. *   Program Name: DBCALC.DFM          Copyright: Borland International
  5. *   Date Created: 28 Mar 94            Language: dBASE 5.0
  6. *   Time Created: 15:06:14               Author: Borland dBASE R&D
  7. *   /brief/library.src
  8. *.............................................................................
  9.  
  10.     DEFINE FORM dbCalc;
  11.         PROPERTY ;
  12.             HEIGHT       14,;
  13.             HELPFILE    "DBASE1.HLP",;
  14.             HELPID      "20506",;
  15.             MDI         .F.,;
  16.             TEXT        "Calculator",;
  17.             WIDTH        30,;
  18.             TOP           9,;
  19.             LEFT         40 ;
  20.             CUSTOM ;
  21.                 lastValue  0,;
  22.                 lastOp    "",;
  23.                 lastKeyOp .F.,;
  24.                 lDec      .F.
  25.  
  26.     DEFINE MENUBAR mBar OF m->dbCalc
  27.     
  28.     DEFINE MENU mFile OF dbCalc.mBar;
  29.         PROPERTY ;
  30.             STATUSMESSAGE [File operations],;
  31.             TEXT [&File]
  32.             
  33.     DEFINE MENUITEM mExit OF dbCalc.mBar.mFile;
  34.         PROPERTY ;
  35.             HELPFILE      "DBASE1.HLP",;
  36.             HELPID        "20507",;
  37.             ONCLICK        CalClose,;
  38.             ONHELP         IDEHelp,;
  39.             SHORTCUT      "ALT-F4",;
  40.             STATUSMESSAGE [Exit the calculator],;
  41.             TEXT          [E&xit]
  42.             
  43.     DEFINE MENU mEdit OF dbCalc.mBar;
  44.         PROPERTY ;
  45.             STATUSMESSAGE [Edit operations],;
  46.             TEXT [&Edit]
  47.             
  48.     DEFINE MENUITEM mCopy OF dbCalc.mBar.mEdit;
  49.         PROPERTY ;
  50.             HELPFILE      "DBASE1.HLP",;
  51.             HELPID        "20508",;
  52.             ONCLICK        bCopy,;
  53.             ONHELP         IDEHelp,;
  54.             SHORTCUT      "CTRL-INS",;
  55.             STATUSMESSAGE [Copy current value to clipboard],;
  56.             TEXT          [&Copy]
  57.             
  58.     DEFINE MENUITEM mClear OF dbCalc.mBar.mEdit;
  59.         PROPERTY ;
  60.             HELPFILE      "DBASE1.HLP",;
  61.             HELPID        "20509",;
  62.             ONCLICK        bClear,;
  63.             ONHELP         IDEHelp,;
  64.             STATUSMESSAGE [Clear the values and reset the calculator],;
  65.             TEXT          [C&lear]
  66.             
  67.     DEFINE MENU mHelp OF dbCalc.mBar;
  68.         PROPERTY ;
  69.             STATUSMESSAGE [Help with the calculator],;
  70.             TEXT [&Help]
  71.             
  72.     DEFINE MENUITEM mUsing OF dbCalc.mBar.mHelp;
  73.         PROPERTY ;
  74.             HELPFILE      "DBASE1.HLP",;
  75.             HELPID        "20506",;
  76.             ONCLICK        IDEHelp,;
  77.             ONHELP         IDEHelp,;
  78.             STATUSMESSAGE [Get help on using the calculator],;
  79.             TEXT          [&Using]
  80.             
  81.     DEFINE MENUITEM mSep OF dbCalc.mBar.mHelp;        
  82.         PROPERTY ;
  83.             ENABLED   .F.,;
  84.             SEPARATOR .T.
  85.  
  86.     DEFINE MENUITEM mAbout OF dbCalc.mBar.mHelp;
  87.         PROPERTY ;
  88.             HELPID        "20506",;
  89.             HELPFILE      "DBASE1.HLP",;
  90.             ONCLICK        ClcAbout,;
  91.             STATUSMESSAGE [About the calculator],;
  92.             TEXT          [&About]
  93.  
  94.     DEFINE TEXT e OF m->dbCalc;
  95.         PROPERTY ;
  96.             COLORHIGHLIGHT "W+/B",;
  97.             COLORNORMAL    "W+/B",;
  98.             LABEL          .F.,;
  99.             LEFT             6,;
  100.             TEXT            SPACE(15) + "0",;
  101.             TOP              1,;
  102.             WIDTH           16
  103.  
  104.     DEFINE PUSHBUTTON b0 OF m->dbCalc;
  105.         PROPERTY ;
  106.             GRABFOCUS .F.,;
  107.             TABSTOP   .F.,;
  108.             TEXT      "&0",;
  109.             TOP         9,;
  110.             LEFT        0,;
  111.             ONCLICK    numClick,;
  112.             WIDTH      10    
  113.  
  114.     DEFINE PUSHBUTTON b1 OF m->dbCalc;
  115.         PROPERTY ;
  116.             GRABFOCUS .F.,;
  117.             TABSTOP   .F.,;
  118.             TEXT    "&1",;
  119.             TOP      7,;
  120.             LEFT     0,;
  121.             ONCLICK  numClick,;
  122.             WIDTH    5
  123.  
  124.     DEFINE PUSHBUTTON b2 OF m->dbCalc;
  125.         PROPERTY ;
  126.             GRABFOCUS .F.,;
  127.             TABSTOP   .F.,;
  128.             TEXT    "&2",;
  129.             TOP      7,;
  130.             LEFT     5,;
  131.             ONCLICK  numClick,;
  132.             WIDTH    5      
  133.  
  134.     DEFINE PUSHBUTTON b3 OF m->dbCalc;
  135.         PROPERTY ;
  136.             GRABFOCUS .F.,;
  137.             TABSTOP   .F.,;
  138.             TEXT    "&3",;
  139.             TOP      7,;
  140.             LEFT     10,;
  141.             ONCLICK  numClick,;
  142.             WIDTH     5
  143.             
  144.     DEFINE PUSHBUTTON b4 OF m->dbCalc;
  145.         PROPERTY ;
  146.             GRABFOCUS .F.,;
  147.             TABSTOP   .F.,;
  148.             TEXT    "&4",;
  149.             TOP      5,;
  150.             LEFT     dbCalc.b1.LEFT,;
  151.             ONCLICK  numClick,;
  152.             WIDTH    5
  153.  
  154.     DEFINE PUSHBUTTON b5 OF m->dbCalc;
  155.         PROPERTY ;
  156.             GRABFOCUS .F.,;
  157.             TABSTOP   .F.,;
  158.             TEXT    "&5",;
  159.             TOP      5,;
  160.             LEFT     dbCalc.b2.LEFT,;
  161.             ONCLICK  numClick,;
  162.             WIDTH    5    
  163.  
  164.     DEFINE PUSHBUTTON b6 OF m->dbCalc;
  165.         PROPERTY ;
  166.             GRABFOCUS .F.,;
  167.             TABSTOP   .F.,;
  168.             TEXT    "&6",;
  169.             TOP      5,;
  170.             LEFT     dbCalc.b3.LEFT,;
  171.             ONCLICK  numClick,;
  172.             WIDTH    5
  173.  
  174.     DEFINE PUSHBUTTON b7 OF m->dbCalc;
  175.         PROPERTY ;
  176.             GRABFOCUS .F.,;
  177.             TABSTOP   .F.,;
  178.             TEXT    "&7",;
  179.             TOP      3,;
  180.             LEFT     dbCalc.b4.LEFT,;
  181.             ONCLICK  numClick,;
  182.             WIDTH    5    
  183.  
  184.     DEFINE PUSHBUTTON b8 OF m->dbCalc;
  185.         PROPERTY ;
  186.             GRABFOCUS .F.,;
  187.             TABSTOP   .F.,;
  188.             TEXT    "&8",;
  189.             TOP      3,;
  190.             LEFT     dbCalc.b5.LEFT,;
  191.             ONCLICK  numClick,;
  192.             WIDTH    5    
  193.  
  194.     DEFINE PUSHBUTTON b9 OF m->dbCalc;
  195.         PROPERTY ;
  196.             GRABFOCUS .F.,;
  197.             TABSTOP   .F.,;
  198.             TEXT    "&9",;
  199.             TOP      3,;
  200.             LEFT     dbCalc.b6.LEFT,;
  201.             ONCLICK  numClick,;
  202.             WIDTH    5    
  203.  
  204.     DEFINE PUSHBUTTON bDec OF m->dbCalc;
  205.             PROPERTY ;
  206.             GRABFOCUS .F.,;
  207.             TABSTOP   .F.,;
  208.             TEXT       "&" + SET("POINT"),;
  209.             TOP        9,;
  210.             LEFT       dbCalc.b9.LEFT,;
  211.             ONCLICK    numClick,;
  212.             WIDTH      5
  213.     
  214.     DEFINE PUSHBUTTON buminus OF m->dbCalc;
  215.         PROPERTY ;
  216.             GRABFOCUS .F.,;
  217.             TABSTOP   .F.,;
  218.             TEXT      "&SGN",;
  219.             TOP         3,;
  220.             LEFT       15,;
  221.             ONCLICK    buminus,;
  222.             WIDTH       7
  223.  
  224.     DEFINE PUSHBUTTON bdivide OF m->dbCalc;
  225.         PROPERTY ;
  226.             GRABFOCUS .F.,;
  227.             TABSTOP   .F.,;
  228.             TEXT      "&/",;
  229.             TOP         3,;
  230.             LEFT       22,;
  231.             ONCLICK    pressOp,;
  232.             WIDTH       5 
  233.             
  234.     DEFINE PUSHBUTTON btimes OF m->dbCalc;
  235.         PROPERTY ;
  236.             GRABFOCUS .F.,;
  237.             TABSTOP   .F.,;
  238.             TEXT      "&*",;
  239.             TOP         5,;
  240.             LEFT       22,;
  241.             ONCLICK    pressOp,;
  242.             WIDTH       5    
  243.  
  244.     DEFINE PUSHBUTTON bminus OF m->dbCalc;
  245.         PROPERTY ;
  246.             GRABFOCUS .F.,;
  247.             TABSTOP   .F.,;
  248.             TEXT      "&-",;
  249.             TOP        7,;
  250.             LEFT      22,;
  251.             ONCLICK   pressOp,;
  252.             WIDTH      5
  253.  
  254.     DEFINE PUSHBUTTON bplus OF m->dbCalc;
  255.         PROPERTY ;
  256.             GRABFOCUS .F.,;
  257.             TABSTOP   .F.,;
  258.             TEXT      "&+",;
  259.             TOP         9,;
  260.             LEFT       22,;
  261.             ONCLICK    pressOp,;
  262.             WIDTH       5
  263.  
  264.     DEFINE PUSHBUTTON bequal OF m->dbCalc;
  265.         PROPERTY ;
  266.             DEFAULT   .T.,;
  267.             TABSTOP   .F.,;
  268.             GRABFOCUS .F.,;
  269.             HEIGHT      4,;
  270.             TEXT      "&=",;
  271.             TOP         7,;
  272.             LEFT       15,;
  273.             ONCLICK    pressOp,;
  274.             WIDTH       7
  275.  
  276.     DEFINE PUSHBUTTON bclear OF m->dbCalc;
  277.         PROPERTY ;
  278.             GRABFOCUS .F.,;
  279.             TABSTOP   .F.,;
  280.             TEXT      "&CLR",;
  281.             TOP         5,;
  282.             LEFT       15,;
  283.             ONCLICK    bclear,;
  284.             WIDTH       7    
  285.  
  286.