如何根据表值为cxgrid着色?

时间:2011-05-21 00:08:27

标签: delphi devexpress tcxgrid

我希望特定字段名称“hello”所在的所有行都有颜色 绿色。我在customdrawcell上尝试了这个:

if abstable1.fieldbyname('somename').asstring = 'Hello' then
  cxgrid.canvas.brush.color:=clGreen

但它不会工作......我在这里缺少什么?

5 个答案:

答案 0 :(得分:8)

对单个列或网格对象使用OnGetContentStyle事件。样式比使用画布更容易使用。

答案 1 :(得分:5)

不要尝试更改网格中的画布颜色。相反 - 我发现总是是真的 - 在 View 的OnDrawCell处理程序中更改颜色,如下例所示:

procedure T_fmTabSnapList.View1CustomDrawCell(Sender: TcxCustomGridTableView;
  ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  if abstable1.fieldbyname('somename').asstring = 'Hello' then 
    ACanvas.Brush.Color := clGreen
end;

cxGrid只是Views的容器。视图是所有绘画发生的地方。 小号

答案 2 :(得分:4)

您需要查看每个视图行的内部数据,而不是表中当前位置的数据。还可以使用OnCustomDrawCell()事件中提供的画布。

procedure TForm1.YourViewCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  if(AViewInfo.GridRecord.Values[YourColumn.Index] = 'Hello') then
    ACanvas.Brush.Color := clGreen;
end;

答案 3 :(得分:0)

这是我的一个程序的一些工作代码,它做了类似的事情。

procedure TDoDockets.grDocketsDrawColumnCell(Sender: TObject;
            const Rect: TRect; DataCol: Integer; Column: TColumn;
            State: TGridDrawState);
begin
 with grDockets do
  begin
   if (qDocketsOpenCost.asinteger > 1) and (datacol = 5)
    then canvas.font.color:= clRed;

   if datacol = 9 then // status
    if qDocketsColour.Value <> 0
     then Canvas.font.color:= tcolor (qDocketsColour.Value);

   if datacol = 10 then // attention
    if qDocketsAttention.asinteger = 1
     then canvas.brush.color:= clRed;

   if qDocketsUrgent.asinteger = 1 then canvas.brush.color:= 10092543;
   // light yellow
   DefaultDrawColumnCell (Rect, DataCol, Column, State);
  end
end;

grDockets是网格,qDockets是网格中显示的查询。根据显示的值,某些列可能会以不同的颜色绘制,在一种情况下(qDocketsUrgent = 1),整条线的背景颜色会发生变化。

答案 4 :(得分:0)

procedure Tfm1.Grid1StylesGetContentStyle(Sender: TcxCustomGridTableView;
  ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
  out AStyle: TcxStyle);
Var
 Style1: TcxStyle;
begin
 if AItem = nil then exit;

 if ARecord.Values[Grid1Med.Index] = true then
   AStyle := cxStyleMed;

 if ARecord.Values[Grid1CP.Index] = true then
   AStyle := cxStyleHost;

 if (ARecord.Values[Grid1Med.Index] = true) and
    (ARecord.Values[Grid1CP.Index] = true) then
   AStyle := cxStyleHostAndCP;

  if not VarIsNull(ARecord.Values[colColor.Index]) then
  begin
    if not Assigned(AStyle) then
      AStyle := TcxStyle.Create(Sender);
    AStyle.Color := ARecord.Values[colColor.Index];
  end;
end;