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

cprs/trunk/CPRS-Chart/Orders/fODText.pas

@@ -16 +16 @@
     lblStart: TLabel;
     lblStop: TLabel;
+    VA508CompMemOrder: TVA508ComponentAccessibility;
+    lblOrderSig: TLabel;
     procedure FormCreate(Sender: TObject);
     procedure ControlChange(Sender: TObject);
     procedure cmdAcceptClick(Sender: TObject);
+    procedure VA508CompMemOrderStateQuery(Sender: TObject; var Text: string);
   public
     procedure InitDialog; override;
@@ -70 +73 @@
   end
   else txtStart.Text := 'NOW';
+end;
+
+procedure TfrmODText.VA508CompMemOrderStateQuery(Sender: TObject;
+  var Text: string);
+begin
+  inherited;
+  Text := memOrder.Text;
 end;