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

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

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  fAutoSz, StdCtrls, ComCtrls, ExtCtrls, ORCtrls, ORFn, rOrders, ORDtTm;
+  fAutoSz, StdCtrls, ComCtrls, ExtCtrls, ORCtrls, ORFn, rOrders, ORDtTm,
+  VA508AccessibilityManager;
 
 type
@@ -162 +163 @@
     Item[i].Expanded := True;
     Item[i].Selected := True;
-    FDGroupName := Item[i].Text;
+    FFilter := Integer(Item[i].Data);
+    FFilterName := Item[i].Text;
     Break;
   end;
@@ -303 +305 @@
     FFilter := Integer(Node.Data);
     FFilterName := Node.Text;
+    chkDateRange.Enabled := True;
     if FFilter = 2 then                          // disallow date range for active orders view
     begin
@@ -308 +311 @@
       chkDateRangeClick(Self);
     end;
+    if FFilter = 5 then                          // disallow date range for expiring orders view
+    begin
+      chkDateRange.Checked := False;
+      chkDateRangeClick(Self);
+      chkDateRange.Enabled := False;
+    end;
     if FFilter in [8, 9, 10, 20] then chkDateRange.Checked := True else
     begin