WITH This *** Find out which column is the leftmost column *** when the grid is instantiated and save it FOR lnCol = 1 TO .ColumnCount IF .Columns[ lncol ].ColumnOrder = 1 .nFirstColumn = lnCol EXIT ENDIF ENDFOR ENDWITHThis code in the Scrolled Method:
WITH This *** if we scrolled horizontally, adjust the column order *** so the leftmost column stays the leftmost column IF nDirection > 3 .Columns( .nFirstColumn ).ColumnOrder = .LeftColumn ENDIF ENDWITHAnd this in AfterRowColChange:
WITH This *** if we scrolled horizontally, adjust the column order *** so the leftmost column stays the leftmost column IF .RowColChange > 1 .Columns( .nFirstColumn ).ColumnOrder = .LeftColumn ENDIF ENDWITH