Ignore:
Timestamp:
Nov 24, 2011, 8:35:25 AM (13 years ago)
Author:
chronos
Message:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UItemView.pas

    r21 r30  
    149149    DataType := TReportColumn(Report.Columns[I]).CustomType;
    150150    DataType.LoadDef(TReportColumn(Report.Columns[I]).CustomType.CustomType);
    151   if DataType is TDataTypeRelationMany then begin
    152     TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
    153     TabDataTypeList.Add(DataType);
    154     TabObjectList.Add(MainForm.SelectedItem);
    155   end else begin
    156     NewControl := TLabel.Create(PanelControls);
    157     NewControl.Parent := PanelControls;
    158     NewControl.Top := LastTop;
    159     NewControl.Left := Column * Width div ColumnCount + 10;
    160     TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';
    161 
    162     NewControl := TLabel.Create(PanelControls);
    163     NewControl.Parent := PanelControls;
    164     NewControl.Top := LastTop;
    165     NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    166     TLabel(NewControl).Caption := TReportLine(Report[0]).Items[I];
    167 
    168     Column := (Column + 1) mod 2;
    169     if Column = 0 then LastTop := LastTop + 24;
    170   end;
     151    if DataType is TDataTypeRelationMany then begin
     152      TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
     153      TabDataTypeList.Add(DataType);
     154      TabObjectList.Add(MainForm.SelectedItem);
     155    end else begin
     156      NewControl := TLabel.Create(PanelControls);
     157      NewControl.Parent := PanelControls;
     158      NewControl.Top := LastTop;
     159      NewControl.Left := Column * Width div ColumnCount + 10;
     160      TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';
     161
     162      NewControl := TLabel.Create(PanelControls);
     163      NewControl.Parent := PanelControls;
     164      NewControl.Top := LastTop;
     165      NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
     166      TLabel(NewControl).Caption := TReportLine(Report[0]).Items[I];
     167
     168      Column := (Column + 1) mod 2;
     169      if Column = 0 then LastTop := LastTop + 24;
     170    end;
    171171  end;
    172172  Panel2.Visible := TabControl1.Tabs.Count > 0;
Note: See TracChangeset for help on using the changeset viewer.