Changeset 14 for trunk/Forms/UItemView.pas

Timestamp:

Jun 10, 2011, 2:16:52 PM (13 years ago)

Author:

george

Message:

• Added: Classes for base data types.

File:

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

trunk/Forms/UItemView.pas

@@ -42 +42 @@
 
 uses
-  UMainForm, UItemEdit;
+  UMainForm, UItemEdit, UDataTypes, UCore;
 
 {$R *.lfm}
@@ -57 +57 @@
 begin
   Report := TReport.Create;
-  Report.Base := MainForm.System;
+  Report.Base := Core.System;
 end;
 
@@ -93 +93 @@
   I: Integer;
   Column: Integer;
+  DataType: TDataType;
 const
   ColumnCount = 2;
@@ -107 +108 @@
 
   if Report.Count = 1 then
-  for I := 0 to Report.Columns.Count - 1 do
-  if TReportColumn(Report.Columns[I]).TypeDef.TypeIndex = Integer(vtPointer) then begin
+  for I := 0 to Report.Columns.Count - 1 do begin
+    DataType := TReportColumn(Report.Columns[I]).CustomType;
+  if DataType is TDataTypeRelationOne then begin
     TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
   end else begin
@@ -126 +128 @@
     if Column = 0 then LastTop := LastTop + 24;
   end;
+  end;
   Panel2.Visible := TabControl1.Tabs.Count > 0;
 end;