kryslt / KControls

Free components for Delphi and Lazarus, this is the main repository maintained by the original author.
BSD 3-Clause Clear License
58 stars 32 forks source link

add somthing #12

Closed kryslt closed 4 years ago

kryslt commented 4 years ago

Original report by liuzg2 (Bitbucket: liuzg2, GitHub: liuzg2).


function TKCustomGrid.InternalMove

end;
mcRight:
begin
Inc(ACol);

       while ACol< FColCount  do       <<<<<   i  add   this    jump over  when reaonly
          begin
            if   Cols[ACol].ReadOnly then

              Inc(ACol)
              else Break;
          end;
    if ACol < FColCount then
    begin
      if FMemRow >= 0 then
        ARow := FMemRow;
      FMemCol := ACol;
    end

i add this to draw mod row color

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;

kryslt commented 4 years ago

Please generate patch for this. And replace Canvas.Brush.Color := RGB(240,240,255); with some generous solution (extra published color property etc.).

liuzg2 commented 4 years ago

i do not know how to patch ,but i have upload a file in another issues

kryslt commented 4 years ago

No suitable patch included, closing this issue.