Changeset 829 for cprs/trunk/CPRS-Chart/Consults/fConsultBSt.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Consults/fConsultBSt.pas (modified) (2 diffs)

cprs/trunk/CPRS-Chart/Consults/fConsultBSt.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  ExtCtrls, ORCtrls, StdCtrls, ORFn, uConsults;
+  ExtCtrls, ORCtrls, StdCtrls, ORFn, uConsults, fBase508Form,
+  VA508AccessibilityManager;
 
 type
-  TfrmConsultsByStatus = class(TForm)
+  TfrmConsultsByStatus = class(TfrmBase508Form)
     pnlBase: TORAutoPanel;
     lblStatus: TLabel;
@@ -62 +63 @@
       FChanged := False;
       with radSort do {if SortConsultsAscending then ItemIndex := 0 else} ItemIndex := 1;
-      lstStatus.Items.Assign(SubSetOfStatus);
+      FastAssign(SubSetOfStatus, lstStatus.Items);
       CurrentStatus := CurrentContext.Status;
       if CurrentStatus <> '' then with lstStatus do