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

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

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  ExtCtrls, StdCtrls, fAutoSZ, ORFn;
+  ExtCtrls, StdCtrls, fAutoSZ, ORFn, VA508AccessibilityManager;
 
 type
@@ -83 +83 @@
     ARect.Left := ARect.Left + 2;
     Canvas.FillRect(ARect);
-    Canvas.Pen.Color := clSilver;
+    Canvas.Pen.Color := Get508CompliantColor(clSilver);
     SaveColor := Canvas.Brush.Color;
     Canvas.MoveTo(ARect.Left, ARect.Bottom - 1);