Changeset 830 for cprs/trunk/CPRS-Chart/fProbFlt.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/fProbFlt.pas (modified) (6 diffs)

cprs/trunk/CPRS-Chart/fProbFlt.pas

@@ -4 +4 @@
 
 uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
-  StdCtrls, SysUtils, ORCtrls, ExtCtrls, uProbs, uConst, Dialogs;
+  StdCtrls, SysUtils, ORCtrls, ExtCtrls, uProbs, uConst, Dialogs, fBase508Form,
+  VA508AccessibilityManager;
 
 type
-  TfrmPlVuFilt = class(TForm)
+  TfrmPlVuFilt = class(TfrmBase508Form)
     pnlBase: TORAutoPanel;
     SrcLabel: TLabel;
@@ -97 +98 @@
 procedure TfrmPlVuFilt.FormCreate(Sender: TObject);
 begin
-  with cboStatus do
-    begin
-      Items.Assign(frmProblems.lstView.Items);
-      SelectByID(PLUser.usViewAct);
-    end;
+  FastAssign(frmProblems.lstView.Items, cboStatus.Items);
+  cboStatus.SelectByID(PLUser.usViewAct);
 end;
 
@@ -189 +187 @@
                              GetClinicList;
                              GetListForOP(Alist, frmProblems.wgProbData);
-                             cboSource.Items.Assign(ClinicFilterList(Alist));
+                             FastAssign(ClinicFilterList(Alist), cboSource.Items);
                              cboSource.InsertSeparator;
                              cboSource.InitLongList('') ;
@@ -201 +199 @@
                              GetServiceList;
                              GetListForIP(Alist, frmProblems.wgProbData);
-                             cboSource.Items.Assign(ServiceFilterList(Alist));
+                             FastAssign(ServiceFilterList(Alist), cboSource.Items);
                              cboSource.InsertSeparator;
                              cboSource.InitLongList('') ;
@@ -261 +259 @@
         end
       else
-        alist.assign(lstDest.Items); {conserve only selected items}
+        FastAssign(lstDest.Items, alist); {conserve only selected items}
       LoadFilterList(Alist,VuList);
       PLUser.usCurrentView:=vu;
@@ -327 +325 @@
     PLFilters.ProviderList.Clear;
     PLFilters.ProviderList.Add(Piece(PLUser.usViewProv, U, 1));
-    PLFilters.ClinicList.Assign(plUser.usClinList);
-    PlFilters.ServiceList.Assign(plUser.usServList);
+    FastAssign(plUser.usClinList, PLFilters.ClinicList);
+    FastAssign(plUser.usServList, PlFilters.ServiceList);
     cboProvider.InitLongList(Piece(PLUser.usViewProv, U, 2));
     cboProvider.SelectByID(Piece(PLUser.usViewProv, U, 1));