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

Timestamp:

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

Author:

healthsevak

Message:

Committing the files for first time to this new branch

File:

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

cprs/branches/HealthSevak-CPRS/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;