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

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

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  ORFn, uCore, StdCtrls, CheckLst, ComCtrls,ExtCtrls,uConst, ORCtrls;
+  ORFn, uCore, StdCtrls, CheckLst, ComCtrls,ExtCtrls,uConst, ORCtrls, fBase508Form,
+  VA508AccessibilityManager;
 
 type
-  TfrmInvalidActionList = class(TForm)
+  TfrmInvalidActionList = class(TfrmBase508Form)
     pnlTop: TPanel;
     lstActDeniedOrders: TCaptionListBox;
@@ -43 +44 @@
 implementation
 
+uses
+  VA2006Utils;
+
 {$R *.DFM}
 
@@ -97 +101 @@
     ARect := TheRect;
     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);
@@ -168 +172 @@
 procedure TfrmInvalidActionList.FormCreate(Sender: TObject);
 begin
+  FixHeaderControlDelphi2006Bug(hdrAction);
   TheInvaList := TStringList.Create;
 end;
@@ -234 +239 @@
     ARect := TheRect;
     Canvas.FillRect(ARect);
-    Canvas.Pen.Color := clSilver;
+    Canvas.Pen.Color := Get508CompliantColor(clSilver);
     SaveColor := Canvas.Brush.Color;    
     Canvas.MoveTo(ARect.Left, ARect.Bottom - 1);