如何设置StringGrid或DrawGrid列向网格线为不同的颜色?(24小时等候)

Question

如何设置StringGrid或DrawGrid列向网格线为不同的颜色?

Answer 1

procedure TForm1.ColoredDBGrid1 DRawColoredDBGrid 
(Sender: TObject;  Field: TField; var Color: 
TColor; var Font: TFont);
Var
  p : Integer;
begin
    p := Table1.FindField('wage').AsInteger;
  //取得当前记录的Wage字段的值。
    if(p < 500) then begin                 
//程序将根据wage值设置各行的颜色。
      Color := clGreen;
      Font.Style := [fsItalic];      
//不仅可以改变颜色,还可以改变字体
    end;
    if(p >= 500) And (p < 800) then
      Color := clRed;
     if(p >=800) then begin
      Color := clMaroon;
      Font.Style := [fsBold];
    end;
end;

Answer 2

to ： Danphel(Aleon) 
哪里有TColoredDBGrid1控件？

Answer 3

to  Danphel(Aleon):
  我的问题是:如何设置StringGrid或DrawGrid列向网格线为不同的颜色?
  哪里有TColoredDBGrid1控件？