Changeset 12 for trunk/Forms/UItemView.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/UItemView.pas (modified) (1 diff)

trunk/Forms/UItemView.pas

@@ -108 +108 @@
   if Report.Count = 1 then
   for I := 0 to Report.Columns.Count - 1 do
-  if TReportColumn(Report.Columns[I]).TypeId = 20 then begin
+  if TReportColumn(Report.Columns[I]).TypeDef.TypeIndex = Integer(vtPointer) then begin
     TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
   end else begin