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

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

@@ -4 +4 @@
 
 uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
-  Buttons, ORCtrls, ORfn, ExtCtrls;
+  Buttons, ORCtrls, ORfn, ExtCtrls, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmODRadApproval = class(TForm)
+  TfrmODRadApproval = class(TfrmBase508Form)
     cmdOK: TButton;
     cmdCancel: TButton;
@@ -49 +49 @@
       ClientHeight := H; pnlBase.Height := H;
       FChanged := False;
-      cboRadiologist.Items.Assign(SubsetOfRadiologists);
+      FastAssign(SubsetOfRadiologists, cboRadiologist.Items);
       ShowModal;
       Radiologist := FRadiologist ;