在线加急等!!!!
leoiv 2004-08-13 10:55:22 程序如下,现在的问题是不管奇行还是偶行,背景色都一样,我需要奇行是一中颜色,偶行是另一中颜色,拜托了,最好在偶的程序上修改偶比较看得懂,拜托拉,有多少分都拿去!
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 := $00FFFFC2;
end;
DBGridEh1.DefaultDrawColumnCell(rect, datacol, column, state);
end;