请教大虾们,怎样在dbgrid中在不同的行中显示不同的颜色!(100分)

  • 主题发起人 世界第一等
  • 开始时间

世界第一等

Unregistered / Unconfirmed
GUEST, unregistred user!
请教大虾们,怎样在dbgrid中在不同的行中显示不同的颜色!
 
ado_two 为dbgrid 数据集的数据源
注:在dbgrid1 的DrawColumnCell 事件中
以下为:
if (ado_two.RecNo mod 2)=1 then
begin
dbgrid1.Canvas.Brush.Color:=$00D9F3EB;
dbgrid1.Canvas.Font.Color:= clDefault;
end else
begin
dbgrid1.Canvas.Brush.Color:=clBtnHighlight;
dbgrid1.Canvas.Font.Color:= clDefault;
end;
if gdselected in state then
begin
dbgrid1.Canvas.Brush.Color:=clDefault;
dbgrid1.Canvas.Font.Color:= clwhite;
end;
dbgrid1.Canvas.FillRect(Rect);
dbgrid1.Canvas.TextOut(Rect.Left+6,Rect.Top+2,Trim(Column.Field.AsString));
 
多人接受答案了。
 
例:
DBGrid.Columns[0].Color:=clInfoBk;
DBGrid.Columns[1].Color:=clAqua;
 
顶部