Changeset 1720 for cprs


Ignore:
Timestamp:
May 20, 2015, 11:09:49 AM (10 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:
2 edited

Legend:

Unmodified
Added
Removed

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

    r1718 r1720  
    8383    FIgnoreWordWdigits: boolean;
    8484    FIgnoreCaps: boolean;
    85 
     85    FOptionsKey: String;
    8686    function AddCustomWord(aWord: String; isInternal: Boolean = False): Boolean;
    8787                                                            overload; virtual;
    … …  
    372372   FUndoList := TStringList.Create;
    373373
     374   FOptionsKey := '\software\'
     375                + ChangeFileExt(ExtractFileName(Application.ExeName),'')
     376                + '\skaHunSpellCheckOptions';
    374377   if csDesigning in componentState then
    375378   begin
    … …  
    439442
    440443 //first get the dicationary file name
    441   Reg.OpenKey('\software\'+ ChangeFileExt(Application.ExeName,'') + '\skaHunSpellCheckOptions',True);
     444  Reg.OpenKey(FOptionsKey,True);
    442445  if reg.ValueExists('DicFileName')  then
    443446    DictionaryFileName:=Reg.readString('DicFileName')
    … …  
    529532     i: Integer;
    530533   begin
     534     Result := False;
    531535     if IgnoreAllCaps then
    532536     begin
    … …  
    878882
    879883
    880   Reg.OpenKey('\software\'+ ChangeFileExt(Application.ExeName,'') + '\skaHunSpellCheckOptions',True);
     884  Reg.OpenKey(FOptionsKey,True);
    881885
    882886  //first save the dicationary file name
Note: See TracChangeset for help on using the changeset viewer.