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

cprs/trunk/CPRS-Chart/fPrintList.pas

@@ -5 +5 @@
 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, fAutoSz, StdCtrls, ORCtrls, fConsult513Prt;
+  Dialogs, fAutoSz, StdCtrls, ORCtrls, fConsult513Prt, VA508AccessibilityManager;
 
 type
@@ -66 +66 @@
   x: string;
   tmpList: TStringList;
-  strObj: TStringList;
+  //strObj: TStringList;
 begin
   HLDPageID := PageID;
@@ -81 +81 @@
           begin
             x := TORTreeNode(ATree.Items.Item[i]).Stringdata;
-                strObj := TStringList.Create;
-                strObj.Insert(0,x);
-                tmpList.AddObject(x, strObj)  // notes and dc/summs & Consults
+            tmpList.Add(x);
+            //strObj := TStringList.Create;
+            //strObj.Insert(0,x);
+            //tmpList.AddObject(x, strObj)  // notes and dc/summs & Consults
           end; {if}
       end; {for}
@@ -97 +98 @@
              begin
                x := tmpList[i];
-               tmpList[i] := (MakeNoteDisplayText(x));
+               tmpList[i] := Piece(x, U, 1) + U + (MakeNoteDisplayText(x));
              end;
            frmPrintList.lblListName.Caption := 'Select Notes to be printed.';
@@ -108 +109 @@
              begin
                x := tmpList[i];
-               tmpList[i] := (MakeConsultDisplayText(x));
+               tmpList[i] := Piece(x, U, 1) + U + (MakeConsultDisplayText(x));
              end;
            frmPrintList.lblListName.Caption := 'Select Consults to be printed.';
@@ -119 +120 @@
              begin
                x := tmpList[i];
-               tmpList[i] := (MakeNoteDisplayText(x));
+               tmpList[i] := Piece(x, U, 1) + U + (MakeNoteDisplayText(x));
              end;
            frmPrintList.lblListName.Caption := 'Select Discharge Summaries to be printed.';
@@ -125 +126 @@
       end; //case
 
-    frmPrintList.lbIDParents.Items.Assign(tmpList);
+    FastAssign(tmpList, frmPrintList.lbIDParents.Items);
     frmPrintList.ShowModal;
     Result := frmPrintList.FParentNode;