Changeset 17 for trunk/Forms

Timestamp:

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

Author:

george

Message:

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

Location:

trunk/Forms

Files:

• UItemView.lfm (modified) (3 diffs)
• UItemView.pas (modified) (7 diffs)
• UMainForm.pas (modified) (2 diffs)

trunk/Forms/UItemView.lfm

@@ -10 +10 @@
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnResize = FormResize
   OnShow = FormShow
   LCLVersion = '0.9.31'
@@ -55 +56 @@
       object TabControl1: TTabControl
         Left = 0
-        Height = 32
+        Height = 24
         Top = 0
         Width = 626
         Align = alTop
+        OnChange = TabControl1Change
         TabIndex = 0
         TabOrder = 0
@@ -70 +72 @@
       object ListView1: TListView
         Left = 0
-        Height = 168
-        Top = 32
+        Height = 176
+        Top = 24
         Width = 626
         Align = alClient
         Columns = <>
+        OwnerData = True
+        ReadOnly = True
+        RowSelect = True
         TabOrder = 1
+        ViewStyle = vsReport
+        OnData = ListView1Data
       end
     end

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.
 

trunk/Forms/UMainForm.pas

@@ -440 +440 @@
   ObjectPropertyId := AddObject('Properties', 'Property', Core.System.Database.Database, GroupId);
     AddPropertyString(ObjectPropertyId, 'Name', 'Name');
-    PropertyObjectId := AddPropertyRelationOne(ObjectPropertyId, 'Object', 'Object', ObjectId);
+    PropertyParentId := AddPropertyRelationOne(ObjectPropertyId, 'Object', 'Object', ObjectId);
     ObjectPropertyIdGroup := AddPropertyRelationOne(ObjectPropertyId, 'Property group', 'PropertyGroup', ObjectPropertyGroupId);
     AddPropertyNumber(ObjectPropertyId, 'Custom type', 'CustomType');
@@ -597 +597 @@
   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
+    for I := 1 to Report.Columns.Count - 1 do
+    if not TReportColumn(Report.Columns[I]).VirtualItem then begin
       Item.SubItems.Add(Items[I]);
+    end;
   end;
 end;