DEFINE CLASS _grid AS GRID

._freez = 3

PROCEDURE SCROLLED
LPARAMETERS ndirection
LOCAL for1

WITH THIS
IF ._freez > 0
DO CASE
CASE .COLUMNS(1).COLUMNORDER < .LEFTCOLUMN
FOR for1 = .LEFTCOLUMN-1 TO .LEFTCOLUMN
.COLUMNS(for1).COLUMNORDER = for1 - 1
ENDFOR

CASE .COLUMNS(1).COLUMNORDER > .LEFTCOLUMN
FOR for1 = .LEFTCOLUMN TO .LEFTCOLUMN - 1
.COLUMNS(for1).COLUMNORDER = for1 + 1
ENDFOR

ENDCASE

.COLUMNS(1).COLUMNORDER = .LEFTCOLUMN

IF ._freez # 1
FOR for1 = 2 TO ._freez
.COLUMNS(for1).COLUMNORDER = .COLUMNS(1).COLUMNORDER + (for1-1)
ENDFOR
ENDIF

FOR for1 = .LEFTCOLUMN + ._freez TO .COLUMNCOUNT
.COLUMNS(for1).COLUMNORDER = for1
ENDFOR
ENDIF
ENDWITH
ENDPROC

PROCEDURE AFTERROWCOLCHANGE
LPARAMETERS ncolindex

WITH THIS
.SETALL("Backcolor",RGB(200,190,175),"Header")
.COLUMNS(ncolindex).header1.BACKCOLOR = RGB(170,235,180)
.SCROLLED()
.SETFOCUS()
ENDWITH
ENDPROC

ENDDEFINE