Changeset 1679 for cprs/trunk/CPRS-Chart/uReports.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/uReports.pas (modified) (3 diffs)

cprs/trunk/CPRS-Chart/uReports.pas

@@ -34 +34 @@
   end;
 
-TRowObject = class           //List of Row objects for ListView
+TRowObject = class           //List of Row objects for ReportsTab ListView
+  private
+    FCount     :integer;
+    FColumnList:TList;
+  public
+    constructor Create;
+    destructor  Destroy; override;
+    procedure   Add(ASite, AHandle, AColumnData: string; AData: TStringList);
+    procedure   Clear;
+    property    Count           :integer     read FCount;
+    property    ColumnList      :TList       read FColumnList;
+  end;
+
+TLabRowObject = class           //List of Row objects for Labs Tab ListView
   private
     FCount     :integer;
@@ -80 +93 @@
 var
   RowObjects: TRowObject;
+  LabRowObjects: TLabRowObject;
 
 //procedures & functions for Report Tree & ListView objects
@@ -188 +202 @@
 end;
 
+constructor TLabRowObject.Create;
+begin
+  FColumnList := TList.Create;
+  FCount := 0;
+end;
+
+destructor TLabRowObject.Destroy;
+begin
+  //Clear;
+  FColumnList.Free;
+  inherited Destroy;
+end;
+
+procedure TLabRowObject.Add(ASite, AHandle, AColumnData: string; AData: TStringList);
+var
+  ACell: TCellObject;
+begin
+  ACell := TCellObject.Create;
+  ACell.Add(ASite,AHandle,AColumnData,AData);
+  FColumnList.Add(ACell);
+  FCount := FColumnList.Count;
+end;
+
+procedure TLabRowObject.Clear;
+var
+  i: Integer;
+begin
+  with FColumnList do
+    for i := 0 to Count - 1 do
+      with TCellObject(Items[i]) do Free;
+  FColumnList.Clear;
+  FCount := 0;
+end;
+
 function IsValidNumber(S: string; var V: extended): boolean;
 var