求救DBGridEh1中根据奇偶行来改变颜色
leoiv 2004-08-12 05:40:21 刚才发过贴了,可能写的模糊了,现在详细如下:
DBGridEh1中根据奇偶行来改变颜色,我写的程序如下:
procedure TFrmEditTR_stQuota.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if ((FDmdTranMaster as TDmdTR_stQuota).QrySecond.RecNo mod 2) = 1 then
begin
DBGridEh1.Canvas.Brush.Color := $00FF0000;
end
else
begin
DBGridEh1.Canvas.Brush.Color := $00FFFFC1;
end;
DBGridEh1.DefaultDrawColumnCell(rect, datacol, column, state);
end;
先在的问题是不管奇偶行都是一个颜色,怎么办啊???求救啊,不染不能下班拉