Changeset 1679 for cprs/trunk/CPRS-Chart/fNoteST.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/fNoteST.pas (modified) (3 diffs)

cprs/trunk/CPRS-Chart/fNoteST.pas

@@ -34 +34 @@
   end;
 
-procedure SelectSearchText(FontSize: Integer; var SearchText: String; var SearchContext: TSearchContext);
+procedure SelectSearchText(FontSize: Integer; var SearchText: String; var SearchContext: TSearchContext; FormCaption: String = 'List Signed Notes by Author');
 
 implementation
@@ -46 +46 @@
   TX_SEARCH_CAP = 'Missing search string';
 
-procedure SelectSearchText(FontSize: Integer; var SearchText: String; var SearchContext: TSearchContext);
+procedure SelectSearchText(FontSize: Integer; var SearchText: String; var SearchContext: TSearchContext; FormCaption: String = 'List Signed Notes by Author');
 { displays author select form for progress notes and returns a record of the selection }
 var
@@ -55 +55 @@
   frmNotesSearchText := TfrmNotesSearchText.Create(Application);
   try
+    frmNotesSearchText.Caption := FormCaption;
     with frmNotesSearchText do
     begin