if False { pFilterRow } then begin Visible := not DataController.IsDetailMode; end else Visible := False; end;
if pFilterCombo then begin OptionsCustomize.ColumnFiltering := not DataController.IsDetailMode; end else OptionsCustomize.ColumnFiltering := False;
if pGridTV is TcxGridBandedTableView then begin with TcxGridBandedTableView(pGridTV) do begin OptionsView.BandHeaderHeight := iHeaderHeight; OptionsCustomize.ColumnVertSizing := False; end; end;
if (Columns[i].Properties = nil) then begin Columns[i].PropertiesClass := TcxLabelProperties; end;
if (Columns[i].PropertiesClass = TcxLabelProperties) then begin Columns[i].Properties.Alignment.Vert := taVCenter; Columns[i].Properties.Alignment.Horz := taLeftJustify; end else if (Columns[i].PropertiesClass = TcxTextEditProperties) then begin Columns[i].Properties.Alignment.Vert := taVCenter; // Default end else if (Columns[i].PropertiesClass = TcxButtonEditProperties) then begin Columns[i].Options.Filtering := False; Columns[i].Options.ShowEditButtons := isebAlways; Columns[i].Options.Sorting := False; end else if (Columns[i].PropertiesClass = TcxImageComboBoxProperties) then begin Columns[i].Properties.Alignment.Horz := taCenter; TcxImageComboBoxProperties(Columns[i].Properties).DropDownRows := 31; TcxImageComboBoxProperties(Columns[i].Properties).ImmediatePost := True; end else if (Columns[i].PropertiesClass = TcxCheckBoxProperties) then begin TcxCheckBoxProperties(Columns[i].Properties).ImmediatePost := True; TcxCheckBoxProperties(Columns[i].Properties).NullStyle := nssUnchecked; TcxCheckBoxProperties(Columns[i].Properties).ValueChecked := True; TcxCheckBoxProperties(Columns[i].Properties).ValueUnchecked := False; with Columns[i], Options do begin HeaderAlignmentHorz := taCenter; end end else if (Columns[i].PropertiesClass = TcxDateEditProperties) then begin // cxCalendar TcxDateEditProperties(Columns[i].Properties).ImmediatePost := True; TcxDateEditProperties(Columns[i].Properties).InputKind := ikRegExpr; if Columns[i].Tag = 0 then begin TcxDateEditProperties(Columns[i].Properties).DateButtons := [btnToday]; end; end; end; EndUpdate; end;
end;
var i: Integer; begin with pGrid do begin BevelEdges := [beTop, beBottom]; BevelInner := bvRaised; BevelKind := bkFlat; BevelOuter := bvNone; BorderStyle := cxControls.cxcbsNone;
for i := 0 to ViewCount - 1 do begin if (views[i] is TcxGridTableView) or (views[i] is TcxGridBandedTableView) then begin SetTableView(TcxGridTableView(Views[i])); end; end; end; end;