Changeset 1700 for cprs/branches/HealthSevak-CPRS

Timestamp:

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

Author:

healthsevak

Message:

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

Location:

cprs/branches/HealthSevak-CPRS/CPRS-Chart

Files:

• fHunSpell.dfm (modified) (2 diffs)
• fHunSpell.pas (modified) (2 diffs)

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

@@ -14 +14 @@
   OnCreate = FormCreate
   OnShow = FormShow
-  ExplicitTop = -69
   ExplicitWidth = 743
   ExplicitHeight = 548
@@ -251 +250 @@
     ScrollBars = ssBoth
     TabOrder = 0
+    OnKeyDown = RichEdit1KeyDown
+    OnKeyUp = RichEdit1KeyUp
   end
   object btnAbout: TButton [9]

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;