关于 TdxDBGrid 组件的问题。让在dxDBGrid1显示的纪录中符合条件的纪录以自己指定的字体颜色来显示。**一个实力分水岭的问题，数风流人物

Question

问题详述：
    dxDBGrid1 中显示一个 select语句 检索的纪录，我想让一些少数特别的纪录赋予不同于一般纪录的字体颜色来显示以突出这些少数纪录的特别!    指定特别纪录的字体颜色的代码该怎么写？：(
    判断纪录中是否是符合条件的纪录的工作该怎么做？    假设：dxDBGrid1 显示表A　的纪录。　　表A中有 a1(char).b1(decimal)字段。
　　如果纪录中b1项（decimal)>1000　，那么这条纪录用红色字体显示，　
    如果纪录中b1项（decimal)>5000　，那么这条纪录用蓝色字体显示，　
就是这样。
　　诚心向高手们指教！！！！！！！！！！！！！！！！！！！
能解决此问题的水平一定不浅!!

Answer 1

哦，那我说你不能解决这个问题，看看你怎么证明你的能力。
shit

Answer 2

参考一下:
procedure TForm11.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin  If gdSelected In State then
   begin
       if Table1.Fieldbyname('C1').asstring='400002' then
    begin
     DBGrid1.Canvas.Brush.Color:=clred;
     DBGrid1.Canvas.Font.Color:=clyellow;
    end
    else
    begin
     DBGrid1.Canvas.Brush.Color:=clyellow;
     DBGrid1.Canvas.Font.Color:=clred;
   end;
   end
  else
  begin
    DBGrid1.Canvas.Brush.Color:=clGradientInactiveCaption;
    DBGrid1.Canvas.Font.Color:=clnavy;
    end;
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Answer 3

就是
if Table1.Fieldbyname('a1').asInteger> 1000 and Table1.Fieldbyname('a1').asInteger< 5000 then
dxDBGrid1.Canvas.Brush.Color:=clred
else
  if Table1.Fieldbyname('a1').asInteger> 5000 then
    dxDBGrid1.Canvas.Brush.Color:=clblue;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  dbgrid1.Canvas.Brush.Color := clRed; //定义背景颜色
end;点了按钮没反应
--------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
  dbgrid1.Canvas.Brush.Color := clRed; //定义背景颜色
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
运行不了
[Error] Unit1.pas(41): There is no overloaded version of 'Rect' that can be called with these arguments
[Error] Unit1.pas(41): Undeclared identifier: 'State'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Answer 5

不能写在button事件中procedure TForm11.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);

Answer 6

我现在已经知道了不能写在button事件中，我想问是不是只能写在dxDBGrid1CustomDrawCell里？

Answer 7

procedure TForm1.dxDBGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas;.............
  var ADone: Boolean);
begin
(Sender as TdxDBGrid).Canvas.Brush.Color := clRed;
dxDBGrid1.Canvas.Brush.Color := clRed;
end;依然是没反应！
兄弟知道是怎么回事吗？

Answer 8

用TDBgrid组件我可以选择颜色来显示符合条件的纪录了。==>
procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if adoquery1.FieldByName('czy_czyxm').AsString = '2' then
    DBGrid2.Canvas.Font.Color := clBlack
  else
    DBGrid2.Canvas.Font.Color := clRed;
      DBGrid2.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
------------------------------------------------------------------------------可以TdxDBgrid组件还不行。我离成功还差一步了，兄弟们帮把手。   出了问题==>
procedure TForm1.dxDBGrid1CustomDrawCell(……);
begin
     dxDBGrid1.Canvas.font.Color := clRed;
     dxDBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);    /**就是这个地方
end;
编译反馈信息：
[Error] Unit1.pas(108): Undeclared identifier: 'customDefaultDrawColumnCell'
[Error] Unit1.pas(108): There is no overloaded version of 'Rect' that can be called with these arguments
[Error] Unit1.pas(108): Undeclared identifier: 'State'