Changeset 829 for cprs/trunk/CPRS-Chart/Orders/fODText.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Orders/fODText.pas (modified) (4 diffs)

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

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  fODBase, StdCtrls, ORCtrls, ComCtrls, ExtCtrls, ORFn, uConst, ORDtTm;
+  fODBase, StdCtrls, ORCtrls, ComCtrls, ExtCtrls, ORFn, uConst, ORDtTm,
+  VA508AccessibilityManager;
 
 type
@@ -17 +18 @@
     procedure FormCreate(Sender: TObject);
     procedure ControlChange(Sender: TObject);
+    procedure cmdAcceptClick(Sender: TObject);
   public
     procedure InitDialog; override;
@@ -45 +47 @@
   FillerID := 'OR';                     // does 'on Display' order check **KCM**
   StatusText('Loading Dialog Definition');
-  Responses.Dialog := 'OR GXTEXT WORD PROCESSING ORDE';  // loads formatting info
+  Responses.Dialog := 'OR GXTEXT WORD PROCESSING ORDER';  // loads formatting info
   //StatusText('Loading Default Values');                // there are no defaults for text only
   //CtrlInits.LoadDefaults(ODForText);
@@ -110 +112 @@
 end;
 
+procedure TfrmODText.cmdAcceptClick(Sender: TObject);
+begin
+  inherited;
+  Application.ProcessMessages; //CQ 14670
+  memText.Lines.Text := Trim(memText.Lines.Text); //CQ 14670
+end;
+
 procedure TfrmODText.ControlChange(Sender: TObject);
 begin