DBGrid如何实现从数据库读数据显示时候如csdn论坛上的班马条效果颜色?

Question

请具体点,谢谢.

Answer 1

本例旨在演示如何动态地改变其中的文本颜色。例如，我们想用DBGrid中的行来显示国家的信息，如果国家的人口大于2亿，数据行显示将为兰色。在 DBGrid组件的OnDrawColumnCell事件处理程序中测试数据并改变颜色，程序代码如下：
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; 
  const Rect: TRect; DataCol: Integer; Column: TColumn; 
  State: TGridDrawState);
begin
     if Table1.FieldByName('Population').AsInteger > 20000000 then
        DBGrid1.Canvas.Font.Color := clBlue;
     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Answer 2

首先将DBgrid的DefaultDrawing属性设置为false; 
然后在DBBrid的DrawColumnCell事件中这样做： 
 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin 
  if Column.Field.AsInteger < 75 then begin 
     DBGrid1.Canvas.Font.Color := clWhite; 
     DBGrid1.Canvas.Brush.Color := clRed;  //这里设置单元格填充色 
     DBGrid1.Canvas.FillRect(Rect);   //这里对相应的单元格进行北景色填充 
  end; 
  //输出内容 
  DBGrid1.Canvas.TextRect( Rect, Rect.Left, Rect.Top, Column.Field.AsString); 
end;

Answer 3

上面的都理解错了,我的意思是阁行显示不同颜色,象CSDN论坛上面的一样
if 显示指针取摸为0 then
  颜色=蓝
else
  颜色=白

Answer 4

to  ntn115(飞静) ( ) 
晕,我自己写的要求肯定知道了,会就不用问啦,就是不会写.