Changeset 829 for cprs/trunk/CPRS-Chart/Consults/fConsultsView.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/fConsultsView.pas (modified) (3 diffs)

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

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ORFN,
-  StdCtrls, ExtCtrls, ORCtrls, ComCtrls, ORDtTm, uConsults, Menus;
+  StdCtrls, ExtCtrls, ORCtrls, ComCtrls, ORDtTm, uConsults, Menus, fBase508Form,
+  VA508AccessibilityManager;
 
 type
-  TfrmConsultsView = class(TForm)
+  TfrmConsultsView = class(TfrmBase508Form)
     pnlBase: TORAutoPanel;
     lblBeginDate: TLabel;
@@ -82 +83 @@
       FChanged := False;
       with radSort do ItemIndex := 1;
-      //SvcList.Assign(LoadServiceList(CN_SVC_LIST_DISP));                         {RV}
-      SvcList.Assign(LoadServiceListWithSynonyms(CN_SVC_LIST_DISP));           {RV}
+      //FastAssign(LoadServiceList(CN_SVC_LIST_DISP), SvcList);                         {RV}
+      FastAssign(LoadServiceListWithSynonyms(CN_SVC_LIST_DISP), SvcList);           {RV}
       SortByPiece(TStringList(SvcList), U, 2);                                   {RV}
       for i := 0 to SvcList.Count - 1 do
@@ -103 +104 @@
           cboServiceSelect(frmConsultsView);
         end;
-      lstStatus.Items.Assign(SubSetOfStatus);
+      FastAssign(SubSetOfStatus, lstStatus.Items);
       CurrentStatus := CurrentContext.Status;
       if CurrentStatus <> '' then with lstStatus do