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

cprs/trunk/CPRS-Chart/Consults/fConsultAlertTo.pas

@@ -4 +4 @@
 
 uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
-  Buttons, ORCtrls, ORfn, ExtCtrls;
+  Buttons, ORCtrls, ORfn, ExtCtrls, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmConsultAlertsTo = class(TForm)
+  TfrmConsultAlertsTo = class(TfrmBase508Form)
     cmdOK: TButton;
     cmdCancel: TButton;
@@ -15 +15 @@
     DstLabel: TLabel;
     pnlBase: TORAutoPanel;
+    btnAdd: TButton;
+    btnRemove: TButton;
     procedure cboSrcListNeedData(Sender: TObject; const StartFrom: String;
       Direction, InsertAt: Integer);