inherited frmGUIforSpellCheck: TfrmGUIforSpellCheck Left = 192 Top = 114 BorderStyle = bsDialog Caption = 'SpellCheck based on open source HanSpell Engine' ClientHeight = 516 ClientWidth = 737 Font.Charset = ANSI_CHARSET Font.Height = -13 Font.Name = 'Tahoma' Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnShow = FormShow ExplicitTop = -69 ExplicitWidth = 743 ExplicitHeight = 548 PixelsPerInch = 96 TextHeight = 16 object lblDictionary: TLabel [0] Left = 11 Top = 1 Width = 116 Height = 16 Caption = 'Main &Dictionary File:' end object lblOpenMedURL: TLabel [1] Left = 11 Top = 54 Width = 726 Height = 14 Cursor = crHandPoint Hint = 'URL for Medical Dictionary current being used (GPL license)' Caption = 'http://code.openhub.net/project?pid=08caPIxPvc0&prevcid=1&did=op' + 'enmedspel%2Fsrc%2Fdictionaries&cid=sPPyiSPxN3U&fp=363738&projSel' + 'ected=true' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsItalic, fsUnderline] ParentFont = False ParentShowHint = False ShowHint = True WordWrap = True OnClick = lblOpenMedURLClick end object lblDictionariesURL: TLabel [2] Left = 11 Top = 74 Width = 486 Height = 16 Cursor = crHandPoint Hint = 'URL for other language dictionaries' Caption = 'http://archive.services.openoffice.org/pub/mirror/OpenOffice.org' + '/contrib/dictionaries/' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsItalic, fsUnderline] ParentFont = False ParentShowHint = False ShowHint = True OnClick = lblOpenMedURLClick end object pnlAbout: TPanel [3] Left = 8 Top = 8 Width = 721 Height = 508 TabOrder = 6 Visible = False object Button1: TButton Left = 326 Top = 464 Width = 75 Height = 25 Caption = 'OK' TabOrder = 0 OnClick = Button1Click end end object btnClose: TButton [4] Left = 503 Top = 483 Width = 110 Height = 25 Caption = 'C&lose' ModalResult = 1 TabOrder = 2 Visible = False OnClick = btnCloseClick end object pnlMisSpelled: TPanel [5] Left = 0 Top = 268 Width = 729 Height = 248 BevelOuter = bvNone TabOrder = 1 object Label1: TLabel Left = 11 Top = 26 Width = 176 Height = 16 Caption = '&Suggestions and Alternavtives:' FocusControl = lstSuggestions end object Label4: TLabel Left = 11 Top = 3 Width = 133 Height = 16 Caption = 'C&urrent Misspelt Word:' FocusControl = Edit2 end object lstSuggestions: TListBox Left = 3 Top = 43 Width = 406 Height = 197 ItemHeight = 16 TabOrder = 1 end object Edit2: TEdit Left = 151 Top = 4 Width = 554 Height = 18 AutoSize = False BorderStyle = bsNone Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 Text = 'HighlightEdit' Visible = False end object btnReplaceWith: TButton Left = 452 Top = 129 Width = 110 Height = 25 Caption = 'R&eplace with ...' TabOrder = 6 OnClick = btnReplaceWithClick end object btnChangeAll: TButton Left = 452 Top = 84 Width = 110 Height = 25 Caption = 'Change &All' TabOrder = 3 OnClick = btnChangeAllClick end object btnChange: TButton Left = 452 Top = 39 Width = 110 Height = 25 Caption = '&Change' TabOrder = 2 OnClick = btnChangeClick end object btnAddToDictionary: TButton Left = 611 Top = 129 Width = 110 Height = 25 Caption = 'A&dd to Dictionary' TabOrder = 8 OnClick = btnAddToDictionaryClick end object btnIgnoreAll: TButton Left = 611 Top = 84 Width = 110 Height = 25 Caption = 'I&gnore All' TabOrder = 5 OnClick = btnIgnoreAllClick end object btnIgnoreOnce: TButton Left = 611 Top = 39 Width = 110 Height = 25 Caption = '&Ignore Once' TabOrder = 4 OnClick = btnIgnoreOnceClick end object btnCancel: TButton Left = 619 Top = 216 Width = 110 Height = 25 Caption = 'Ca&ncel' TabOrder = 9 OnClick = btnCancelClick end object btnUndo: TButton Left = 452 Top = 175 Width = 110 Height = 25 Caption = '&Undo' TabOrder = 7 OnClick = btnUndoClick end end object Edit1: TEdit [6] Left = 131 Top = 0 Width = 531 Height = 23 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Comic Sans MS' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 3 OnEnter = Edit1Enter end object btnSelectDict: TBitBtn [7] Left = 476 Top = 26 Width = 258 Height = 25 Caption = '&Browse for and select different dictionary' TabOrder = 4 OnClick = btnSelectDictClick end object RichEdit1: TRichEdit [8] Left = 3 Top = 101 Width = 726 Height = 161 Lines.Strings = ( 'Nothing to Check !') ScrollBars = ssBoth TabOrder = 0 end object btnAbout: TButton [9] Left = 452 Top = 483 Width = 110 Height = 25 Caption = 'A&bout' TabOrder = 5 OnClick = btnAboutClick end inherited amgrMain: TVA508AccessibilityManager Data = ( ( 'Component = pnlMisSpelled' 'Status = stsDefault') ( 'Component = lstSuggestions' 'Status = stsDefault') ( 'Component = Edit2' 'Status = stsDefault') ( 'Component = btnReplaceWith' 'Status = stsDefault') ( 'Component = btnChangeAll' 'Status = stsDefault') ( 'Component = btnChange' 'Status = stsDefault') ( 'Component = btnAddToDictionary' 'Status = stsDefault') ( 'Component = btnIgnoreAll' 'Status = stsDefault') ( 'Component = btnIgnoreOnce' 'Status = stsDefault') ( 'Component = btnCancel' 'Status = stsDefault') ( 'Component = btnClose' 'Status = stsDefault') ( 'Component = Edit1' 'Status = stsDefault') ( 'Component = btnSelectDict' 'Status = stsDefault') ( 'Component = RichEdit1' 'Status = stsDefault') ( 'Component = frmGUIforSpellCheck' 'Status = stsDefault') ( 'Component = btnAbout' 'Status = stsDefault') ( 'Component = pnlAbout' 'Status = stsDefault') ( 'Component = Button1' 'Status = stsDefault') ( 'Component = btnUndo' 'Status = stsDefault')) end object OpenDialog1: TOpenDialog DefaultExt = '*.Dict' FileName = 'en_US-large.dic' Filter = 'HanSpell Dictionary & Aff file|*.dic' Title = 'Specify Dictionary file (Corresponding *.aff file also required)' Left = 668 Top = 65534 end object SpellCheck1: TskaHunSpellChecker Active = False btnClose = btnClose CustDictionaryFile = 'C:\Documents and Settings\All Users\Documents\CustomDictionary.d' + 'ic' MisSpeltWord = Edit2 SourceTextControl = RichEdit1 SpellCheckCompletionMessage = 'Spell Check Complete' SuggestionList = lstSuggestions Left = 368 Top = 104 end end