Changeset 17 for trunk/Forms/UItemView.pas

Timestamp:

Jun 13, 2011, 2:35:01 PM (13 years ago)

Author:

george

Message:

• Fixed: Loading content of RelationMany sublist in item view.

File:

• trunk/Forms/UItemView.pas (modified) (7 diffs)

trunk/Forms/UItemView.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls, ComCtrls, USqlDatabase, USystem;
+  ExtCtrls, ComCtrls, USqlDatabase, USystem, SpecializedList;
 
 type
@@ -28 +28 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormResize(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure ListView1Data(Sender: TObject; Item: TListItem);
+    procedure ListView1Resize(Sender: TObject);
+    procedure TabControl1Change(Sender: TObject);
   private
+    SubListObject: TChronisObject;
+    TabObjectList: TListInteger;
+    TabDataTypeList: TListObject;
+    procedure LoadSubList;
     { private declarations }
   public
@@ -56 +64 @@
 procedure TItemViewForm.FormCreate(Sender: TObject);
 begin
+  SubListObject := TChronisObject.Create;
+  SubListObject.Base := Core.System;
   Report := TReport.Create;
   Report.Base := Core.System;
+  TabObjectList := TListInteger.Create;
+  TabDataTypeList := TListObject.Create;
+  TabDataTypeList.OwnsObjects := False;
+  TabControl1.Tabs.Clear;
 end;
 
 procedure TItemViewForm.FormDestroy(Sender: TObject);
 begin
+  SubListObject.Free;
   Report.Free;
+  TabObjectList.Free;
+  TabDataTypeList.Free;
+end;
+
+procedure TItemViewForm.FormResize(Sender: TObject);
+begin
+  ListView1Resize(Self);
 end;
 
@@ -85 +107 @@
   MainForm.PersistentForm.Load(Self);
   BuildControls;
+  LoadSubList;
+end;
+
+procedure TItemViewForm.ListView1Data(Sender: TObject; Item: TListItem);
+var
+  I: Integer;
+begin
+  if Item.Index < Report.Count then
+  with TReportLine(Report[Item.Index]) do begin
+    Item.Caption := Items[0];
+    for I := 1 to Items.Count - 1 do
+    if not TReportColumn(Report.Columns[I]).VirtualItem then
+      Item.SubItems.Add(Items[I]);
+  end;
 end;
 
@@ -105 +141 @@
 
   TabControl1.Tabs.Clear;
+  TabObjectList.Clear;
+  TabDataTypeList.Clear;
   // Load column names
 
@@ -110 +148 @@
   for I := 0 to Report.Columns.Count - 1 do begin
     DataType := TReportColumn(Report.Columns[I]).CustomType;
+    DataType.LoadDef(TReportColumn(Report.Columns[I]).CustomType.CustomType);
   if DataType is TDataTypeRelationMany then begin
     TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
+    TabDataTypeList.Add(DataType);
+    TabObjectList.Add(MainForm.SelectedItem);
   end else begin
     NewControl := TLabel.Create(PanelControls);
@@ -132 +173 @@
 end;
 
+procedure TItemViewForm.LoadSubList;
+var
+  NewColumn: TListColumn;
+  I: Integer;
+begin
+  //SelectedObjectId := 0;
+  if (TabControl1.TabIndex >= 0) and (TabControl1.TabIndex < TabControl1.Tabs.Count) then
+  with ListView1 do
+  with TDataTypeRelationMany(TabDataTypeList[TabControl1.TabIndex]) do begin
+    Visible := True;
+    SubListObject.Load(ObjectId);
+    Report.Load(SubListObject, '`' + PropertyName + '`=' + IntToStr(TabObjectList[TabControl1.TabIndex]));
+
+    Columns.Clear;
+    for I := 0 to Report.Columns.Count - 1 do
+    if not TReportColumn(Report.Columns[I]).VirtualItem then begin
+      NewColumn := Columns.Add;
+      NewColumn.Caption := TReportColumn(Report.Columns[I]).Caption;
+    end;
+    Items.Count := Report.Count;
+    Refresh;
+  end;
+  ListView1Resize(Self);
+end;
+
+procedure TItemViewForm.ListView1Resize(Sender: TObject);
+var
+  I: Integer;
+begin
+  for I := 0 to ListView1.Columns.Count - 1 do
+    ListView1.Columns[I].Width := ListView1.Width div ListView1.Columns.Count;
+end;
+
+procedure TItemViewForm.TabControl1Change(Sender: TObject);
+begin
+  LoadSubList;
+end;
+
+
 end.