liuzg2
liuzg2
procedure TKCustomGrid.InternalUnlockUpdate; begin ClearSortMode; // ValidateInitialPositions; ---------《《《《《《《 will too slow when end update UpdateAxes(True, cAll, True, cAll, [afCheckMinExtent]); end;
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;
function TKCustomGrid.InternalMove end; mcRight: begin Inc(ACol); while ACol< FColCount do