Changeset 17 for trunk/Forms/UMainForm.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/UMainForm.pas (modified) (2 diffs)

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;