Changeset 30 for trunk/Forms/UItemView.pas
- Timestamp:
- Nov 24, 2011, 8:35:25 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UItemView.pas
r21 r30 149 149 DataType := TReportColumn(Report.Columns[I]).CustomType; 150 150 DataType.LoadDef(TReportColumn(Report.Columns[I]).CustomType.CustomType); 151 if DataType is TDataTypeRelationMany then begin152 TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);153 TabDataTypeList.Add(DataType);154 TabObjectList.Add(MainForm.SelectedItem);155 end else begin156 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; 171 171 end; 172 172 Panel2.Visible := TabControl1.Tabs.Count > 0;
Note:
See TracChangeset
for help on using the changeset viewer.