Changeset 1712 for cprs

Timestamp:

May 9, 2015, 2:00:05 PM (9 years ago)

Author:

healthsevak

Message:

fixed the bug related to extra spaces being introduced at the start of line after "Change" action

File:

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

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

@@ -89 +89 @@
     function GetAboutThis: String;
     procedure SaveForUndo(const Ignoring: Boolean=False);
+    procedure ShowBtnClose(const ShowIt: Boolean = True);
   public
     constructor Create(AOwner: TComponent); overload; override;
@@ -159 +160 @@
 function TskaHunSpellChecker.AbortSpellCheck(Verbose: Boolean = True): Boolean;
 begin
+  if FStatus <> ssChecking then
+  begin
+    FStatus := ssCancelled;
+    Close;
+    exit;
+  end;
+
   Result := (not isModified)  or
             (not Verbose) or (MessageDlg(ConfirmAbort, mtConfirmation,
@@ -165 +173 @@
   if Result then
     FStatus := ssCancelled;
+
+  ShowBtnClose;
 end;
 
@@ -211 +221 @@
 begin
   full := SourceTextControl.Lines[CurrentLine];
-  prefix := copy(CurrentText, 1, WordPos-1);
+  prefix := copy(CurrentText, 2, WordPos-2);    //remember there is one extra space at the start of the line prefixed while populating this variable
   Suffix :=  copy(CurrentText, WordPos+WordLength,
                            length(CurrentText));
@@ -228 +238 @@
   Initialize;
   WaitForUser := False;
+  FStatus := ssChecking;
   SourceTextControl.Invalidate;
   Result := not WaitForUser;
@@ -251 +262 @@
  SourceTextControl.Invalidate;
  //SourceTextControl.Invalidate;
+ ShowBtnClose(False);
 end;
 
@@ -403 +415 @@
     uHunSpellLib.hunspell_suggest_free(FpointerHunLib, suggestions, Count);
   end; 
+end;
+
+procedure TskaHunSpellChecker.ShowBtnClose(const ShowIt: Boolean);
+begin
+  if Assigned(btnClose) then
+  begin
+   btnClose.Enabled := ShowIt;
+   btnClose.Visible := ShowIt;
+   if ShowIt then
+   begin
+     btnClose.BringToFront;
+     btnClose.SetFocus;
+   end;
+  end;
 end;
 
@@ -508 +534 @@
     begin
       FStatus := ssCompleted;
-      if Assigned(btnClose) then
-        btnClose.Click;
+      if ShowCompletionMessage then
+        ShowMessage(CompletionMessage);
+      ShowBtnClose;
     end;
     {$R+}