Changeset 1720 for cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck

Timestamp:

May 20, 2015, 11:09:49 AM (9 years ago)

Author:

healthsevak

Message:

Fixed a small issue related to saving of SpellCheckOptions in Win registry under application name.

Location:

cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck

Files:

• Bin/skaHunSpellChecker.bpl (modified) ( previous)
• skaSpellCheck.pas (modified) (5 diffs)

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

@@ -83 +83 @@
     FIgnoreWordWdigits: boolean;
     FIgnoreCaps: boolean;
-
+    FOptionsKey: String;
     function AddCustomWord(aWord: String; isInternal: Boolean = False): Boolean;
                                                             overload; virtual;
@@ -372 +372 @@
    FUndoList := TStringList.Create;
 
+   FOptionsKey := '\software\'
+                + ChangeFileExt(ExtractFileName(Application.ExeName),'')
+                + '\skaHunSpellCheckOptions';
    if csDesigning in componentState then
    begin
@@ -439 +442 @@
 
  //first get the dicationary file name
-  Reg.OpenKey('\software\'+ ChangeFileExt(Application.ExeName,'') + '\skaHunSpellCheckOptions',True);
+  Reg.OpenKey(FOptionsKey,True);
   if reg.ValueExists('DicFileName')  then
     DictionaryFileName:=Reg.readString('DicFileName')
@@ -529 +532 @@
      i: Integer;
    begin
+     Result := False;
      if IgnoreAllCaps then
      begin
@@ -878 +882 @@
 
 
-  Reg.OpenKey('\software\'+ ChangeFileExt(Application.ExeName,'') + '\skaHunSpellCheckOptions',True);
+  Reg.OpenKey(FOptionsKey,True);
 
   //first save the dicationary file name