home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE5 / CUA_SAMP.ZIP / ASCIIC.DFM < prev    next >
Encoding:
Text File  |  1994-06-24  |  5.8 KB  |  177 lines
  1.  
  2. *.............................................................................
  3. *
  4. *   Program Name: ASCIIC.DFM          Copyright: Borland International
  5. *   Date Created: 27 Mar 94            Language: dBASE 5.0
  6. *   Time Created: 17:12:50               Author: Borland dBASE R&D
  7. *   /brief/library.src
  8. *.............................................................................
  9.  
  10.     DEFINE FORM dbASCII;
  11.         PROPERTY;
  12.             HELPFILE    "DBASE1.HLP",;
  13.             HELPID      "20501",;
  14.             TEXT        [ASCII Chart],;
  15.             WIDTH        kMinWidth,;
  16.             TOP          0,;
  17.             LEFT         2,;
  18.             HEIGHT       kMinHeight,;
  19.             MDI         .F.,;
  20.             ONGOTFOCUS   SetTalk,;
  21.             ONLOSTFOCUS  ResetTalk,;
  22.             ONSIZE       FixSize,;
  23.             SIZEABLE    .T.;
  24.             CUSTOM ;
  25.                 lSTalk .T.
  26.  
  27.     *..................
  28.     * define the menus
  29.     *..................
  30.  
  31.     DEFINE MENUBAR ASCMenu OF m->dbASCII
  32.  
  33.     * define the file menu
  34.     DEFINE MENU mFile OF dbASCII.ASCMenu;
  35.         PROPERTY ;
  36.             STATUSMESSAGE [File operations],;
  37.             TEXT [&File]
  38.  
  39.     * define the exit option of the file menu
  40.     DEFINE MENUITEM mExit OF dbASCII.ASCMenu.mFile;
  41.         PROPERTY ;
  42.             HELPFILE      "DBASE1.HLP",;
  43.             HELPID        "20502",;
  44.             ONCLICK        FileExit,;
  45.             ONHELP         IDEHelp,;
  46.             SHORTCUT      "ALT-F4",;
  47.             STATUSMESSAGE [Exit the ASCII chart],;
  48.             TEXT          [E&xit]
  49.             
  50.     * define the edit menu
  51.     DEFINE MENU mEdit OF dbASCII.ASCMenu;
  52.         PROPERTY ;
  53.             STATUSMESSAGE [Edit operations],;
  54.             TEXT [&Edit]
  55.  
  56.     * define the copy option of the edit menu
  57.     DEFINE MENUITEM mCopy OF dbASCII.ASCMenu.mEdit;
  58.         PROPERTY ;
  59.             HELPFILE      "DBASE1.HLP",;
  60.             HELPID        "20503",;
  61.             ONCLICK        CopyChar,;
  62.             ONHELP         IDEHelp,;
  63.             SHORTCUT      "CTRL-INS",;
  64.             STATUSMESSAGE [Copy the current character string to the clipboard],;
  65.             TEXT          [&Copy]
  66.             
  67.     * define the minimize option of the edit menu
  68.     DEFINE MENUITEM mMin OF dbASCII.ASCMenu.mEdit;
  69.         PROPERTY ;
  70.             HELPFILE      "DBASE1.HLP",;
  71.             HELPID        "20504",;
  72.             ONCLICK        ASCMin,;
  73.             ONHELP         IDEHelp,;
  74.             STATUSMESSAGE [Minimize the size of the ASCII chart],;    
  75.             TEXT          [M&inimize]
  76.             
  77.     DEFINE MENUITEM mMax OF dbASCII.ASCMenu.mEdit;
  78.         PROPERTY ;
  79.             HELPFILE      "DBASE1.HLP",;
  80.             HELPID        "20588",;
  81.             ONCLICK        ASCMax,;
  82.             ONHELP         IDEHelp,;
  83.             STATUSMESSAGE [Maximize the size of the ASCII chart],;
  84.             TEXT          [M&aximize]    
  85.             
  86.     * define the help menu
  87.     DEFINE MENU mHelp OF dbASCII.ASCMenu;
  88.         PROPERTY ;
  89.             STATUSMESSAGE [Help with the ASCII chart],;
  90.             TEXT [&Help]
  91.  
  92.     DEFINE MENUITEM mUsing OF dbASCII.ASCMenu.mHelp;
  93.         PROPERTY ;
  94.             HELPFILE      "DBASE1.HLP",;
  95.             HELPID        "20501",;
  96.             ONCLICK        IDEHelp,;
  97.             ONHELP         IDEHelp,;
  98.             STATUSMESSAGE [Get help on the ASCII chart],;
  99.             TEXT          [&Using]
  100.  
  101.     DEFINE MENUITEM mSep OF dbASCII.ASCMenu.mHelp;
  102.         PROPERTY ;
  103.             ENABLED   .F.,;
  104.             SEPARATOR .T.
  105.             
  106.     * define the about option of the help menu
  107.     DEFINE MENUITEM mAbout OF dbASCII.ASCMenu.mHelp;
  108.         PROPERTY ;
  109.             HELPFILE      "DBASE1.HLP",;
  110.             HELPID        "20589",;
  111.             ONCLICK        AHAbout,;
  112.             ONHELP         IDEHelp,;
  113.             STATUSMESSAGE [About the ASCII chart],;
  114.             TEXT          [&About]
  115.  
  116.     * define the column titles
  117.     DEFINE TEXT dbTitle1 OF m->dbASCII AT kTop, 2;
  118.         PROPERTY ;
  119.             TEXT    [Char  Dec  Hex],;
  120.             VISIBLE .T.,;
  121.             LABEL   .F.
  122.             
  123.     DEFINE TEXT dbTitle2 OF m->dbASCII AT kTop,0;  && 17
  124.         PROPERTY ;
  125.             TEXT    [Char  Dec  Hex],;
  126.             VISIBLE .F.,;
  127.             LABEL   .F.
  128.  
  129.     DEFINE TEXT dbTitle3 OF m->dbASCII AT kTop,0;  && 32
  130.         PROPERTY ;
  131.             TEXT    [Char  Dec  Hex],;
  132.             VISIBLE .F.,;
  133.             LABEL   .F.
  134.  
  135.     DEFINE TEXT dbTitle4 OF m->dbASCII AT kTop,0;  && 47
  136.         PROPERTY ;
  137.             TEXT    [Char  Dec  Hex],;
  138.             VISIBLE .F.,;
  139.             LABEL   .F.
  140.             
  141.     dbASCII.dbTitle4.Visible = .F.      && bug workaround        
  142.  
  143.     * define the list box of character codes
  144.     DEFINE LISTBOX lTable OF m->dbASCII;
  145.         PROPERTY ;
  146.             TOP          kTop + 1,;
  147.             LEFT         2,;
  148.             HEIGHT       8,;
  149.             WIDTH       15,;
  150.             DATASOURCE "STRING ."
  151.  
  152.     * define the Add button
  153.     DEFINE PUSHBUTTON bAdd Of m->dbASCII;
  154.         PROPERTY ;
  155.             DEFAULT   .T.,;
  156.             GRABFOCUS .F.,;
  157.             TEXT      [&Add ],;
  158.             TOP        dbASCII.Height - (8 - kTop),;
  159.             LEFT        5,;
  160.             WIDTH      10,;
  161.             ONCLICK    Cpy2Entr
  162.  
  163.     * define the string entry field 
  164.     DEFINE ENTRYFIELD e1 OF m->dbASCII;
  165.         PROPERTY ;
  166.             TOP          dbASCII.Height - (6 - kTop),;
  167.             LEFT          2,;
  168.             ONGOTFOCUS   FixLen,;
  169.             ONLOSTFOCUS  ResetLen,;
  170.             WIDTH        16,;
  171.             PICTURE     "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",;
  172.             SHADOW      .F.,;
  173.             VALUE        SPACE(80);
  174.             CUSTOM ;
  175.                 nLen 0
  176.  
  177.