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

Timestamp:

Jun 25, 2015, 1:43:09 AM (9 years ago)

Author:

healthsevak

Message:

Cleaned little bit of glitches and added the About dialog and have recompiled the executable once again

File:

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

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

@@ -37 +37 @@
   StdCtrls, ComCtrls, RichEdit, Buttons, ExtCtrls, ShellAPI, 
   skaSpellCheck,
-  VA508AccessibilityManager, fBase508Form;
+  VA508AccessibilityManager, fBase508Form, jpeg;
 
 type
   TfrmHunSpell = class(TfrmBase508Form)
-    lblDictionary: TLabel;
     btnClose: TButton;
     OpenDialog1: TOpenDialog;
@@ -47 +46 @@
     edtDictionary: TEdit;
     btnSelectDict: TBitBtn;
-    lblOpenMedURL: TLabel;
-    lblDictionariesURL: TLabel;
     RichEdit1: TRichEdit;
     pnlMisSpelled: TPanel;
@@ -69 +66 @@
     cbIgnoreDigit: TCheckBox;
     btnRestat: TButton;
+    cbHyphenatedWord: TCheckBox;
+    StaticText1: TStaticText;
+    StaticText2: TStaticText;
+    StaticText3: TStaticText;
+    Label2: TLabel;
+    StaticText4: TStaticText;
+    Label3: TLabel;
+    StaticText5: TStaticText;
+    StaticText6: TStaticText;
+    Image1: TImage;
+    lblDictionariesURL: TLabel;
+    lblDictionary: TLabel;
+    lblOpenMedURL: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
     procedure FormCreate(Sender: TObject);
     procedure btnIgnoreOnceClick(Sender: TObject);
@@ -100 +112 @@
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
     procedure btnRestatClick(Sender: TObject);
+    procedure cbHyphenatedWordClick(Sender: TObject);
+    procedure Image1Click(Sender: TObject);
+    procedure Label6Click(Sender: TObject);
   private
     { Private declarations }
@@ -169 +184 @@
 if length(trim(aURL)) > 4 then
   ShellExecute(Handle, 'open', PChar(aURL), '', '', SW_NORMAL);
+end;
+
+procedure TfrmHunSpell.Image1Click(Sender: TObject);
+begin
+  inherited;
+  GoToURL('http://www.healthsevak.com');
+end;
+
+procedure TfrmHunSpell.Label6Click(Sender: TObject);
+begin
+  inherited;
+   GoToURL('mailto: digitiger@gmail.com');
 end;
 
@@ -337 +364 @@
 end;
 
+procedure TfrmHunSpell.cbHyphenatedWordClick(Sender: TObject);
+begin
+  inherited;
+    if SpellCheck1.HyphenatedWords <> cbHyphenatedWord.Checked then
+    SpellCheck1.HyphenatedWords := cbHyphenatedWord.Checked;
+
+    if SpellCheck1.SpellCheckState = ssChecking then
+      SpellCheck1.ReStart;
+end;
+
 procedure TfrmHunSpell.cbIgnoreAllCapsClick(Sender: TObject);
 begin
@@ -342 +379 @@
   if SpellCheck1.IgnoreAllCaps <> cbIgnoreAllCaps.Checked then
     SpellCheck1.IgnoreAllCaps := cbIgnoreAllCaps.Checked;
+
+  if SpellCheck1.SpellCheckState = ssChecking then
+      SpellCheck1.ReStart;
 end;
 
@@ -349 +389 @@
   if SpellCheck1.IgnoreWordWithDigits <> cbIgnoreDigit.Checked then
     SpellCheck1.IgnoreWordWithDigits := cbIgnoreDigit.Checked;
+
+  if SpellCheck1.SpellCheckState = ssChecking then
+      SpellCheck1.ReStart;
 end;
 
@@ -368 +411 @@
   if cbIgnoreDigit.Checked <> SpellCheck1.IgnoreWordWithDigits then
     cbIgnoreDigit.Checked := SpellCheck1.IgnoreWordWithDigits;
+
+  if cbHyphenatedWord.Checked <> SpellCheck1.HyphenatedWords then
+    cbHyphenatedWord.Checked := SpellCheck1.HyphenatedWords;
 end;