Changeset 18 for trunk/Forms/UItemAdd.pas

Timestamp:

Jun 13, 2011, 2:41:33 PM (13 years ago)

Author:

george

Message:

• Fixed: Do not show RelationMany items in Add and Edit form.

File:

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

trunk/Forms/UItemAdd.pas

@@ -129 +129 @@
 
       DataType := TReportColumn(Report.Columns[I]).CustomType;
-      NewControl := DataType.CreateControl(Panel1);
-      DataType.SetDefault;
-      DataType.SetupControl(NewControl);
-      NewControl.Parent := Panel1;
-      NewControl.Top := LastTop;
-      NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
-      NewControl.Width := (Width div ColumnCount) div 2 - 20;
-      ControlList.Add(NewControl);
+      if not (DataType is TDataTypeRelationMany) then begin
+        NewControl := DataType.CreateControl(Panel1);
+        DataType.SetDefault;
+        DataType.SetupControl(NewControl);
+        NewControl.Parent := Panel1;
+        NewControl.Top := LastTop;
+        NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
+        NewControl.Width := (Width div ColumnCount) div 2 - 20;
+        ControlList.Add(NewControl);
 
-      Column := (Column + 1) mod 2;
-      if Column = 0 then LastTop := LastTop + NewControl.Height + 4;
+        Column := (Column + 1) mod 2;
+        if Column = 0 then LastTop := LastTop + NewControl.Height + 4;
+      end;
     end else ControlList.Add(nil);
 end;