Changeset 1693 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/dShared.pas

Timestamp:

May 8, 2015, 7:52:55 AM (10 years ago)

Author:

healthsevak

Message:

Committing the files for first time to this new branch

File:

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

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

@@ -812 +812 @@
   with ARichEdit do
   begin
+    SetFocus;
     { begin the search after the current selection if there is one }
     { otherwise, begin at the start of the text }
@@ -841 +842 @@
       SelStart := 0;
       SelLength := 0;
+      Windows.SetFocus(AFindDialog.Handle);
       //AFindDialog.CloseDialog;
     end;