Changeset 829 for cprs/trunk/CPRS-Chart/Consults/fEditConsult.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Consults/fEditConsult.pas (modified) (6 diffs)

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

@@ -6 +6 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls, ORCtrls, ExtCtrls, ComCtrls, ORfn, uConst, uConsults, Buttons,
-  Menus ;
+  Menus, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmEditCslt = class(TForm)
+  TfrmEditCslt = class(TfrmBase508Form)
     cboService: TORComboBox;
     cboUrgency: TORComboBox;
@@ -169 +169 @@
 begin
   FChanging := True;
-  Defaults.Assign(ODForConsults);
+  FastAssign(ODForConsults, Defaults);
   FLastServiceID := '';
   cboService.Items.Clear;
@@ -185 +185 @@
     end;
   StatusText('Initializing Long List');
-  SvcList.Assign(LoadServiceList(CN_SVC_LIST_ORD))   ;
+  FastAssign(LoadServiceList(CN_SVC_LIST_ORD), SvcList)   ;
   with cboService do
     begin
@@ -203 +203 @@
     ProvDx.CodeInactive := True;
    end;
-  memReason.Lines.Assign(OldRec.RequestReason);
+  QuickCopy(OldRec.RequestReason, memReason);
   memComment.Clear ;
   btnCmtCancel.Enabled := (OldRec.DenyComments.Count > 0);
@@ -388 +388 @@
           RequestReason.Clear
         else
-          RequestReason.Assign(Lines);
+          QuickCopy(memReason, RequestReason);
 
       with memComment do
         if GetTextLen > 0 then
-          NewComments.Assign(Lines)
+          QuickCopy(memComment, NewComments)
         else
           NewComments.Clear;
@@ -443 +443 @@
   AStringList := TStringList.Create;
   try
-    AStringList.Assign(memReason.Lines);
+    //QuickCopy(memReason, AStringList);
+    AStringList.Text := memReason.Text;
     LimitStringLength(AStringList, 74);
-    memReason.Lines.Assign(AstringList);
+    //QuickCopy(AstringList, memReason);
+    memReason.Text := AStringList.Text;
     ControlChange(Self);
   finally