home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / csapi / spell.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  9.3 KB  |  275 lines
  1. VERSION 2.00
  2. Begin Form frmSpellCheckerAPI 
  3.    Caption         =   "Spell Checker API"
  4.    ClientHeight    =   6810
  5.    ClientLeft      =   765
  6.    ClientTop       =   375
  7.    ClientWidth     =   7950
  8.    Height          =   7215
  9.    Left            =   705
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   6810
  12.    ScaleWidth      =   7950
  13.    Top             =   30
  14.    Width           =   8070
  15.    Begin Frame frmSpellOption 
  16.       Caption         =   "SpellOption"
  17.       Height          =   1080
  18.       Left            =   135
  19.       TabIndex        =   20
  20.       Top             =   3030
  21.       Width           =   7620
  22.       Begin CheckBox chkSpellOption 
  23.          Caption         =   "FindUncappedSentences"
  24.          Enabled         =   0   'False
  25.          Height          =   255
  26.          Index           =   1
  27.          Left            =   345
  28.          TabIndex        =   19
  29.          Tag             =   "&h10"
  30.          Top             =   360
  31.          Width           =   2475
  32.       End
  33.       Begin CheckBox chkSpellOption 
  34.          Caption         =   "FindRepeatWords"
  35.          Enabled         =   0   'False
  36.          Height          =   255
  37.          Index           =   0
  38.          Left            =   345
  39.          TabIndex        =   18
  40.          Tag             =   "&h40"
  41.          Top             =   615
  42.          Width           =   1905
  43.       End
  44.    End
  45.    Begin Frame frmSpellTerminate 
  46.       Height          =   705
  47.       Left            =   135
  48.       TabIndex        =   16
  49.       Top             =   5685
  50.       Width           =   7620
  51.       Begin CommandButton cmdSpellTerminate 
  52.          Caption         =   "SpellTerminate"
  53.          Height          =   270
  54.          Left            =   75
  55.          TabIndex        =   17
  56.          Top             =   285
  57.          Width           =   2010
  58.       End
  59.       Begin Label lblSpellTerminate 
  60.          BorderStyle     =   1  'Fixed Single
  61.          Height          =   240
  62.          Left            =   2145
  63.          TabIndex        =   14
  64.          Top             =   300
  65.          Width           =   5310
  66.       End
  67.    End
  68.    Begin Frame frmSpellCheck 
  69.       Height          =   1530
  70.       Left            =   135
  71.       TabIndex        =   12
  72.       Top             =   4080
  73.       Width           =   7620
  74.       Begin TextBox tbxSpellCheck 
  75.          Height          =   1155
  76.          HideSelection   =   0   'False
  77.          Left            =   2145
  78.          MultiLine       =   -1  'True
  79.          ScrollBars      =   2  'Vertical
  80.          TabIndex        =   15
  81.          Text            =   "Now is the the tieme for all goood men.  so there."
  82.          Top             =   285
  83.          Width           =   5310
  84.       End
  85.       Begin CommandButton cmdSpellCheck 
  86.          Caption         =   "SpellCheck"
  87.          Enabled         =   0   'False
  88.          Height          =   270
  89.          Left            =   75
  90.          TabIndex        =   13
  91.          Top             =   285
  92.          Width           =   2010
  93.       End
  94.    End
  95.    Begin Frame frmSpellVerifyMdr 
  96.       Height          =   705
  97.       Left            =   135
  98.       TabIndex        =   9
  99.       Top             =   795
  100.       Width           =   7620
  101.       Begin CommandButton cmdSpellVerifyMdr 
  102.          Caption         =   "SpellVerifyMdr"
  103.          Height          =   270
  104.          Left            =   90
  105.          TabIndex        =   10
  106.          Top             =   285
  107.          Width           =   2010
  108.       End
  109.       Begin Label lblSpellVerifyMdr 
  110.          BorderStyle     =   1  'Fixed Single
  111.          Height          =   240
  112.          Left            =   2145
  113.          TabIndex        =   11
  114.          Top             =   300
  115.          Width           =   5310
  116.       End
  117.    End
  118.    Begin Frame frmSpellOpenMdr 
  119.       Height          =   705
  120.       Left            =   135
  121.       TabIndex        =   6
  122.       Top             =   2265
  123.       Width           =   7620
  124.       Begin CommandButton cmdSpellOpenMdr 
  125.          Caption         =   "SpellOpenMdr"
  126.          Enabled         =   0   'False
  127.          Height          =   270
  128.          Left            =   75
  129.          TabIndex        =   7
  130.          Top             =   285
  131.          Width           =   2010
  132.       End
  133.       Begin Label lblSpellOpenMdr 
  134.          BorderStyle     =   1  'Fixed Single
  135.          Height          =   240
  136.          Left            =   2145
  137.          TabIndex        =   8
  138.          Top             =   300
  139.          Width           =   5310
  140.       End
  141.    End
  142.    Begin Frame frmSpellInit 
  143.       Height          =   705
  144.       Left            =   135
  145.       TabIndex        =   3
  146.       Top             =   1485
  147.       Width           =   7620
  148.       Begin CommandButton cmdSpellInit 
  149.          Caption         =   "SpellInit"
  150.          Height          =   270
  151.          Left            =   60
  152.          TabIndex        =   4
  153.          Top             =   285
  154.          Width           =   2010
  155.       End
  156.       Begin Label lblSpellInit 
  157.          BorderStyle     =   1  'Fixed Single
  158.          Height          =   240
  159.          Left            =   2145
  160.          TabIndex        =   5
  161.          Top             =   300
  162.          Width           =   5310
  163.       End
  164.    End
  165.    Begin Frame frmSpellVer 
  166.       Height          =   705
  167.       Left            =   135
  168.       TabIndex        =   1
  169.       Top             =   45
  170.       Width           =   7620
  171.       Begin CommandButton cmdSpellVer 
  172.          Caption         =   "SpellVer"
  173.          Height          =   270
  174.          Left            =   90
  175.          TabIndex        =   2
  176.          Top             =   285
  177.          Width           =   2010
  178.       End
  179.       Begin Label lblSpellVer 
  180.          BorderStyle     =   1  'Fixed Single
  181.          Height          =   240
  182.          Left            =   2145
  183.          TabIndex        =   0
  184.          Top             =   300
  185.          Width           =   5310
  186.       End
  187.    End
  188. Sub chkSpellOption_Click (Index As Integer)
  189.     For i% = 0 To 1
  190.         If chkSpellOption(i%).Value Then spellOption& = spellOption& Or Val(chkSpellOption(i%).Tag)
  191.     Next
  192.     rci% = SpellOptions(csSpellIdentifier, spellOption&)
  193. End Sub
  194. Sub cmdReset_Click ()
  195.     tbxSpellCheck.Text = "Now is the the tieme for all goood men.  so there."
  196. End Sub
  197. Sub cmdSpellCheck_Click ()
  198.     holdTextBuffer$ = tbxSpellCheck.Text
  199.     csTextBuffer = tbxSpellCheck.Text
  200.     Me.Enabled = False
  201.     Load frmSpellChecker
  202.     Do
  203.         de% = DoEvents()
  204.         If tbxSpellCheck.Text <> csTextBuffer Then tbxSpellCheck.Text = csTextBuffer
  205.         If csReturnStatus = scrsUnknownInputWord Or csReturnStatus = scrsRepeatWord Or csReturnStatus = scrsNoSentenceStartCap Then
  206.             tbxSpellCheck.SelStart = csUnknownWordStart - 1
  207.             tbxSpellCheck.SelLength = csUnknownWordLength
  208.             csReturnStatus = 99
  209.         End If
  210.     Loop Until csReturnStatus = csCancel Or csReturnStatus = csDone Or csReturnStatus = csError
  211.     tbxSpellCheck.SelStart = 0
  212.     tbxSpellCheck.SelLength = 0
  213.     Me.Enabled = True
  214.     Unload frmSpellChecker
  215.     Select Case csReturnStatus
  216.         Case csCancel
  217.             tbxSpellCheck.Text = holdTextBuffer$
  218.             rci% = MsgBox("The spelling check was cancelled.", 48, "Spell Checker")
  219.         Case csError
  220.             rci% = MsgBox("A more informative error message is needed here.", 64, "Spell Checker")
  221.         Case Else
  222.             tbxSpellCheck.Text = csTextBuffer
  223.             rci% = MsgBox("The spelling check is complete.", 64, "Spell Checker")
  224.     End Select
  225. End Sub
  226. Sub cmdSpellInit_Click ()
  227.     If SpellerInit(errorCode%) Then
  228.         lblSpellInit.Caption = "Error: " & errorCode%
  229.     Else
  230.         lblSpellInit.Caption = "Spell Id: " & csSpellIdentifier
  231.         cmdSpellInit.Enabled = False
  232.         cmdSpellOpenMdr.Enabled = True
  233.         For i% = 0 To 1
  234.             chkSpellOption(i%).Enabled = True
  235.         Next
  236.     End If
  237. End Sub
  238. Sub cmdSpellOpenMdr_Click ()
  239.     If SpellerOpenMdr(majorError%, minorError%) Then
  240.         lblSpellOpenMdr.Caption = "Error: Major-" & majorError% & " Minor-" & minorError%
  241.     Else
  242.         lblSpellOpenMdr.Caption = "Mdr= " & csMainDictionaryReference.Mdr & "; Lid= " & Hex$(csMainDictionaryReference.Lid) & "h; Udr= " & csMainDictionaryReference.Udr
  243.         cmdSpellOpenMdr.Enabled = False
  244.         cmdSpellCheck.Enabled = True
  245.     End If
  246. End Sub
  247. Sub cmdSpellTerminate_Click ()
  248.     If Not SpellerTerminate(errorCode%, True) Then
  249.         csSpellIdentifier = 0
  250.         cmdSpellInit.Enabled = True
  251.         lblSpellInit.Caption = ""
  252.         cmdSpellOpenMdr.Enabled = False
  253.         lblSpellOpenMdr.Caption = ""
  254.         cmdSpellCheck.Enabled = False
  255.         tbxSpellCheck.Text = "Now is the the tieme for all goood men.  so there."
  256.         For i% = 0 To 1
  257.             chkSpellOption(i%).Enabled = False
  258.             chkSpellOption(i%).Value = False
  259.         Next
  260.     End If
  261. End Sub
  262. Sub cmdSpellVer_Click ()
  263.     lblSpellVer = SpellerVersion()
  264. End Sub
  265. Sub cmdSpellVerifyMdr_Click ()
  266.     lblSpellVerifyMdr.Caption = SpellerVerifyMdr()
  267. End Sub
  268. Sub Form_Load ()
  269.     csMainDictionary$ = "c:\windows\msapps\proof\mssp_am.lex"
  270.     csUserDictionary$ = ""
  271. End Sub
  272. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  273.     If csSpellIdentifier Then rci% = SpellTerminate(csSpellIdentifier, True)
  274. End Sub
  275.