Пример: заморозка одной колонки слева
Свойство - oldLeftColumn = № предыдущейя левая колонка
Для заморозки более одной колонки слева необходимо
заменить во всех этих процедурах
FOR i=2 на FOR i=m
где m=№ колоки, следующей за замороженной
И для Scrolled поиграйся сам, не смог найти пример с заморозкой более одной колонки

******************************************
Procedure grid.AfterRowColChanged
LPARAMETERS nColIndex
IF ThisForm.oldLeftColumn<>this.LeftColumn
FOR i=2 TO this.LeftColumn
this.Columns .ColumnOrder=i-1
ENDFOR
this.Columns[1].ColumnOrder=this.LeftColumn
FOR i=this.LeftColumn+1 TO This.ColumnCount
this.Columns.ColumnOrder=i
ENDFOR
ThisForm.oldLeftColumn=this.LeftColumn
ELSE
IF (LASTKEY() = 19 OR LASTKEY() = 15) AND this.ActiveColumn = 1
FOR i=1 TO This.ColumnCount
this.Columns.ColumnOrder=i
ENDFOR
ThisForm.oldLeftColumn=this.LeftColumn
ENDIF
ENDIF
******************************************
Procedure grid.BeforeRowColChanged
LPARAMETERS nColIndex
IF (LASTKEY() = 4 OR LASTKEY() = 9 OR LASTKEY() = 13) AND ;
this.ActiveColumn = this.ColumnCount OR ;
(LASTKEY() = 19 OR LASTKEY() = 15) AND (this.ActiveColumn = 1 AND ThisForm.oldLeftColumn=1)
NODEFAULT
RETURN .F.
ENDIF
******************************************
Procedure grid.Scrolled
LPARAMETERS nDirection
DO CASE
CASE nDirection=5 OR nDirection=7 && Right Arrow
FOR i=2 TO this.LeftColumn
this.Columns.ColumnOrder=i-1
ENDFOR
this.Columns[1].ColumnOrder=this.LeftColumn
FOR i=this.LeftColumn+1 TO This.ColumnCount
this.Columns.ColumnOrder=i
ENDFOR
ThisForm.oldLeftColumn=this.LeftColumn
CASE nDirection=4 OR nDirection=6 && Left Arrow
IF ThisForm.oldLeftColumn<>this.LeftColumn
FOR i=2 TO this.LeftColumn
this.Columns.ColumnOrder=i-1
ENDFOR
this.Columns[1].ColumnOrder=this.LeftColumn
FOR i=this.LeftColumn+1 TO This.ColumnCount
this.Columns.ColumnOrder=i
ENDFOR
ThisForm.oldLeftColumn=this.LeftColumn
ELSE
IF (LASTKEY() = 19 OR LASTKEY() = 15) AND this.ActiveColumn = 1
FOR i=1 TO This.ColumnCount
this.Columns.ColumnOrder=i
ENDFOR
ThisForm.oldLeftColumn=this.LeftColumn
ENDIF
ENDIF
ENDCASE