home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Ocx / Vci / Vspell / VCSPELL3.PAS next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  41.4 KB  |  961 lines
  1. unit vcspell3;
  2.  
  3. { This file contains pascal declarations imported from a type library.
  4.   This file will be written during each import or refresh of the type
  5.   library editor.  Changes to this file will be discarded during the
  6.   refresh process. }
  7.  
  8. { VCI VisualSpeller Library }
  9. { Version 2.0 }
  10.  
  11. interface
  12.  
  13. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  14.  
  15. const
  16.   LIBID_VspelocxLib: TGUID = '{97F4CED3-9103-11CE-8385-524153480001}';
  17.  
  18. const
  19.  
  20. { Dictionary category constants }
  21.  
  22. { DictionaryCategories }
  23.  
  24.   VSCAT_STANDARD = 256;
  25.   VSCAT_IRLIST = 256;
  26.   VSCAT_CUSTOM = 512;
  27.   VSCAT_ENABLED = 1024;
  28.   VSCAT_DISABLED = 2048;
  29.  
  30. { Dictionary status constants }
  31.  
  32. { DictionaryStatusBits }
  33.  
  34.   VSDSTAT_ENABLED = 1;
  35.   VSDSTAT_LOADED = 2;
  36.   VSDSTAT_IRLIST_ENABLED = 4;
  37.   VSDSTAT_UPDATEABLE = 8;
  38.   VSDSTAT_READONLY = 16;
  39.   VSDSTAT_EXTENDED = 32;
  40.   VSDSTAT_HYPHENATION = 64;
  41.   VSDSTAT_PHONETICS = 128;
  42.   VSDSTAT_COMMONLIST = 256;
  43.  
  44. { Dictionary language code constants }
  45.  
  46. { DictionaryLanguageCodes }
  47.  
  48.   VSLANG_AMERICAN = 0;
  49.   VSLANG_ENGLISH = 1;
  50.   VSLANG_FRENCH = 2;
  51.   VSLANG_GERMAN = 3;
  52.   VSLANG_SPANISH = 4;
  53.   VSLANG_PORTUGUESE = 5;
  54.   VSLANG_ITALIAN = 6;
  55.   VSLANG_DUTCH = 7;
  56.   VSLANG_SWEDISH = 8;
  57.   VSLANG_FINNISH = 9;
  58.   VSLANG_NORWEGIAN = 10;
  59.   VSLANG_LATIN = 11;
  60.   VSLANG_WELSH = 12;
  61.   VSLANG_POLISH = 13;
  62.   VSLANG_HUNGARIAN = 14;
  63.   VSLANG_FLEMISH = 15;
  64.   VSLANG_CZECH = 16;
  65.   VSLANG_ICELANDIC = 17;
  66.   VSLANG_ESPERANTO = 18;
  67.   VSLANG_CATALAN = 19;
  68.   VSLANG_ROMANIAN = 20;
  69.   VSLANG_BULGARIAN = 21;
  70.   VSLANG_RUSSIAN = 22;
  71.   VSLANG_QUECHUA = 23;
  72.   VSLANG_TURKISH = 24;
  73.   VSLANG_INDONESIAN = 25;
  74.   VSLANG_HEBREW = 26;
  75.   VSLANG_DANISH = 27;
  76.   VSLANG_CANADIAN = 28;
  77.  
  78. { Event option constants }
  79.  
  80. { EventOptionBits }
  81.  
  82.   VSEVOPT_COMPLETE = 1;
  83.   VSEVOPT_FOUND = 2;
  84.   VSEVOPT_MISSPELLED = 4;
  85.   VSEVOPT_BEFORE_REPLACE = 8;
  86.   VSEVOPT_AFTER_POPUP = 16;
  87.   VSEVOPT_CHECK_STATUS = 32;
  88.   VSEVOPT_CHECK_ERROR = 64;
  89.   VSEVOPT_AFTER_REPLACE = 128;
  90.   VSEVOPT_CLICK_IN = 256;
  91.   VSEVOPT_CLICK_OUT = 512;
  92.   VSEVOPT_DEFAULTS = 65533;
  93.  
  94. { Search order constants }
  95.  
  96. { SearchOrderCodes }
  97.  
  98.   VSORDER_SCIR = 0;
  99.   VSORDER_CIRS = 2;
  100.   VSORDER_IRSC = 3;
  101.   VSORDER_SIRC = 4;
  102.   VSORDER_CSIR = 6;
  103.   VSORDER_IRCS = 7;
  104.   VSORDER_NO_LOOKAHEAD = 8;
  105.  
  106. { Spell option constants }
  107.  
  108. { SpellOptionBits }
  109.  
  110.   VSOPT_AUTO_REPLACE = 1;
  111.   VSOPT_AUTO_SUGGEST = 2;
  112.   VSOPT_AUTO_POPUP = 4;
  113.   VSOPT_IGNORE_FULL_CAPS = 8;
  114.   VSOPT_IGNORE_PARTIAL_NUMBERS = 16;
  115.   VSOPT_MULTILINE = 32;
  116.   VSOPT_IGNORE_PURE_NUMBERS = 64;
  117.   VSOPT_ALLOW_JOINED_WORDS = 128;
  118.   VSOPT_EXACT_MATCH = 256;
  119.   VSOPT_RETURN_EACH_WORD = 512;
  120.   VSOPT_REPLACE_RECHECK = 1024;
  121.   VSOPT_DEFAULTS = 1127;
  122.  
  123. { Suggestion option constants }
  124.  
  125. { SuggestOptionBits }
  126.  
  127.   VSSUGOPT_CAPITALIZATION = 1;
  128.   VSSUGOPT_CHARSWAP = 2;
  129.   VSSUGOPT_DELETES = 4;
  130.   VSSUGOPT_DOUBLES = 8;
  131.   VSSUGOPT_HYPHENS = 16;
  132.   VSSUGOPT_SPLITS = 32;
  133.   VSSUGOPT_EXCHANGES = 64;
  134.   VSSUGOPT_INSERTIONS = 512;
  135.   VSSUGOPT_DEFAULTS = 639;
  136.  
  137. { Ignore/replace constants }
  138.  
  139. { IgnoreReplaceCodes }
  140.  
  141.   VSIR_GLOBAL = 1;
  142.   VSIR_PROMPT = 2;
  143.   VSIR_IGNORE = 4;
  144.   VSIR_REPLACE = 8;
  145.   VSIR_HYPHENATION = 16;
  146.   VSIR_SPELLED_OK = 5;
  147.   VSIR_REPLACE_ALL = 9;
  148.   VSIR_MISSPELLED = 6;
  149.   VSIR_PROMPT_REPLACE = 10;
  150.  
  151. { Event action constants }
  152.  
  153. { EventActionCodes }
  154.  
  155.   VS_DEFAULT_HANDLING = 0;
  156.   VS_EVENT_HANDLED = 1;
  157.   VS_CANCEL_SPELLCHECK = 2;
  158.  
  159. { Button click constants }
  160.  
  161. { ButtonClickBits }
  162.  
  163.   VSCLICK_WORD_MISSPELLED_HELP = 1;
  164.   VSCLICK_OPTIONS = 2;
  165.   VSCLICK_PROMPT_REPLACE = 4;
  166.   VSCLICK_ADD_TO_CUSTOM = 8;
  167.   VSCLICK_REPLACE_ALL = 16;
  168.   VSCLICK_REPLACE = 32;
  169.   VSCLICK_IGNORE_ALL = 64;
  170.   VSCLICK_IGNORE = 128;
  171.   VSCLICK_SUGGEST_NOT_FOUND = 256;
  172.   VSCLICK_SUGGEST_REPLACE_WITH = 512;
  173.   VSCLICK_CANCEL_SPELLCHECK = 1024;
  174.   VSCLICK_THESAURUS = 2048;
  175.   VSCLICK_OPTIONS_HELP = 65536;
  176.   VSCLICK_OPTIONS_OK = 131072;
  177.   VSCLICK_OPTIONS_CANCEL = 262144;
  178.   VSCLICK_OPEN_CUSTOM = 524288;
  179.   VSCLICK_CLOSE_CUSTOM = 1048576;
  180.   VSCLICK_OPEN_STANDARD = 2097152;
  181.   VSCLICK_CLOSE_STANDARD = 4194304;
  182.   VSCLICK_THESAURUS_OK = 16777216;
  183.   VSCLICK_THESAURUS_SEARCH = 33554432;
  184.   VSCLICK_THESAURUS_CANCEL = 67108864;
  185.   VSCLICK_THESAURUS_HELP = 134217728;
  186.  
  187. { Dialog element constants }
  188.  
  189. { DialogElementBits }
  190.  
  191.   VSD_WORD_MISSPELLED_HELP = 1;
  192.   VSD_OPTIONS = 2;
  193.   VSD_PROMPT_REPLACE = 4;
  194.   VSD_ADD_TO_CUSTOM = 8;
  195.   VSD_REPLACE_ALL = 16;
  196.   VSD_REPLACE = 32;
  197.   VSD_IGNORE_ALL = 64;
  198.   VSD_IGNORE = 128;
  199.   VSD_SUGGEST_NOT_FOUND = 256;
  200.   VSD_SUGGEST_REPLACE_WITH = 512;
  201.   VSD_CANCEL_SPELLCHECK = 1024;
  202.   VSD_SUGGESTIONS_LIST = 2048;
  203.   VSD_REPLACE_BOX = 4096;
  204.   VSD_CUSTOM_LIST = 8192;
  205.   VSD_THESAURUS = 16384;
  206.   VSD_OPTIONS_HELP = 65536;
  207.   VSD_CUSTOMS = 131072;
  208.   VSD_STANDARDS = 262144;
  209.   VSD_PERFORMANCE = 524288;
  210.   VSD_SUGGESTION_LIMIT = 1048576;
  211.   VSD_AUTO_SUGGESTIONS = 2097152;
  212.   VSD_EXACT_MATCH = 4194304;
  213.   VSD_IGNORE_FULL_CAPS = 8388608;
  214.   VSD_IGNORE_PARTIAL = 16777216;
  215.   VSD_IGNORE_PURE = 33554432;
  216.   VSD_ALLOW_JOINED = 67108864;
  217.   VSD_RECHECK = 134217728;
  218.   VSD_THESAURUS_HELP = 268435456;
  219.   VSD_THESAURUS_SEARCH = 536870912;
  220.  
  221. { ResultCode status constants }
  222.  
  223. { ResultStatusCodes }
  224.  
  225.   VSR_WORD_MISSPELLED = -1;
  226.   VSR_IGNORE_REPLACE = -2;
  227.   VSR_CHECK_CANCELED = -3;
  228.   VSR_BREAK = -4;
  229.   VSR_FOUND = -5;
  230.   VSR_REPLACED = -6;
  231.   VSR_CHANGED = -7;
  232.   VSR_END_LIST = -8;
  233.   VSR_ENTRY_NOT_FOUND = -9;
  234.   VSR_OPENED_READONLY = -11;
  235.   VSR_REPLACE_OVERFLOW = -12;
  236.   VSR_NOT_ADDED = -13;
  237.   VSR_POPPED = -14;
  238.   VSR_CLICK_IN = -15;
  239.   VSR_CLICK_OUT = -16;
  240.  
  241. { ResultCode error constants }
  242.  
  243. { ResultErrorCodes }
  244.  
  245.   VSR_NO_ERROR = 0;
  246.   VSR_WORD_TOO_LONG = 1;
  247.   VSR_NO_MISSPELL = 2;
  248.   VSR_ALREADY_OPEN = 4;
  249.   VSR_OPEN_FAILED = 5;
  250.   VSR_CREATE_FAILED = 6;
  251.   VSR_INVALID_DICTIONARY = 7;
  252.   VSR_WRITE_FAILURE = 9;
  253.   VSR_READ_FAILURE = 10;
  254.   VSR_BAD_FILE_NAME = 11;
  255.   VSR_NOT_UPDATEABLE = 12;
  256.   VSR_DUPLICATE_WORD = 13;
  257.   VSR_BAD_CUSTOM = 14;
  258.   VSR_IN_EVENT = 15;
  259.   VSR_NOT_LOADED = 16;
  260.   VSR_REPLACE_ERROR = 17;
  261.   VSR_CACHE_ERROR = 18;
  262.   VSR_INVALID_CONTEXT = 19;
  263.   VSR_NOTHING_TO_CHECK = 20;
  264.   VSR_DIALOG_ERROR = 21;
  265.   VSR_OUT_OF_MEMORY = 22;
  266.   VSR_BAD_INDEX = 23;
  267.   VSR_OUT_OF_STRING_SPACE = 24;
  268.   VSR_IN_DIALOG = 25;
  269.   VSR_FILE_EXISTS = 26;
  270.  
  271. { Runtime error constants }
  272.  
  273. { RuntimeErrorCodes }
  274.  
  275.   VB_OFFSET = 32350;
  276.   VBR_WORD_TOO_LONG = 32351;
  277.   VBR_NO_MISSPELL = 32352;
  278.   VBR_ALREADY_OPEN = 32354;
  279.   VBR_OPEN_FAILED = 32355;
  280.   VBR_CREATE_FAILED = 32356;
  281.   VBR_INVALID_DICTIONARY = 32357;
  282.   VBR_WRITE_FAILURE = 32359;
  283.   VBR_READ_FAILURE = 32360;
  284.   VBR_BAD_FILE_NAME = 32361;
  285.   VBR_NOT_UPDATEABLE = 32362;
  286.   VBR_DUPLICATE_WORD = 32363;
  287.   VBR_BAD_CUSTOM = 32364;
  288.   VBR_IN_EVENT = 32365;
  289.   VBR_NOT_LOADED = 32366;
  290.   VBR_REPLACE_ERROR = 32367;
  291.   VBR_CACHE_ERROR = 32368;
  292.   VBR_INVALID_CONTEXT = 32369;
  293.   VBR_NOTHING_TO_CHECK = 32370;
  294.   VBR_DIALOG_ERROR = 32371;
  295.   VBR_OUT_OF_MEMORY = 32372;
  296.   VBR_BAD_INDEX = 32373;
  297.   VBR_OUT_OF_STRING_SPACE = 32374;
  298.   VBR_IN_DIALOG = 32375;
  299.   VBR_FILE_EXISTS = 32376;
  300.  
  301. { Miscellaneous constants }
  302.  
  303. { MiscellaneousCodes }
  304.  
  305.   VS_ALL = 0;
  306.   VS_MAXWORDSIZE = 75;
  307.  
  308. const
  309.  
  310. { Component class GUIDs }
  311.   Class_VSSpell: TGUID = '{97F4CED0-9103-11CE-8385-524153480001}';
  312.  
  313. type
  314.  
  315. { Forward declarations }
  316. { Forward declarations: Interfaces }
  317.   _DVSpell = dispinterface;
  318.   _DVSpellEvents = dispinterface;
  319.  
  320. { Forward declarations: CoClasses }
  321.   VSSpell = _DVSpell;
  322.  
  323. { Forward declarations: Enums }
  324.   DictionaryCategories = TOleEnum;
  325.   DictionaryStatusBits = TOleEnum;
  326.   DictionaryLanguageCodes = TOleEnum;
  327.   EventOptionBits = TOleEnum;
  328.   SearchOrderCodes = TOleEnum;
  329.   SpellOptionBits = TOleEnum;
  330.   SuggestOptionBits = TOleEnum;
  331.   IgnoreReplaceCodes = TOleEnum;
  332.   EventActionCodes = TOleEnum;
  333.   ButtonClickBits = TOleEnum;
  334.   DialogElementBits = TOleEnum;
  335.   ResultStatusCodes = TOleEnum;
  336.   ResultErrorCodes = TOleEnum;
  337.   RuntimeErrorCodes = TOleEnum;
  338.   MiscellaneousCodes = TOleEnum;
  339.  
  340. { Dispatch interface for VisualSpeller Control }
  341.  
  342.   _DVSpell = dispinterface
  343.     ['{97F4CED1-9103-11CE-8385-524153480001}']
  344.     property AutoPopup: WordBool dispid 4;
  345.     property AutoReplace: WordBool dispid 5;
  346.     property AutoSuggest: WordBool dispid 6;
  347.     property BreakWordCount: Smallint dispid 7;
  348.     property CacheSize: Smallint dispid 8;
  349.     property ErrorOffset: Smallint dispid 1;
  350.     property IgnoreFullCaps: WordBool dispid 9;
  351.     property IgnorePartialNumbers: WordBool dispid 10;
  352.     property MaxSuggestions: Smallint dispid 11;
  353.     property MultiLine: WordBool dispid 12;
  354.     property SuggestionsLimit: Smallint dispid 13;
  355.     property Version: WideString dispid 14;
  356.     property CurrentLine: Integer dispid 15;
  357.     property CustomCount: Smallint dispid 16;
  358.     property DLLHandle: Integer dispid 17;
  359.     property EventOptions: Smallint dispid 18;
  360.     property Hyphenation: WideString dispid 19;
  361.     property IRAction: Smallint dispid 20;
  362.     property IRWhereFound: Smallint dispid 21;
  363.     property LineBreak: WideString dispid 22;
  364.     property LineOffset: Smallint dispid 23;
  365.     property MisspelledWord: WideString dispid 24;
  366.     property ReplaceCount: Integer dispid 25;
  367.     property ReplacementWord: WideString dispid 26;
  368.     property ResultCode: Smallint dispid 27;
  369.     property ResumeOffset: Integer dispid 28;
  370.     property SearchOrder: Smallint dispid 29;
  371.     property SpellOptions: Smallint dispid 30;
  372.     property StandardCount: Smallint dispid 31;
  373.     property SuggestOptions: Smallint dispid 32;
  374.     property SuggestionCount: Smallint dispid 33;
  375.     property Text: WideString dispid 34;
  376.     property WhereFound: Smallint dispid 35;
  377.     property WordCount: Integer dispid 36;
  378.     property WordOffset: Integer dispid 37;
  379.     property AllowJoinedWords: WordBool dispid 38;
  380.     property DialogLeft: Integer dispid 39;
  381.     property DialogTop: Integer dispid 40;
  382.     property ReplaceRecheck: WordBool dispid 41;
  383.     property DialogBgColor: TColor dispid 42;
  384.     property DialogLeftActual: Integer dispid 43;
  385.     property DialogTopActual: Integer dispid 44;
  386.     property ReplaceOccurred: WordBool dispid 45;
  387.     property SuggestionsMade: WordBool dispid 46;
  388.     property WordLength: Smallint dispid 47;
  389.     property CacheHits: Integer dispid 48;
  390.     property CacheMisses: Integer dispid 49;
  391.     property TimerTicks: Integer dispid 50;
  392.     property UserData: Integer dispid 51;
  393.     property CheckedWord: WideString dispid 52;
  394.     property CommonIRListIsEnabled: WordBool dispid 53;
  395.     property WordMisspelledTitle: WideString dispid 54;
  396.     property OptionsTitle: WideString dispid 55;
  397.     property ErrorTitle: WideString dispid 56;
  398.     property WordMisspelledHelpFile: WideString dispid 57;
  399.     property OptionsHelpFile: WideString dispid 58;
  400.     property DialogElements: Integer dispid 59;
  401.     property DialogWidth: Integer dispid 60;
  402.     property DialogHeight: Integer dispid 61;
  403.     property ErrorText: WideString dispid 62;
  404.     property ClickedButton: Integer dispid 63;
  405.     property ClickInfo: Integer dispid 64;
  406.     property ClickInfoText: WideString dispid 65;
  407.     property AddToCommonIRList: Smallint dispid 66;
  408.     property BeginCheck: Smallint dispid 67;
  409.     property CheckText: WideString dispid 68;
  410.     property CheckWord: WideString dispid 69;
  411.     property ClearCounts: Smallint dispid 70;
  412.     property ClearOffsets: Smallint dispid 71;
  413.     property FindSuggestions: WideString dispid 72;
  414.     property ReplaceLastWord: Smallint dispid 73;
  415.     property ResumeCheck: Smallint dispid 74;
  416.     property ClearSuggestions: Smallint dispid 75;
  417.     property PopupError: Smallint dispid 76;
  418.     property PopupOptions: Smallint dispid 77;
  419.     property PopupWordMisspelled: Smallint dispid 78;
  420.     property CreateCustom: WideString dispid 79;
  421.     property ResumeWithRecheck: Smallint dispid 80;
  422.     property EnableCommonIRList: WordBool dispid 81;
  423.     property ClearCommonIRList: Smallint dispid 82;
  424.     property RemoveFromCommonIRList: WideString dispid 83;
  425.     property EnableEventOptions: Smallint dispid 84;
  426.     property DisableEventOptions: Smallint dispid 85;
  427.     property EnableSpellOptions: Smallint dispid 86;
  428.     property DisableSpellOptions: Smallint dispid 87;
  429.     property EnableSuggestOptions: Smallint dispid 88;
  430.     property DisableSuggestOptions: Smallint dispid 89;
  431.     property EnableDialogElements: Integer dispid 90;
  432.     property DisableDialogElements: Integer dispid 91;
  433.     property _Text: WideString dispid 0;
  434.     property StandardDictionary: WideString dispid 2;
  435.     property CustomDictionary: WideString dispid 3;
  436.     property OpenStandard[loadit: WordBool]: WideString writeonly dispid 92;
  437.     property DictionaryLanguage[index: Smallint]: Smallint readonly dispid 107;
  438.     property DictionaryName[index: Smallint]: WideString readonly dispid 108;
  439.     property DictionaryStatus[index: Smallint]: Smallint readonly dispid 109;
  440.     property DictionaryIsEnabled[index: Smallint]: WordBool readonly dispid 110;
  441.     property DictionaryNameFull[index: Smallint]: WideString readonly dispid 111;
  442.     property StandardIRListIsEnabled[index: Smallint]: WordBool readonly dispid 112;
  443.     property DictionaryIsLoaded[index: Smallint]: WordBool readonly dispid 113;
  444.     property DictionaryPerformance[index: Smallint]: Smallint dispid 114;
  445.     property Suggestion[index: Smallint]: WideString readonly dispid 115;
  446.     property CustomIsUpdateable[index: Smallint]: WordBool readonly dispid 116;
  447.     property AddToStandardIRList[index: Smallint]: Smallint writeonly dispid 93;
  448.     property AddSuggestion[matchcode: Smallint]: WideString writeonly dispid 94;
  449.     property AddToCustom[index: Smallint]: Smallint writeonly dispid 95;
  450.     property ClearStandardIRList[index: Smallint]: Smallint writeonly dispid 96;
  451.     property CloseDictionary[index: Smallint]: Smallint writeonly dispid 97;
  452.     property GetEntry[index: Smallint]: Integer writeonly dispid 98;
  453.     property RemoveFromStandardIRList[index: Smallint]: WideString writeonly dispid 99;
  454.     property DictionaryPerformanceActual[index: Smallint]: Smallint readonly dispid 117;
  455.     property DictionaryBlockCount[index: Smallint]: Smallint readonly dispid 118;
  456.     property DictionaryBlockSize[index: Smallint]: Smallint readonly dispid 119;
  457.     property DictionaryCommonCount[index: Smallint]: Smallint readonly dispid 120;
  458.     property DictionaryCompatibilityBits[index: Smallint]: Smallint readonly dispid 121;
  459.     property DictionaryCopyright[index: Smallint]: WideString readonly dispid 122;
  460.     property DictionaryCopyrightDerived[index: Smallint]: WideString readonly dispid 123;
  461.     property DictionaryFlags[index: Smallint]: Smallint readonly dispid 124;
  462.     property DictionaryLoadCount[index: Smallint]: Smallint readonly dispid 125;
  463.     property DictionaryMakerVersion[index: Smallint]: Smallint readonly dispid 126;
  464.     property DictionaryOpenCount[index: Smallint]: Smallint readonly dispid 127;
  465.     property DictionarySymbolSetSize[index: Smallint]: Smallint readonly dispid 128;
  466.     property DictionaryWordCount[index: Smallint]: Integer readonly dispid 129;
  467.     property CreateCustomExtended[index: Smallint]: WideString writeonly dispid 100;
  468.     property EnableDictionary[index: Smallint]: WordBool writeonly dispid 101;
  469.     property EnableCustomUpdate[index: Smallint]: WordBool writeonly dispid 102;
  470.     property LoadDictionary[index: Smallint]: Smallint writeonly dispid 103;
  471.     property UnloadDictionary[index: Smallint]: Smallint writeonly dispid 104;
  472.     property CustomIsReadOnly[index: Smallint]: WordBool readonly dispid 130;
  473.     property CustomIsExtended[index: Smallint]: WordBool readonly dispid 131;
  474.     property EnableStandardIRList[index: Smallint]: WordBool writeonly dispid 105;
  475.     property OpenCustom[loadit: WordBool]: WideString writeonly dispid 106;
  476.     procedure AboutBox; dispid -552;
  477.   end;
  478.  
  479. { Event interface for VisualSpeller Control }
  480.  
  481.   _DVSpellEvents = dispinterface
  482.     ['{97F4CED2-9103-11CE-8385-524153480001}']
  483.     procedure Misspelled(var EventAction: Smallint); dispid 1;
  484.     procedure Complete(var EventAction: Smallint); dispid 2;
  485.     procedure Found(var EventAction: Smallint); dispid 3;
  486.     procedure BeforeReplace(var EventAction: Smallint); dispid 4;
  487.     procedure AfterReplace(var EventAction: Smallint); dispid 5;
  488.     procedure AfterPopup(var EventAction: Smallint); dispid 6;
  489.     procedure CheckStatus(var EventAction: Smallint); dispid 7;
  490.     procedure CheckError(var EventAction: Smallint); dispid 8;
  491.     procedure ClickIn(var EventAction: Smallint); dispid 9;
  492.     procedure ClickOut(var EventAction: Smallint); dispid 10;
  493.   end;
  494.  
  495. { VCI VisualSpeller Spellchecker }
  496.  
  497.   TVSSpellMisspelled = procedure(Sender: TObject; var EventAction: Smallint) of object;
  498.   TVSSpellComplete = procedure(Sender: TObject; var EventAction: Smallint) of object;
  499.   TVSSpellFound = procedure(Sender: TObject; var EventAction: Smallint) of object;
  500.   TVSSpellBeforeReplace = procedure(Sender: TObject; var EventAction: Smallint) of object;
  501.   TVSSpellAfterReplace = procedure(Sender: TObject; var EventAction: Smallint) of object;
  502.   TVSSpellAfterPopup = procedure(Sender: TObject; var EventAction: Smallint) of object;
  503.   TVSSpellCheckStatus = procedure(Sender: TObject; var EventAction: Smallint) of object;
  504.   TVSSpellCheckError = procedure(Sender: TObject; var EventAction: Smallint) of object;
  505.   TVSSpellClickIn = procedure(Sender: TObject; var EventAction: Smallint) of object;
  506.   TVSSpellClickOut = procedure(Sender: TObject; var EventAction: Smallint) of object;
  507.  
  508.   TVSSpell = class(TOleControl)
  509.   private
  510.     FOnMisspelled: TVSSpellMisspelled;
  511.     FOnComplete: TVSSpellComplete;
  512.     FOnFound: TVSSpellFound;
  513.     FOnBeforeReplace: TVSSpellBeforeReplace;
  514.     FOnAfterReplace: TVSSpellAfterReplace;
  515.     FOnAfterPopup: TVSSpellAfterPopup;
  516.     FOnCheckStatus: TVSSpellCheckStatus;
  517.     FOnCheckError: TVSSpellCheckError;
  518.     FOnClickIn: TVSSpellClickIn;
  519.     FOnClickOut: TVSSpellClickOut;
  520.     FIntf: _DVSpell;
  521.     procedure Set_OpenStandard(loadit: WordBool; const Value: WideString);
  522.     function Get_DictionaryLanguage(index: Smallint): Smallint;
  523.     function Get_DictionaryName(index: Smallint): WideString;
  524.     function Get_DictionaryStatus(index: Smallint): Smallint;
  525.     function Get_DictionaryIsEnabled(index: Smallint): WordBool;
  526.     function Get_DictionaryNameFull(index: Smallint): WideString;
  527.     function Get_StandardIRListIsEnabled(index: Smallint): WordBool;
  528.     function Get_DictionaryIsLoaded(index: Smallint): WordBool;
  529.     function Get_DictionaryPerformance(index: Smallint): Smallint;
  530.     procedure Set_DictionaryPerformance(index: Smallint; Value: Smallint);
  531.     function Get_Suggestion(index: Smallint): WideString;
  532.     function Get_CustomIsUpdateable(index: Smallint): WordBool;
  533.     procedure Set_AddToStandardIRList(index: Smallint; Value: Smallint);
  534.     procedure Set_AddSuggestion(matchcode: Smallint; const Value: WideString);
  535.     procedure Set_AddToCustom(index: Smallint; Value: Smallint);
  536.     procedure Set_ClearStandardIRList(index: Smallint; Value: Smallint);
  537.     procedure Set_CloseDictionary(index: Smallint; Value: Smallint);
  538.     procedure Set_GetEntry(index: Smallint; Value: Integer);
  539.     procedure Set_RemoveFromStandardIRList(index: Smallint; const Value: WideString);
  540.     function Get_DictionaryPerformanceActual(index: Smallint): Smallint;
  541.     function Get_DictionaryBlockCount(index: Smallint): Smallint;
  542.     function Get_DictionaryBlockSize(index: Smallint): Smallint;
  543.     function Get_DictionaryCommonCount(index: Smallint): Smallint;
  544.     function Get_DictionaryCompatibilityBits(index: Smallint): Smallint;
  545.     function Get_DictionaryCopyright(index: Smallint): WideString;
  546.     function Get_DictionaryCopyrightDerived(index: Smallint): WideString;
  547.     function Get_DictionaryFlags(index: Smallint): Smallint;
  548.     function Get_DictionaryLoadCount(index: Smallint): Smallint;
  549.     function Get_DictionaryMakerVersion(index: Smallint): Smallint;
  550.     function Get_DictionaryOpenCount(index: Smallint): Smallint;
  551.     function Get_DictionarySymbolSetSize(index: Smallint): Smallint;
  552.     function Get_DictionaryWordCount(index: Smallint): Integer;
  553.     procedure Set_CreateCustomExtended(index: Smallint; const Value: WideString);
  554.     procedure Set_EnableDictionary(index: Smallint; Value: WordBool);
  555.     procedure Set_EnableCustomUpdate(index: Smallint; Value: WordBool);
  556.     procedure Set_LoadDictionary(index: Smallint; Value: Smallint);
  557.     procedure Set_UnloadDictionary(index: Smallint; Value: Smallint);
  558.     function Get_CustomIsReadOnly(index: Smallint): WordBool;
  559.     function Get_CustomIsExtended(index: Smallint): WordBool;
  560.     procedure Set_EnableStandardIRList(index: Smallint; Value: WordBool);
  561.     procedure Set_OpenCustom(loadit: WordBool; const Value: WideString);
  562.   protected
  563.     procedure InitControlData; override;
  564.     procedure InitControlInterface(const Obj: IUnknown); override;
  565.   public
  566.     procedure AboutBox;
  567.     property ControlInterface: _DVSpell read FIntf;
  568.     property OpenStandard[loadit: WordBool]: WideString write Set_OpenStandard;
  569.     property DictionaryLanguage[index: Smallint]: Smallint read Get_DictionaryLanguage;
  570.     property DictionaryName[index: Smallint]: WideString read Get_DictionaryName;
  571.     property DictionaryStatus[index: Smallint]: Smallint read Get_DictionaryStatus;
  572.     property DictionaryIsEnabled[index: Smallint]: WordBool read Get_DictionaryIsEnabled;
  573.     property DictionaryNameFull[index: Smallint]: WideString read Get_DictionaryNameFull;
  574.     property StandardIRListIsEnabled[index: Smallint]: WordBool read Get_StandardIRListIsEnabled;
  575.     property DictionaryIsLoaded[index: Smallint]: WordBool read Get_DictionaryIsLoaded;
  576.     property DictionaryPerformance[index: Smallint]: Smallint read Get_DictionaryPerformance write Set_DictionaryPerformance;
  577.     property Suggestion[index: Smallint]: WideString read Get_Suggestion;
  578.     property CustomIsUpdateable[index: Smallint]: WordBool read Get_CustomIsUpdateable;
  579.     property AddToStandardIRList[index: Smallint]: Smallint write Set_AddToStandardIRList;
  580.     property AddSuggestion[matchcode: Smallint]: WideString write Set_AddSuggestion;
  581.     property AddToCustom[index: Smallint]: Smallint write Set_AddToCustom;
  582.     property ClearStandardIRList[index: Smallint]: Smallint write Set_ClearStandardIRList;
  583.     property CloseDictionary[index: Smallint]: Smallint write Set_CloseDictionary;
  584.     property GetEntry[index: Smallint]: Integer write Set_GetEntry;
  585.     property RemoveFromStandardIRList[index: Smallint]: WideString write Set_RemoveFromStandardIRList;
  586.     property DictionaryPerformanceActual[index: Smallint]: Smallint read Get_DictionaryPerformanceActual;
  587.     property DictionaryBlockCount[index: Smallint]: Smallint read Get_DictionaryBlockCount;
  588.     property DictionaryBlockSize[index: Smallint]: Smallint read Get_DictionaryBlockSize;
  589.     property DictionaryCommonCount[index: Smallint]: Smallint read Get_DictionaryCommonCount;
  590.     property DictionaryCompatibilityBits[index: Smallint]: Smallint read Get_DictionaryCompatibilityBits;
  591.     property DictionaryCopyright[index: Smallint]: WideString read Get_DictionaryCopyright;
  592.     property DictionaryCopyrightDerived[index: Smallint]: WideString read Get_DictionaryCopyrightDerived;
  593.     property DictionaryFlags[index: Smallint]: Smallint read Get_DictionaryFlags;
  594.     property DictionaryLoadCount[index: Smallint]: Smallint read Get_DictionaryLoadCount;
  595.     property DictionaryMakerVersion[index: Smallint]: Smallint read Get_DictionaryMakerVersion;
  596.     property DictionaryOpenCount[index: Smallint]: Smallint read Get_DictionaryOpenCount;
  597.     property DictionarySymbolSetSize[index: Smallint]: Smallint read Get_DictionarySymbolSetSize;
  598.     property DictionaryWordCount[index: Smallint]: Integer read Get_DictionaryWordCount;
  599.     property CreateCustomExtended[index: Smallint]: WideString write Set_CreateCustomExtended;
  600.     property EnableDictionary[index: Smallint]: WordBool write Set_EnableDictionary;
  601.     property EnableCustomUpdate[index: Smallint]: WordBool write Set_EnableCustomUpdate;
  602.     property LoadDictionary[index: Smallint]: Smallint write Set_LoadDictionary;
  603.     property UnloadDictionary[index: Smallint]: Smallint write Set_UnloadDictionary;
  604.     property CustomIsReadOnly[index: Smallint]: WordBool read Get_CustomIsReadOnly;
  605.     property CustomIsExtended[index: Smallint]: WordBool read Get_CustomIsExtended;
  606.     property EnableStandardIRList[index: Smallint]: WordBool write Set_EnableStandardIRList;
  607.     property OpenCustom[loadit: WordBool]: WideString write Set_OpenCustom;
  608.   published
  609.     property AutoPopup: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  610.     property AutoReplace: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  611.     property AutoSuggest: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  612.     property BreakWordCount: Smallint index 7 read GetSmallintProp write SetSmallintProp stored False;
  613.     property CacheSize: Smallint index 8 read GetSmallintProp write SetSmallintProp stored False;
  614.     property ErrorOffset: Smallint index 1 read GetSmallintProp write SetSmallintProp stored False;
  615.     property IgnoreFullCaps: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  616.     property IgnorePartialNumbers: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  617.     property MaxSuggestions: Smallint index 11 read GetSmallintProp write SetSmallintProp stored False;
  618.     property MultiLine: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  619.     property SuggestionsLimit: Smallint index 13 read GetSmallintProp write SetSmallintProp stored False;
  620.     property Version: WideString index 14 read GetWideStringProp write SetWideStringProp stored False;
  621.     property CurrentLine: Integer index 15 read GetIntegerProp write SetIntegerProp stored False;
  622.     property CustomCount: Smallint index 16 read GetSmallintProp write SetSmallintProp stored False;
  623.     property DLLHandle: Integer index 17 read GetIntegerProp write SetIntegerProp stored False;
  624.     property EventOptions: Smallint index 18 read GetSmallintProp write SetSmallintProp stored False;
  625.     property Hyphenation: WideString index 19 read GetWideStringProp write SetWideStringProp stored False;
  626.     property IRAction: Smallint index 20 read GetSmallintProp write SetSmallintProp stored False;
  627.     property IRWhereFound: Smallint index 21 read GetSmallintProp write SetSmallintProp stored False;
  628.     property LineBreak: WideString index 22 read GetWideStringProp write SetWideStringProp stored False;
  629.     property LineOffset: Smallint index 23 read GetSmallintProp write SetSmallintProp stored False;
  630.     property MisspelledWord: WideString index 24 read GetWideStringProp write SetWideStringProp stored False;
  631.     property ReplaceCount: Integer index 25 read GetIntegerProp write SetIntegerProp stored False;
  632.     property ReplacementWord: WideString index 26 read GetWideStringProp write SetWideStringProp stored False;
  633.     property ResultCode: Smallint index 27 read GetSmallintProp write SetSmallintProp stored False;
  634.     property ResumeOffset: Integer index 28 read GetIntegerProp write SetIntegerProp stored False;
  635.     property SearchOrder: Smallint index 29 read GetSmallintProp write SetSmallintProp stored False;
  636.     property SpellOptions: Smallint index 30 read GetSmallintProp write SetSmallintProp stored False;
  637.     property StandardCount: Smallint index 31 read GetSmallintProp write SetSmallintProp stored False;
  638.     property SuggestOptions: Smallint index 32 read GetSmallintProp write SetSmallintProp stored False;
  639.     property SuggestionCount: Smallint index 33 read GetSmallintProp write SetSmallintProp stored False;
  640.     property Text: WideString index 34 read GetWideStringProp write SetWideStringProp stored False;
  641.     property WhereFound: Smallint index 35 read GetSmallintProp write SetSmallintProp stored False;
  642.     property WordCount: Integer index 36 read GetIntegerProp write SetIntegerProp stored False;
  643.     property WordOffset: Integer index 37 read GetIntegerProp write SetIntegerProp stored False;
  644.     property AllowJoinedWords: WordBool index 38 read GetWordBoolProp write SetWordBoolProp stored False;
  645.     property DialogLeft: Integer index 39 read GetIntegerProp write SetIntegerProp stored False;
  646.     property DialogTop: Integer index 40 read GetIntegerProp write SetIntegerProp stored False;
  647.     property ReplaceRecheck: WordBool index 41 read GetWordBoolProp write SetWordBoolProp stored False;
  648.     property DialogBgColor: TColor index 42 read GetTColorProp write SetTColorProp stored False;
  649.     property DialogLeftActual: Integer index 43 read GetIntegerProp write SetIntegerProp stored False;
  650.     property DialogTopActual: Integer index 44 read GetIntegerProp write SetIntegerProp stored False;
  651.     property ReplaceOccurred: WordBool index 45 read GetWordBoolProp write SetWordBoolProp stored False;
  652.     property SuggestionsMade: WordBool index 46 read GetWordBoolProp write SetWordBoolProp stored False;
  653.     property WordLength: Smallint index 47 read GetSmallintProp write SetSmallintProp stored False;
  654.     property CacheHits: Integer index 48 read GetIntegerProp write SetIntegerProp stored False;
  655.     property CacheMisses: Integer index 49 read GetIntegerProp write SetIntegerProp stored False;
  656.     property TimerTicks: Integer index 50 read GetIntegerProp write SetIntegerProp stored False;
  657.     property UserData: Integer index 51 read GetIntegerProp write SetIntegerProp stored False;
  658.     property CheckedWord: WideString index 52 read GetWideStringProp write SetWideStringProp stored False;
  659.     property CommonIRListIsEnabled: WordBool index 53 read GetWordBoolProp write SetWordBoolProp stored False;
  660.     property WordMisspelledTitle: WideString index 54 read GetWideStringProp write SetWideStringProp stored False;
  661.     property OptionsTitle: WideString index 55 read GetWideStringProp write SetWideStringProp stored False;
  662.     property ErrorTitle: WideString index 56 read GetWideStringProp write SetWideStringProp stored False;
  663.     property WordMisspelledHelpFile: WideString index 57 read GetWideStringProp write SetWideStringProp stored False;
  664.     property OptionsHelpFile: WideString index 58 read GetWideStringProp write SetWideStringProp stored False;
  665.     property DialogElements: Integer index 59 read GetIntegerProp write SetIntegerProp stored False;
  666.     property DialogWidth: Integer index 60 read GetIntegerProp write SetIntegerProp stored False;
  667.     property DialogHeight: Integer index 61 read GetIntegerProp write SetIntegerProp stored False;
  668.     property ErrorText: WideString index 62 read GetWideStringProp write SetWideStringProp stored False;
  669.     property ClickedButton: Integer index 63 read GetIntegerProp write SetIntegerProp stored False;
  670.     property ClickInfo: Integer index 64 read GetIntegerProp write SetIntegerProp stored False;
  671.     property ClickInfoText: WideString index 65 read GetWideStringProp write SetWideStringProp stored False;
  672.     property AddToCommonIRList: Smallint index 66 read GetSmallintProp write SetSmallintProp stored False;
  673.     property BeginCheck: Smallint index 67 read GetSmallintProp write SetSmallintProp stored False;
  674.     property CheckText: WideString index 68 read GetWideStringProp write SetWideStringProp stored False;
  675.     property CheckWord: WideString index 69 read GetWideStringProp write SetWideStringProp stored False;
  676.     property ClearCounts: Smallint index 70 read GetSmallintProp write SetSmallintProp stored False;
  677.     property ClearOffsets: Smallint index 71 read GetSmallintProp write SetSmallintProp stored False;
  678.     property FindSuggestions: WideString index 72 read GetWideStringProp write SetWideStringProp stored False;
  679.     property ReplaceLastWord: Smallint index 73 read GetSmallintProp write SetSmallintProp stored False;
  680.     property ResumeCheck: Smallint index 74 read GetSmallintProp write SetSmallintProp stored False;
  681.     property ClearSuggestions: Smallint index 75 read GetSmallintProp write SetSmallintProp stored False;
  682.     property PopupError: Smallint index 76 read GetSmallintProp write SetSmallintProp stored False;
  683.     property PopupOptions: Smallint index 77 read GetSmallintProp write SetSmallintProp stored False;
  684.     property PopupWordMisspelled: Smallint index 78 read GetSmallintProp write SetSmallintProp stored False;
  685.     property CreateCustom: WideString index 79 read GetWideStringProp write SetWideStringProp stored False;
  686.     property ResumeWithRecheck: Smallint index 80 read GetSmallintProp write SetSmallintProp stored False;
  687.     property EnableCommonIRList: WordBool index 81 read GetWordBoolProp write SetWordBoolProp stored False;
  688.     property ClearCommonIRList: Smallint index 82 read GetSmallintProp write SetSmallintProp stored False;
  689.     property RemoveFromCommonIRList: WideString index 83 read GetWideStringProp write SetWideStringProp stored False;
  690.     property EnableEventOptions: Smallint index 84 read GetSmallintProp write SetSmallintProp stored False;
  691.     property DisableEventOptions: Smallint index 85 read GetSmallintProp write SetSmallintProp stored False;
  692.     property EnableSpellOptions: Smallint index 86 read GetSmallintProp write SetSmallintProp stored False;
  693.     property DisableSpellOptions: Smallint index 87 read GetSmallintProp write SetSmallintProp stored False;
  694.     property EnableSuggestOptions: Smallint index 88 read GetSmallintProp write SetSmallintProp stored False;
  695.     property DisableSuggestOptions: Smallint index 89 read GetSmallintProp write SetSmallintProp stored False;
  696.     property EnableDialogElements: Integer index 90 read GetIntegerProp write SetIntegerProp stored False;
  697.     property DisableDialogElements: Integer index 91 read GetIntegerProp write SetIntegerProp stored False;
  698.     property _Text: WideString index 0 read GetWideStringProp write SetWideStringProp stored False;
  699.     property StandardDictionary: WideString index 2 read GetWideStringProp write SetWideStringProp stored False;
  700.     property CustomDictionary: WideString index 3 read GetWideStringProp write SetWideStringProp stored False;
  701.     property OnMisspelled: TVSSpellMisspelled read FOnMisspelled write FOnMisspelled;
  702.     property OnComplete: TVSSpellComplete read FOnComplete write FOnComplete;
  703.     property OnFound: TVSSpellFound read FOnFound write FOnFound;
  704.     property OnBeforeReplace: TVSSpellBeforeReplace read FOnBeforeReplace write FOnBeforeReplace;
  705.     property OnAfterReplace: TVSSpellAfterReplace read FOnAfterReplace write FOnAfterReplace;
  706.     property OnAfterPopup: TVSSpellAfterPopup read FOnAfterPopup write FOnAfterPopup;
  707.     property OnCheckStatus: TVSSpellCheckStatus read FOnCheckStatus write FOnCheckStatus;
  708.     property OnCheckError: TVSSpellCheckError read FOnCheckError write FOnCheckError;
  709.     property OnClickIn: TVSSpellClickIn read FOnClickIn write FOnClickIn;
  710.     property OnClickOut: TVSSpellClickOut read FOnClickOut write FOnClickOut;
  711.   end;
  712.  
  713. procedure Register;
  714.  
  715. implementation
  716.  
  717. uses ComObj;
  718.  
  719. procedure TVSSpell.InitControlData;
  720. const
  721.   CEventDispIDs: array[0..9] of Integer = (
  722.     $00000001, $00000002, $00000003, $00000004, $00000005, $00000006,
  723.     $00000007, $00000008, $00000009, $0000000A);
  724.   CLicenseKey: array[0..19] of Word = (
  725.     $0043, $006F, $0070, $0079, $0072, $0069, $0067, $0068, $0074, $0020,
  726.     $0028, $0063, $0029, $0020, $0031, $0039, $0039, $0035, $0020, $0000);
  727.   CControlData: TControlData = (
  728.     ClassID: '{97F4CED0-9103-11CE-8385-524153480001}';
  729.     EventIID: '{97F4CED2-9103-11CE-8385-524153480001}';
  730.     EventCount: 10;
  731.     EventDispIDs: @CEventDispIDs;
  732.     LicenseKey: @CLicenseKey;
  733.     Flags: $00000000;
  734.     Version: 300);
  735. begin
  736.   ControlData := @CControlData;
  737. end;
  738.  
  739. procedure TVSSpell.InitControlInterface(const Obj: IUnknown);
  740. begin
  741.   FIntf := Obj as _DVSpell;
  742. end;
  743.  
  744. procedure TVSSpell.AboutBox;
  745. begin
  746.   ControlInterface.AboutBox;
  747. end;
  748.  
  749. procedure TVSSpell.Set_OpenStandard(loadit: WordBool; const Value: WideString);
  750. begin
  751.   ControlInterface.OpenStandard[loadit] := Value;
  752. end;
  753.  
  754. function TVSSpell.Get_DictionaryLanguage(index: Smallint): Smallint;
  755. begin
  756.   Result := ControlInterface.DictionaryLanguage[index];
  757. end;
  758.  
  759. function TVSSpell.Get_DictionaryName(index: Smallint): WideString;
  760. begin
  761.   Result := ControlInterface.DictionaryName[index];
  762. end;
  763.  
  764. function TVSSpell.Get_DictionaryStatus(index: Smallint): Smallint;
  765. begin
  766.   Result := ControlInterface.DictionaryStatus[index];
  767. end;
  768.  
  769. function TVSSpell.Get_DictionaryIsEnabled(index: Smallint): WordBool;
  770. begin
  771.   Result := ControlInterface.DictionaryIsEnabled[index];
  772. end;
  773.  
  774. function TVSSpell.Get_DictionaryNameFull(index: Smallint): WideString;
  775. begin
  776.   Result := ControlInterface.DictionaryNameFull[index];
  777. end;
  778.  
  779. function TVSSpell.Get_StandardIRListIsEnabled(index: Smallint): WordBool;
  780. begin
  781.   Result := ControlInterface.StandardIRListIsEnabled[index];
  782. end;
  783.  
  784. function TVSSpell.Get_DictionaryIsLoaded(index: Smallint): WordBool;
  785. begin
  786.   Result := ControlInterface.DictionaryIsLoaded[index];
  787. end;
  788.  
  789. function TVSSpell.Get_DictionaryPerformance(index: Smallint): Smallint;
  790. begin
  791.   Result := ControlInterface.DictionaryPerformance[index];
  792. end;
  793.  
  794. procedure TVSSpell.Set_DictionaryPerformance(index: Smallint; Value: Smallint);
  795. begin
  796.   ControlInterface.DictionaryPerformance[index] := Value;
  797. end;
  798.  
  799. function TVSSpell.Get_Suggestion(index: Smallint): WideString;
  800. begin
  801.   Result := ControlInterface.Suggestion[index];
  802. end;
  803.  
  804. function TVSSpell.Get_CustomIsUpdateable(index: Smallint): WordBool;
  805. begin
  806.   Result := ControlInterface.CustomIsUpdateable[index];
  807. end;
  808.  
  809. procedure TVSSpell.Set_AddToStandardIRList(index: Smallint; Value: Smallint);
  810. begin
  811.   ControlInterface.AddToStandardIRList[index] := Value;
  812. end;
  813.  
  814. procedure TVSSpell.Set_AddSuggestion(matchcode: Smallint; const Value: WideString);
  815. begin
  816.   ControlInterface.AddSuggestion[matchcode] := Value;
  817. end;
  818.  
  819. procedure TVSSpell.Set_AddToCustom(index: Smallint; Value: Smallint);
  820. begin
  821.   ControlInterface.AddToCustom[index] := Value;
  822. end;
  823.  
  824. procedure TVSSpell.Set_ClearStandardIRList(index: Smallint; Value: Smallint);
  825. begin
  826.   ControlInterface.ClearStandardIRList[index] := Value;
  827. end;
  828.  
  829. procedure TVSSpell.Set_CloseDictionary(index: Smallint; Value: Smallint);
  830. begin
  831.   ControlInterface.CloseDictionary[index] := Value;
  832. end;
  833.  
  834. procedure TVSSpell.Set_GetEntry(index: Smallint; Value: Integer);
  835. begin
  836.   ControlInterface.GetEntry[index] := Value;
  837. end;
  838.  
  839. procedure TVSSpell.Set_RemoveFromStandardIRList(index: Smallint; const Value: WideString);
  840. begin
  841.   ControlInterface.RemoveFromStandardIRList[index] := Value;
  842. end;
  843.  
  844. function TVSSpell.Get_DictionaryPerformanceActual(index: Smallint): Smallint;
  845. begin
  846.   Result := ControlInterface.DictionaryPerformanceActual[index];
  847. end;
  848.  
  849. function TVSSpell.Get_DictionaryBlockCount(index: Smallint): Smallint;
  850. begin
  851.   Result := ControlInterface.DictionaryBlockCount[index];
  852. end;
  853.  
  854. function TVSSpell.Get_DictionaryBlockSize(index: Smallint): Smallint;
  855. begin
  856.   Result := ControlInterface.DictionaryBlockSize[index];
  857. end;
  858.  
  859. function TVSSpell.Get_DictionaryCommonCount(index: Smallint): Smallint;
  860. begin
  861.   Result := ControlInterface.DictionaryCommonCount[index];
  862. end;
  863.  
  864. function TVSSpell.Get_DictionaryCompatibilityBits(index: Smallint): Smallint;
  865. begin
  866.   Result := ControlInterface.DictionaryCompatibilityBits[index];
  867. end;
  868.  
  869. function TVSSpell.Get_DictionaryCopyright(index: Smallint): WideString;
  870. begin
  871.   Result := ControlInterface.DictionaryCopyright[index];
  872. end;
  873.  
  874. function TVSSpell.Get_DictionaryCopyrightDerived(index: Smallint): WideString;
  875. begin
  876.   Result := ControlInterface.DictionaryCopyrightDerived[index];
  877. end;
  878.  
  879. function TVSSpell.Get_DictionaryFlags(index: Smallint): Smallint;
  880. begin
  881.   Result := ControlInterface.DictionaryFlags[index];
  882. end;
  883.  
  884. function TVSSpell.Get_DictionaryLoadCount(index: Smallint): Smallint;
  885. begin
  886.   Result := ControlInterface.DictionaryLoadCount[index];
  887. end;
  888.  
  889. function TVSSpell.Get_DictionaryMakerVersion(index: Smallint): Smallint;
  890. begin
  891.   Result := ControlInterface.DictionaryMakerVersion[index];
  892. end;
  893.  
  894. function TVSSpell.Get_DictionaryOpenCount(index: Smallint): Smallint;
  895. begin
  896.   Result := ControlInterface.DictionaryOpenCount[index];
  897. end;
  898.  
  899. function TVSSpell.Get_DictionarySymbolSetSize(index: Smallint): Smallint;
  900. begin
  901.   Result := ControlInterface.DictionarySymbolSetSize[index];
  902. end;
  903.  
  904. function TVSSpell.Get_DictionaryWordCount(index: Smallint): Integer;
  905. begin
  906.   Result := ControlInterface.DictionaryWordCount[index];
  907. end;
  908.  
  909. procedure TVSSpell.Set_CreateCustomExtended(index: Smallint; const Value: WideString);
  910. begin
  911.   ControlInterface.CreateCustomExtended[index] := Value;
  912. end;
  913.  
  914. procedure TVSSpell.Set_EnableDictionary(index: Smallint; Value: WordBool);
  915. begin
  916.   ControlInterface.EnableDictionary[index] := Value;
  917. end;
  918.  
  919. procedure TVSSpell.Set_EnableCustomUpdate(index: Smallint; Value: WordBool);
  920. begin
  921.   ControlInterface.EnableCustomUpdate[index] := Value;
  922. end;
  923.  
  924. procedure TVSSpell.Set_LoadDictionary(index: Smallint; Value: Smallint);
  925. begin
  926.   ControlInterface.LoadDictionary[index] := Value;
  927. end;
  928.  
  929. procedure TVSSpell.Set_UnloadDictionary(index: Smallint; Value: Smallint);
  930. begin
  931.   ControlInterface.UnloadDictionary[index] := Value;
  932. end;
  933.  
  934. function TVSSpell.Get_CustomIsReadOnly(index: Smallint): WordBool;
  935. begin
  936.   Result := ControlInterface.CustomIsReadOnly[index];
  937. end;
  938.  
  939. function TVSSpell.Get_CustomIsExtended(index: Smallint): WordBool;
  940. begin
  941.   Result := ControlInterface.CustomIsExtended[index];
  942. end;
  943.  
  944. procedure TVSSpell.Set_EnableStandardIRList(index: Smallint; Value: WordBool);
  945. begin
  946.   ControlInterface.EnableStandardIRList[index] := Value;
  947. end;
  948.  
  949. procedure TVSSpell.Set_OpenCustom(loadit: WordBool; const Value: WideString);
  950. begin
  951.   ControlInterface.OpenCustom[loadit] := Value;
  952. end;
  953.  
  954.  
  955. procedure Register;
  956. begin
  957.   RegisterComponents('ActiveX', [TVSSpell]);  { do not localize }   
  958. end;
  959.  
  960. end.
  961.