Changeset 12 for trunk/Forms/UItemAdd.pas

Timestamp:

Jun 9, 2011, 1:04:45 PM (13 years ago)

Author:

george

Message:

• Fixed: Display edit controls according property type.
• Added: Interface language translation.

File:

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

trunk/Forms/UItemAdd.pas

@@ -103 +103 @@
       TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';
 
-      ValueType := TReportColumn(Report.Columns[I]).TypeId;
+      ValueType := TReportColumn(Report.Columns[I]).TypeDef.TypeIndex;
       if ValueType = Integer(vtInteger) then begin
         NewControl := TSpinEdit.Create(Panel1);