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

trunk/USystem.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, SpecializedList, SpecializedDictionary, USqlDatabase,
-  Strings, UDataTypes;
+  Strings, UDataTypes, Dialogs;
 
 const
@@ -207 +207 @@
       for I := 0 to Values.Count - 1 do begin
         NewItem := TReportLine.Create;
-        NewItem.Items.Add(Values[I].Values[Obj.PrimaryKey]);
+        //NewItem.Items.Add(Values[I].Values[Obj.PrimaryKey]);
         NewItem.Id := StrToInt(Values[I].Values[Obj.PrimaryKey]);
-        for C := 0 to Properties.Count - 1 do
+        for C := 0 to Columns.Count - 1 do
         if not TReportColumn(Columns[C]).VirtualItem then begin
           NewItem.Items.Add(Values[I].Values[TReportColumn(Columns[C]).ColumnName]);