home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE5 / CUA_SAMP.ZIP / DBCALNDR.DFM < prev    next >
Encoding:
Text File  |  1994-06-24  |  7.6 KB  |  231 lines
  1.  
  2. *.............................................................................
  3. *
  4. *   Program Name: DBCALNDR.DFM        Copyright: Borland International
  5. *   Date Created: 28 Mar 94            Language: dBASE 5.0
  6. *   Time Created: 13:30:00               Author: Borland dBASE R&D
  7. *   /brief/library.src
  8. *.............................................................................
  9.  
  10.     * define the calendar form
  11.     DEFINE FORM dbCalndr;
  12.         PROPERTY ;
  13.             HEIGHT       13,;
  14.             HELPFILE    "DBASE1.HLP",;
  15.             HELPID      "20511",;
  16.             KEY          CheckArw,;
  17.             LEFT          2,;
  18.             MDI         .F.,;
  19.             WIDTH        32,;
  20.             ONGOTFOCUS   SetTalk,;
  21.             ONLOSTFOCUS  ResetTalk,;
  22.             ONCLICK      CheckArw,;
  23.             TEXT        [Calendar],;
  24.             TOP           1;
  25.             CUSTOM;
  26.                 cMyStr   " ",;
  27.                 dFirst    {},;
  28.                 dLast     {},;
  29.                 nDay       0,;
  30.                 nMth       0,;  
  31.                 nYear      0,;
  32.                 lSTalk   .T.,;
  33.                 nDateFmt   0,;
  34.                 dNewDate  {}
  35.  
  36.     * define the menu bar
  37.     DEFINE MENUBAR mCal OF m->dbCalndr
  38.  
  39.     * define the File menu
  40.     DEFINE MENU mFile OF dbCalndr.mCal;
  41.         PROPERTY ;
  42.             STATUSMESSAGE [File operations],;
  43.             TEXT [&File]
  44.  
  45.     * define the Exit option of the file menu
  46.     DEFINE MENUITEM mExit OF dbCalndr.mCal.mFile;
  47.         PROPERTY ;
  48.             HELPFILE    "DBASE1.HLP",;
  49.             HELPID      "20511",;
  50.             ONCLICK        CalExit,;
  51.             SHORTCUT      "ALT-F4",;
  52.             STATUSMESSAGE [Exit the calendar],;
  53.             TEXT          [E&xit]
  54.             
  55.     * define the Edit menu
  56.     DEFINE MENU mEdit OF dbCalndr.mCal;
  57.         PROPERTY ;   
  58.             STATUSMESSAGE [Edit operations],;
  59.             TEXT [&Edit]
  60.  
  61.     * define the Copy option of the edit menu
  62.     DEFINE MENUITEM mCopy OF dbCalndr.mCal.mEdit;
  63.         PROPERTY ;
  64.             HELPFILE    "DBASE1.HLP",;
  65.             HELPID      "20511",;
  66.             ONCLICK        CopyDate,;
  67.             SHORTCUT      "CTRL-INS",;
  68.             STATUSMESSAGE [Copy the current date to the clipboard using the current date format],;
  69.             TEXT          [&Copy]
  70.             
  71.     * define the first seperator
  72.     DEFINE MENUITEM mSep1 OF dbCalndr.mCal.mEdit PROPERTY TEXT ""
  73.  
  74.     * define the goto today option of the edit menu    
  75.     DEFINE MENUITEM mToday OF dbCAlndr.mCal.mEdit;
  76.         PROPERTY ;
  77.             HELPFILE    "DBASE1.HLP",;
  78.             HELPID      "20511",;
  79.             ONCLICK        GoToday,;
  80.             STATUSMESSAGE [Move the calendar to today's date],;
  81.             TEXT          [&Today]            
  82.  
  83.     * define the previous month option of the edit menu
  84.     DEFINE MENUITEM mPrev OF dbCalndr.mCal.mEdit;
  85.         PROPERTY ;
  86.             HELPFILE    "DBASE1.HLP",;
  87.             HELPID      "20511",;
  88.             ONCLICK        PrevMth,;
  89.             SHORTCUT      "PGUP",;
  90.             STATUSMESSAGE [Move the calendar to the previous month],;
  91.             TEXT          [&Previous]
  92.  
  93.     * define the next month option of the edit menu
  94.     DEFINE MENUITEM mNext OF dbCalndr.mCal.mEdit;
  95.         PROPERTY ;
  96.             HELPFILE    "DBASE1.HLP",;
  97.             HELPID      "20511",;
  98.             ONCLICK        NextMth,;
  99.             SHORTCUT      "PGDN",;
  100.             STATUSMESSAGE [Move the calendar to the next month],;
  101.             TEXT          [&Next]
  102.  
  103.     * define the set date option of the edit menu
  104.     DEFINE MENUITEM mSetDate OF dbCalndr.mCal.mEdit;
  105.         PROPERTY ;
  106.             HELPFILE    "DBASE1.HLP",;
  107.             HELPID      "20511",;
  108.             ONCLICK      SetDate,;
  109.             STATUSMESSAGE [Enter a date for the calendar to move to],;
  110.             TEXT          [&Set date...]
  111.  
  112.     * define the Options menu
  113.     DEFINE MENU mOption OF dbCalndr.mCal;
  114.         PROPERTY ;   
  115.             STATUSMESSAGE [Set calendar options],;
  116.             TEXT [&Options]
  117.  
  118.     * define the date format bars
  119.     DEFINE MENUITEM mDFrmt OF dbCalndr.mCal.mOption;
  120.         PROPERTY ;
  121.             HELPFILE      "DBASE1.HLP",;
  122.             HELPID        "20512",;
  123.             ONCLICK        DateFrmt,;
  124.             ONHELP         IDEHelp,;
  125.             STATUSMESSAGE [Set the format for dates when copied to the clipboard],;
  126.             TEXT          [&Date format...]
  127.  
  128.     * define help menu
  129.     DEFINE MENU mHelp OF dbCalndr.mCal;
  130.         PROPERTY ;   
  131.             STATUSMESSAGE [Get help with the calendar],;
  132.             TEXT [&Help]
  133.  
  134.     * define the using option of the help menu
  135.     DEFINE MENUITEM mUsing OF dbCalndr.mCal.mHelp;
  136.         PROPERTY ;
  137.             HELPFILE      "DBASE1.HLP",;
  138.             HELPID        "20511",;
  139.             ONCLICK        IDEHelp,;
  140.             ONHELP         IDEHelp,;
  141.             STATUSMESSAGE [Get help on the calendar],;
  142.             TEXT          [&Using]
  143.             
  144.     DEFINE MENUITEM mSep OF dbCalndr.mCal.mHelp;
  145.         PROPERTY ;
  146.             ENABLED   .F.,;
  147.             SEPARATOR .T.        
  148.  
  149.     * define the about option of the help menu
  150.     DEFINE MENUITEM mAbout OF dbCalndr.mCal.mHelp;
  151.         PROPERTY ;
  152.             HELPFILE      "DBASE1.HLP",;
  153.             HELPID        "20511",;
  154.             ONCLICK        CHAbout,;
  155.             ONHELP         IDEHelp,;
  156.             STATUSMESSAGE [About the calendar],;
  157.             TEXT          [&About]
  158.             
  159.     * displays month and year, and previous/next month buttons
  160.     DEFINE TEXT CalMth OF m->dbCalndr AT kTop,5;
  161.         PROPERTY ;
  162.             LABEL       .F.,;
  163.             TEXT         dbCalndr.cMYStr,;
  164.             COLORNORMAL "B+/W"
  165.  
  166.     * displays the titles for the days of the week
  167.     DEFINE TEXT CalDays OF m->dbCalndr AT kTop + 2,2;
  168.         PROPERTY ;
  169.             LABEL       .F.,;
  170.             TEXT        [Su  Mo  Tu  We  Th  Fr  Sa],;
  171.             WIDTH        26,;
  172.             COLORNORMAL "W+/W"
  173.  
  174.     * displays the first week of the month
  175.     DEFINE TEXT Week1 OF m->dbCalndr AT kTop + 3,2;
  176.         PROPERTY ;
  177.             LABEL .F.,;
  178.             TEXT   dB5___wk[1]
  179.  
  180.     * displays the second week of the month
  181.     DEFINE TEXT Week2 OF m->dbCalndr AT kTop + 4,2;
  182.         PROPERTY ;
  183.             LABEL .F.,;
  184.             TEXT   dB5___wk[2]
  185.  
  186.     * displays the third week of the month
  187.     DEFINE TEXT Week3 OF m->dbCalndr AT kTop + 5,2;
  188.         PROPERTY ;
  189.             LABEL .F.,;
  190.             TEXT   dB5___wk[3]
  191.  
  192.     * displays the forth week of the month
  193.     DEFINE TEXT Week4 OF m->dbCalndr AT kTop + 6,2;
  194.         PROPERTY ;
  195.             LABEL .F.,;
  196.             TEXT   dB5___wk[4]
  197.             
  198.     * displays the fifth week of the month
  199.     DEFINE TEXT Week5 OF m->dbCalndr AT kTop + 7,2;
  200.         PROPERTY ;
  201.             LABEL .F.,;
  202.             TEXT   dB5___wk[5]
  203.  
  204.     * displays the sixth week of the month
  205.     DEFINE TEXT Week6 OF m->dbCalndr AT kTop + 8,2;
  206.         PROPERTY ;
  207.             LABEL .F.,;
  208.             TEXT   dB5___wk[6]
  209.             
  210.     * displays today's date in reverse colors
  211.     DEFINE TEXT Today OF m->dbCalndr;
  212.         PROPERTY ;
  213.             LABEL .F.,;
  214.             TEXT        " ",;
  215.             COLORNORMAL "N/G"
  216.  
  217.     DEFINE TEXT tNext OF m->dbCalndr;
  218.         PROPERTY ;
  219.             LABEL .F.,;
  220.             TEXT  "",;
  221.             TOP    kTop,;
  222.             LEFT   20
  223.             
  224.     DEFINE TEXT tPrev OF m->dbCalndr;
  225.         PROPERTY ;
  226.             LABEL .F.,;
  227.             TOP    kTop,;
  228.             TEXT  "",;
  229.             LEFT   23
  230.  
  231.