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

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

@@ -4 +4 @@
 
 uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
-  Buttons, ORCtrls, ORfn, ExtCtrls;
+  Buttons, ORCtrls, ORfn, ExtCtrls, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmODRadImType = class(TForm)
+  TfrmODRadImType = class(TfrmBase508Form)
     cmdOK: TButton;
     cmdCancel: TButton;
@@ -50 +50 @@
       ClientHeight := H; pnlBase.Height := H;
       FChanged := False;
-      cboImType.Items.Assign(SubsetOfImagingTypes);
+      FastAssign(SubsetOfImagingTypes, cboImType.Items);
       if cboImType.Items.Count > 1 then
          ShowModal