dxdbgrid 单元格中颜色设置问题，如何设置表格中单个格的颜色，单行我会??

dongbocong 2003-12-04 02:32:08

...全文

61 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

ln521 2003-12-17

打赏
举报

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if gdselected in state then
with dbgrid1.Canvas do
begin
brush.Color:=clred;//选择颜色为红色
brush.Style:=bssolid;
fillrect(rect);
end;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;
这个我试过了一定行的

qufo 2003-12-16

打赏
举报

dxdbgrid根本没有DrawColumnCell
只有 onCustomDrawCell。而且，代码写在那里根本没反应。

boytomato 2003-12-06

打赏
举报

无语!!!

hotel9545 2003-12-05

打赏
举报

单行怎么做啊？

boytomato 2003-12-04

打赏
举报

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

if (TDbGrid(sender).Fields[DataCol].FieldName='工资') and (TDbGrid(sender).Fields[DataCol].asfloat>=1000) then

begin

DBGrid1.Canvas.Font.Color := clblue;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

if (TDbGrid(sender).Fields[DataCol].FieldName='工资') and (TDbGrid(sender).Fields[DataCol].asfloat<1000) then

begin

DBGrid1.Canvas.Font.Color := clred;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

end;

dongbocong 2003-12-04