Changeset 1723 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.pas

Timestamp:

May 23, 2015, 9:39:28 AM (9 years ago)

Author:

healthsevak

Message:

Did few minor modifications/Additions related to restarting spell check, changing caption of Close button and adding a new button to re-start the spell check if required, and also removed the confirmation dialog/message while closing the dialog as suggested by Jim Bell

File:

• cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.pas (modified) (4 diffs)

cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.pas

@@ -68 +68 @@
     cbIgnoreAllCaps: TCheckBox;
     cbIgnoreDigit: TCheckBox;
+    btnRestat: TButton;
     procedure FormCreate(Sender: TObject);
     procedure btnIgnoreOnceClick(Sender: TObject);
@@ -98 +99 @@
     procedure cbIgnoreDigitClick(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+    procedure btnRestatClick(Sender: TObject);
   private
     { Private declarations }
@@ -249 +251 @@
 begin
    SpellCheck1.CorrectWithMyWord;
+end;
+
+procedure TfrmHunSpell.btnRestatClick(Sender: TObject);
+begin
+  inherited;
+  if SpellCheck1.SpellCheckState = ssChecking then
+    SpellCheck1.ReStart
+  else
+    SpellCheck1.CheckSpelling;
 end;
 
@@ -363 +374 @@
   if SpellCheck1.SpellCheckState = ssCompleted then
   begin
-    ShowMsg(TX_SPELL_COMPLETE, TShow508MessageIcon(1), smbOK) ;
+   // ShowMsg(TX_SPELL_COMPLETE, TShow508MessageIcon(1), smbOK) ;
     if Assigned(FSourceControl) then
       FSourceControl.Text := RichEdit1.Text;