Changeset 1679 for cprs/trunk/CPRS-Chart/dShared.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

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

cprs/trunk/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;