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

cprs/trunk/CPRS-Chart/fxLists.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls;
+  StdCtrls, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmDbgList = class(TForm)
+  TfrmDbgList = class(TfrmBase508Form)
     memData: TMemo;
     procedure FormKeyUp(Sender: TObject; var Key: Word;
@@ -37 +37 @@
     begin
       if AListBox is TORListBox then
-        memData.Lines.Assign(TORListBox(AListBox).Items)
+        FastAssign(TORListBox(AListBox).Items, memData.Lines)
       else
         memData.Lines.Assign(AListBox.Items);