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

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

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  ExtCtrls, ORCtrls, StdCtrls, ORFn, ComCtrls, uConsults;
+  ExtCtrls, ORCtrls, StdCtrls, ORFn, ComCtrls, uConsults, fBase508Form,
+  VA508AccessibilityManager;
 
 type
-  TfrmConsultsByService = class(TForm)
+  TfrmConsultsByService = class(TfrmBase508Form)
     pnlBase: TORAutoPanel;
     lblService: TLabel;
@@ -71 +72 @@
       ClientHeight := H; pnlBase.Height := H;
       FChanged := False;
-      //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