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

cprs/trunk/CPRS-Chart/fNoteCslt.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  fAutoSz, StdCtrls, ORCtrls, ORFn;
+  fAutoSz, StdCtrls, ORCtrls, ORFn, VA508AccessibilityManager;
 
 type
@@ -55 +55 @@
     begin
       ResizeFormToFont(TForm(frmNoteConsult));
-      frmNoteConsult.lstRequests.Items.Assign(AConsultList);
+      FastAssign(AConsultList, frmNoteConsult.lstRequests.Items);
       frmNoteConsult.ShowModal;
       Result := frmNoteConsult.FSelectedRequest;