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

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

@@ -6 +6 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   ORFn, uCore, StdCtrls, CheckLst, ComCtrls,ExtCtrls,rOrders,fOrders,uOrders,
-  fFrame,ORCtrls,fAutoSz;
+  fFrame,ORCtrls,fAutoSz, VA508AccessibilityManager;
 
 type
@@ -48 +48 @@
 implementation
 
+uses
+  VA2006Utils;
+
 {$R *.DFM}
 
@@ -83 +86 @@
   DoesDestEvtOccur:boolean;
 begin
+  try
+  self.btnOK.Enabled := false;
   DoesDestEvtOccur := False;
   uAutoAC := True;
@@ -104 +109 @@
     uAutoAC := False;
   end;
+  finally
+    self.btnOK.Enabled := True;
+  end;
   Close;
 end;
@@ -114 +122 @@
 procedure TfrmODActive.FormCreate(Sender: TObject);
 begin
+  FixHeaderControlDelphi2006Bug(hdControl);
   ActiveOrderList := TList.Create;
   FOrderView      := TOrderView.Create;
@@ -208 +217 @@
     ARect := TheeRect;
     Canvas.FillRect(ARect);
-    Canvas.Pen.Color := clSilver;
+    Canvas.Pen.Color := Get508CompliantColor(clSilver);
     Canvas.MoveTo(ARect.Left, ARect.Bottom - 1);
     Canvas.LineTo(ARect.Right, ARect.Bottom - 1);