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

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

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ORCtrls, ExtCtrls, fAutoSz;
+  StdCtrls, ORCtrls, ExtCtrls, fAutoSz, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmODMedOIFA = class(TForm)
+  TfrmODMedOIFA = class(TfrmBase508Form)
     Label1: TLabel;
     lstFormAlt: TORListBox;
@@ -57 +57 @@
         with frmODMedOIFA do
         begin
-          lstFormAlt.Items.Assign(FormAltList);
+          FastAssign(FormAltList, lstFormAlt.Items);
           ShowModal;
           if Length(FSelected) > 0 then
@@ -91 +91 @@
         with frmODMedOIFA do
         begin
-          lstFormAlt.Items.Assign(FormAltList);
+          FastAssign(FormAltList, lstFormAlt.Items);
           ShowModal;
           if Length(FSelected) > 0 then