General information
Title:
Re : Freezing few columns in grid in left position
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
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only