search

cutec-chris / kcontrols

16 stars 6 forks source link

InternalMove jump over when reaonly #6

Open liuzg2 opened 4 years ago

liuzg2 commented 4 years ago

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