Changeset 21 for trunk/Forms/UItemView.pas

Timestamp:

Jun 16, 2011, 10:32:01 AM (13 years ago)

Author:

george

Message:

• Added: Item selection form for TypeRelationOne.
• Modified: Primary keys have to have their property record for each object.
• Added: Object propery havet to be initialized with Editable flag.

File:

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

trunk/Forms/UItemView.pas

@@ -174 +174 @@
 
 procedure TItemViewForm.LoadSubList;
-var
-  NewColumn: TListColumn;
-  I: Integer;
 begin
   //SelectedObjectId := 0;
@@ -186 +183 @@
     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;
+    Report.FillListColumns(Columns);
     Items.Count := Report.Count;
     Refresh;