如何在DevExpress QuantumGrid(VCL)中的onCustomDrawCell事件中获取列索引

时间:2012-11-21 10:03:55

标签: delphi devexpress vcl

在我的应用程序中,我需要绘制一些不同颜色的网格列(不完全是行)。 如何从TcxGridTableDataCellViewInfo变量中获取当前columt id?

感谢。

2 个答案:

答案 0 :(得分:5)

您可以使用AViewInfo.Item.Index。

或者,您可以为每个列分配不同的OnCustomDrawCell处理程序,而不是为视图分配单个处理程序。然后就不需要区分列了。

答案 1 :(得分:5)

示例:

procedure TFrmBestellingen.grdRequestDBTableCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;AViewInfo:   
  TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  varValue: Variant;
begin
  inherited;
  // Which column must i paint: Paint on column <TcxGridDbColumn>
  if (AViewInfo.Item.Index = <TcxGridDbColumn>.Index) then
  begin
    // Get Value to compare if it is 100
    varValue:=AViewInfo.GridRecord.Values[<TcxGridDbColumn>.Index];
    if (Not VarIsNull(varValue)) and
       (varValue=100) then
    begin
      ACanvas.Font.Style:= [fsBold];
      ACanvas.Brush.Color:= clSilver;
    end;
  end;
end;