cxgrid 这两 个控件 能否 实现 鼠标 经过 每一条数据行 时 改变 整行 的 底颜色 ?????鼠标移走后变回原来的底颜色
如何实现??
如何实现??
解决方案 »
- 如何让查询的结果显示到一个下拉菜单中?
- listview有多列columns,点击第一列的某项时就选中了该item,如何能在点击第二列或其它列时也有同样的效果呢?
- 求购书籍
- foxpro的dbf数据table,pack的时候提示 Capability not supported
- 关于F1BOOK(急,求救)
- 如何根据access表中不同记录的kmdm字段值计算出dfkm值?
- 高分征求!子窗体最大化以后怎么才能合并到父窗体上,成为父窗体的一部分?就像word一样?
- fastreport打印图片的问题,估计是没有人可解决了
- 新年快乐!抢分游戏----限前面二名!
- ★★★快来抢100分★★★:当我双击*.dpr文件时,竟出现这样提示:windows找不到prgram.exe,该程
- 如何实现允许A、B用户同时修改同一纪录,以提交晚的保存
- 高手请进!如何提供AdoQuery遍历记录集的效率?
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);在这个事件中
begin
var ATextToDraw, val,chk1,chk2: String;
// ARec: TRect;
procedure SetTextToDraw;
begin
ATextToDraw := AViewInfo.GridRecord.DisplayTexts[AViewInfo.Item.Index];
end;
begin
inherited; SetTextToDraw; val := VarAsType(AViewInfo.GridRecord.DisplayTexts[cxGrid1DBTableView1pur_no.Index], varString);//
chk2 := VarAsType(AViewInfo.GridRecord.DisplayTexts[cxGrid1DBTableView1uqty.Index], varString);
chk1 := VarAsType(AViewInfo.GridRecord.DisplayTexts[cxGrid1DBTableView1DBColumn5.Index], varString); if val = '' then//判断某一列的值是否为空
ACanvas.Canvas.Brush.Color := clInfoBk
else
if chk1<>chk2 then
ACanvas.Canvas.Brush.Color := clmoneygreen; if AViewInfo.Selected then
ACanvas.Canvas.font.Color := clRed; ACanvas.DrawText(ATextToDraw, AViewInfo.Bounds, 0);end;
前面满足条件的获得后颜色不一样
自己再改一下就可以了
再从这个消息中提取Mouse Piont, 再得到该点的cxGrid
RowInfo, 再Draw.