use*_*539 4 delphi devexpress tcxgrid
我希望特定字段名称"hello"的所有行都显示为绿色.我试过这个customdrawcell:
if abstable1.fieldbyname('somename').asstring = 'Hello' then
cxgrid.canvas.brush.color:=clGreen
Run Code Online (Sandbox Code Playgroud)
但它不会工作......我在这里错过了什么?
对单个列或网格对象使用OnGetContentStyle事件.样式比使用画布更容易使用.
您需要查看每个视图行的内部数据,而不是表中当前位置的数据。还可以利用 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;
Run Code Online (Sandbox Code Playgroud)
小智 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;
Run Code Online (Sandbox Code Playgroud)
cxGrid只是Views的容器.视图是所有绘画发生的地方.小号
| 归档时间: |
|
| 查看次数: |
30379 次 |
| 最近记录: |