Changeset 830 for cprs/trunk/CPRS-Chart/fDupPts.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/fDupPts.pas (modified) (3 diffs)

cprs/trunk/CPRS-Chart/fDupPts.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics,
-  Controls, Forms, Dialogs, StdCtrls, ORCtrls, ExtCtrls, OrFn;
+  Controls, Forms, Dialogs, StdCtrls, ORCtrls, ExtCtrls, OrFn, fBase508Form,
+  VA508AccessibilityManager;
 
 type
-  TfrmDupPts = class(TForm)
+  TfrmDupPts = class(TfrmBase508Form)
     pnlDupPts: TPanel;
     btnOK: TButton;
@@ -50 +51 @@
   fPtSel.DupDFN := 'Cancel'; // Pre-set as default.
   theDups := tStringList.create;
-  theDups.assign(fPtSel.PtStrs);
-  lboSelPt.items.assign(theDups);
+  FastAssign(fPtSel.PtStrs, theDups);
+  FastAssign(theDups, lboSelPt.Items);
   ResizeAnchoredFormToFont(self);
 end;
@@ -72 +73 @@
   Shift: TShiftState);
 begin
-
-// Check for "Esc" keypress:
-if (key = 27) then // ESC key.
-  btnCancel.click;
-
+  inherited;
+  if (key = VK_ESCAPE) then
+    btnCancel.click;
 end;