Open liuzg2 opened 4 years ago
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;
procedure TKGridCellPainter.Drawmodrows; begin
begin if FRow mod 2 = 0 then Canvas.Brush.Color := self.FGrid.Color else Canvas.Brush.Color := RGB(240,240,255); end;
end;