Changeset 829 for cprs/trunk/CPRS-Chart/Orders/fODGen.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/fODGen.pas (modified) (10 diffs)

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

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  fODBase, ComCtrls, ExtCtrls, StdCtrls, ORDtTm, ORCtrls, ORFn, rODBase;
+  fODBase, ComCtrls, ExtCtrls, StdCtrls, ORDtTm, ORCtrls, ORFn, rODBase, fBase508Form,
+  VA508AccessibilityManager;
 
 type
@@ -23 +24 @@
     procedure FormCreate(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure cmdAcceptClick(Sender: TObject);
   private
     FilterOut: boolean;
@@ -42 +44 @@
     procedure PlaceMemo(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem);
     procedure PlaceLabel(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem);
+    procedure TrimAllMemos;
   protected
+    FFormCloseCalled : Boolean;
     FCharHt: Integer;
     FCharWd: Integer;
@@ -54 +58 @@
     procedure SetDialogIEN(Value: Integer); override;
     procedure Validate(var AnErrMsg: string); override;
+    procedure UpdateAccessabilityActions(var Actions: TAccessibilityActions); override;
   public
     procedure SetupDialog(OrderAction: Integer; const ID: string); override;
@@ -79 +84 @@
   IDs,TSstr, AttendStr: string;
 begin
+  FFormCloseCalled := false;
   inherited;
   FilterOut := True;
@@ -129 +135 @@
   FDialogItemList.Free;
   FDialogCtrlList.Free;
+  FFormCloseCalled := true;
   inherited;
 end;
@@ -173 +180 @@
           theEvtInfo := EventInfo1(AResponse.IValue);
           AResponse.EValue := Piece(theEvtInfo,'^',4);
-        end;        
+        end;
         if AResponse = nil then
         begin
@@ -199 +206 @@
     Changing := False;
   end; {if OrderAction}
+  UpdateColorsFor508Compliance(Self);
   ControlChange(Self);
   if (FFirstCtrl <> nil) and (FFirstCtrl.Enabled) then SetFocusedControl(FFirstCtrl);
+end;
+
+procedure TfrmODGen.UpdateAccessabilityActions(
+  var Actions: TAccessibilityActions);
+begin
+  exclude(Actions, aaColorConversion);
 end;
 
@@ -492 +506 @@
         with TORComboBox(Editor) do
         begin
-          Items.AddStrings(TStrings(TopTSList));
+          FastAddStrings(TStrings(TopTSList), TORComboBox(Editor).Items);
           LongList := false;
         end;
@@ -573 +587 @@
 end;
 
+procedure TfrmODGen.TrimAllMemos;
+var
+  i : integer;
+  Memo : TMemo;
+begin
+  if FFormCloseCalled then Exit; //it is possible for TrimAllMemos to get called after FormClose
+  if Not Assigned(FDialogCtrlList) then Exit;
+  for i := 0 to FDialogCtrlList.Count - 1 do
+    if TDialogCtrl(FDialogCtrlList.Items[i]).Editor is TMemo then begin
+      Memo := TMemo(TDialogCtrl(FDialogCtrlList.Items[i]).Editor);
+      Memo.Lines.Text := Trim(Memo.Lines.Text);
+    end;
+end;
+
+procedure TfrmODGen.cmdAcceptClick(Sender: TObject);
+begin
+  inherited;
+  Application.ProcessMessages;
+  TrimAllMemos;
+end;
+
 procedure TfrmODGen.ControlChange(Sender: TObject);
 var