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

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

@@ -4 +4 @@
 
 uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
-  Buttons, ORCtrls, ORfn, ExtCtrls;
+  Buttons, ORCtrls, ORfn, ExtCtrls, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmODRadConShRes = class(TForm)
+  TfrmODRadConShRes = class(TfrmBase508Form)
     cmdOK: TButton;
     cmdCancel: TButton;
@@ -54 +54 @@
       if SrcType in ['C','S'] then with cboSource do
          begin
-           Items.Assign(SubsetOfRadSources(SrcType));
+           FastAssign(SubsetOfRadSources(SrcType), cboSource.Items);
            if Items.Count > 0 then
             begin