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

Timestamp:

May 9, 2015, 7:29:20 AM (9 years ago)

Author:

healthsevak

Message:

Did minor changes related to manual modification by user inside the richedit control

File:

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

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

@@ -84 +84 @@
     procedure Button1Click(Sender: TObject);
     procedure btnUndoClick(Sender: TObject);
+    procedure RichEdit1KeyUp(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure RichEdit1KeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
   private
     { Private declarations }
@@ -147 +151 @@
   inherited;
   GoToURL(TLabel(sender).Caption);
+end;
+
+procedure TfrmHunSpell.RichEdit1KeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  inherited;
+  SpellCheck1.ManualChangeStart;
+end;
+
+procedure TfrmHunSpell.RichEdit1KeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  inherited;
+  SpellCheck1.ManualChangeDone;
 end;