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

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

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ORCtrls, ORDtTm, ExtCtrls, ORFn;
+  StdCtrls, ORCtrls, ORDtTm, ExtCtrls, ORFn, fBase508Form,
+  VA508AccessibilityManager;
 
 type
-  TfrmODLabImmedColl = class(TForm)
+  TfrmODLabImmedColl = class(TfrmBase508Form)
     memImmedCollect: TCaptionMemo;
     calImmedCollect: TORDateBox;
@@ -93 +94 @@
 procedure TfrmODLabImmedColl.FormShow(Sender: TObject);
 begin
-  memImmedCollect.Lines.Assign(ImmediateCollectTimes);
+  FastAssign(ImmediateCollectTimes, memImmedCollect.Lines);
   if Length(FCollTime) > 0 then
     calImmedCollect.Text := FCollTime