Changeset 30 for trunk/Forms/UItemView.pas

Timestamp:

Nov 24, 2011, 8:35:25 AM (13 years ago)

Author:

chronos

Message:

• Added: TabControl in ItemEditForm for edit of OneToMany relations.

File:

• trunk/Forms/UItemView.pas (modified) (1 diff)

trunk/Forms/UItemView.pas

@@ -149 +149 @@
     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);
-    NewControl.Parent := PanelControls;
-    NewControl.Top := LastTop;
-    NewControl.Left := Column * Width div ColumnCount + 10;
-    TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';
-
-    NewControl := TLabel.Create(PanelControls);
-    NewControl.Parent := PanelControls;
-    NewControl.Top := LastTop;
-    NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
-    TLabel(NewControl).Caption := TReportLine(Report[0]).Items[I];
-
-    Column := (Column + 1) mod 2;
-    if Column = 0 then LastTop := LastTop + 24;
-  end;
+    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);
+      NewControl.Parent := PanelControls;
+      NewControl.Top := LastTop;
+      NewControl.Left := Column * Width div ColumnCount + 10;
+      TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';
+
+      NewControl := TLabel.Create(PanelControls);
+      NewControl.Parent := PanelControls;
+      NewControl.Top := LastTop;
+      NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
+      TLabel(NewControl).Caption := TReportLine(Report[0]).Items[I];
+
+      Column := (Column + 1) mod 2;
+      if Column = 0 then LastTop := LastTop + 24;
+    end;
   end;
   Panel2.Visible := TabControl1.Tabs.Count > 0;