Changeset 1718 for cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/Demo

Timestamp:

May 19, 2015, 2:49:23 PM (10 years ago)

Author:

healthsevak

Message:

Added few options to SpellChecker which persists beyond current session

Location:

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

Files:

• bin/Project1.exe (modified) ( previous)
• fHunSpell.dfm (modified) (3 diffs)
• fHunSpell.pas (modified) (5 diffs)

cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/Demo/fHunSpell.dfm

@@ -16 +16 @@
   OnActivate = FormActivate
   OnClose = FormClose
+  OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   PixelsPerInch = 96
@@ -197 +198 @@
   object RichEdit1: TRichEdit
     Left = 3
-    Top = 57
+    Top = 76
     Width = 726
-    Height = 205
+    Height = 186
     Lines.Strings = (
       'Type orr Paste heree the text '
@@ -228 +229 @@
     OnClick = btnCloseClick
   end
+  object cbIgnoreAllCaps: TCheckBox
+    Left = 131
+    Top = 54
+    Width = 178
+    Height = 17
+    Caption = 'Ignore words in &UpperCase'
+    TabOrder = 6
+    OnClick = cbIgnoreAllCapsClick
+  end
+  object cbIgnoreDigit: TCheckBox
+    Left = 339
+    Top = 53
+    Width = 166
+    Height = 17
+    Caption = 'Ignore words with &digits'
+    TabOrder = 7
+    OnClick = cbIgnoreDigitClick
+  end
   object OpenDialog1: TOpenDialog
     DefaultExt = '*.Dict'

cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/Demo/fHunSpell.pas

@@ -62 +62 @@
     btnAbort: TButton;
     btnUndo: TButton;
+    cbIgnoreAllCaps: TCheckBox;
+    cbIgnoreDigit: TCheckBox;
     procedure FormCreate(Sender: TObject);
     procedure btnIgnoreOnceClick(Sender: TObject);
@@ -88 +90 @@
     procedure lblDictionariesURLClick(Sender: TObject);
     procedure lstSuggestionsDblClick(Sender: TObject);
+    procedure cbIgnoreAllCapsClick(Sender: TObject);
+    procedure cbIgnoreDigitClick(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
   private
     { Private declarations }
@@ -296 +301 @@
 end;
 
+procedure TfrmHunSpell.cbIgnoreAllCapsClick(Sender: TObject);
+begin
+  if SpellCheck1.IgnoreAllCaps <> cbIgnoreAllCaps.Checked then
+    SpellCheck1.IgnoreAllCaps := cbIgnoreAllCaps.Checked;
+end;
+
+procedure TfrmHunSpell.cbIgnoreDigitClick(Sender: TObject);
+begin
+  if SpellCheck1.IgnoreWordWithDigits <> cbIgnoreDigit.Checked then
+    SpellCheck1.IgnoreWordWithDigits := cbIgnoreDigit.Checked;
+end;
+
 procedure TfrmHunSpell.edtDictionaryEnter(Sender: TObject);
 begin
@@ -308 +325 @@
      NoEngineOpted := True;
   end;
+
+  if cbIgnoreAllCaps.Checked <> SpellCheck1.IgnoreAllCaps then
+    cbIgnoreAllCaps.Checked := SpellCheck1.IgnoreAllCaps;
+
+  if cbIgnoreDigit.Checked <> SpellCheck1.IgnoreWordWithDigits then
+    cbIgnoreDigit.Checked := SpellCheck1.IgnoreWordWithDigits;
 end;
 
@@ -320 +343 @@
   else
         ShowMessage(TX_SPELL_CANCELLED) ;  }
+end;
+
+procedure TfrmHunSpell.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+begin
+  CanClose := (SpellCheck1.SpellCheckState <> ssChecking)
+               or (SpellCheck1.AbortSpellCheck(True));
+  if CanClose then
+     ModalResult := mrCancel;
 end;