Changeset 1725 for cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaSpellCheck.pas

Timestamp:

Jun 25, 2015, 1:28:09 AM (9 years ago)

Author:

healthsevak

Message:

Cleaned little bit of glitches and added the About dialog and also synced the demo project in line with the updated component properties

File:

• cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaSpellCheck.pas (modified) (3 diffs)

cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaSpellCheck.pas

@@ -84 +84 @@
     FIgnoreCaps: boolean;
     FOptionsKey: String;
+    FHyphenated: Boolean;
     function AddCustomWord(aWord: String; isInternal: Boolean = False): Boolean;
                                                             overload; virtual;
@@ -135 +136 @@
     property Active: Boolean read GetActive write SetActive;
     property AffixFileName: string read FAffixFileName write SetAffixFileName;
+    property HyphenatedWords: Boolean read FHyphenated write FHyphenated default false;
     property IgnoreAllCaps: boolean read FIgnoreCaps write SetIgnoreCaps default true;
     property IgnoreWordWithDigits:boolean read FIgnoreWordWdigits write SetIgnoreWordWdigits default true;
@@ -606 +608 @@
         //SuggestionList.Clear;
         {Any character except these will count as a word delimiter}
-        While CurrentText[i] in ['A'..'Z','a'..'z','0'..'9'] do inc(i);
+        if HyphenatedWords then
+           While CurrentText[i] in ['A'..'Z','a'..'z','0'..'9','-'] do inc(i)
+        else
+          While CurrentText[i] in ['A'..'Z','a'..'z','0'..'9'] do inc(i);
+
 
         WordLength        := i- FoundAt -1;