Changeset 829 for cprs/trunk/CPRS-Chart/Consults/fEditProc.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/Consults/fEditProc.pas (modified) (6 diffs)

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

@@ -6 +6 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls, ORCtrls, ExtCtrls, ComCtrls, ORfn, uConst, uConsults, Buttons,
-  Menus;
+  Menus, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmEditProc = class(TForm)
+  TfrmEditProc = class(TfrmBase508Form)
     cmdAccept: TButton;
     cmdQuit: TButton;
@@ -167 +167 @@
   FChanging := True;
   Defaults := TStringList.Create;
-  Defaults.Assign(ODForProcedures);
+  FastAssign(ODForProcedures, Defaults);
   FLastProcID := '';
   cboProc.InitLongList(OldRec.ConsultProcName) ;
@@ -206 +206 @@
     ProvDx.CodeInactive := True;
    end;
-  memReason.Lines.Assign(OldRec.RequestReason);
+  QuickCopy(OldRec.RequestReason, memReason);
   btnCmtCancel.Enabled := (OldRec.DenyComments.Count > 0);
   btnCmtOther.Enabled := (OldRec.OtherComments.Count > 0);
@@ -394 +394 @@
           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 @@
       begin
         Clear;
-        Items.Assign(GetProcedureServices(cboProc.ItemIEN));
+        FastAssign(GetProcedureServices(cboProc.ItemIEN), cboService.Items);
         if Items.Count > 0 then
           begin
@@ -471 +471 @@
   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