Drawmodrows

[liuzg2]

procedure TKGridCellPainter.Drawmodrows; begin

 if   (State * [gdFixed, gdSelected] = []) and (FRow>=0)  then

begin if FRow mod 2 = 0 then Canvas.Brush.Color := self.FGrid.Color else Canvas.Brush.Color := RGB(240,240,255); end;

end;