LOCAL loParent WITH THIS IF .lHandleContainerResize AND TYPE('.Parent.Name') = 'C' loParent = IIF(UPPER(.PARENT.BASECLASS) = 'PAGE', .PARENT.PARENT, ; .PARENT) BINDEVENT(loParent, 'Resize', THIS, 'HandleContainerResize') .nContainerHeight = loParent.HEIGHT .nContainerWidth = loParent.WIDTH .nWidth = .WIDTH .nHeight = .HEIGHT .nLeft = .LEFT .nTop = .TOP ENDIF ENDWITH
**************************************************************************************** *** Control Header's grid to use SET ORDER TO **************************************************************************************** * 1) Get the values from actual header to array * 2) replace with new class * 3) replace each header with values from array * aProp_colunas(1,1)->Caption * aProp_colunas(1,2)->Alignment * aProp_colunas(1,3)->FontBold * aProp_colunas(1,4)->WordWrap * aProp_colunas(1,5)->Forecolor * aProp_colunas(1,6)->Backcolor LOCAL ncolunas ncolunas = THIS.COLUMNCOUNT DIMENSION aProp_colunas(ncolunas,6) FOR N = 1 TO ncolunas aProp_colunas(N,1) = THIS.COLUMNS(N).HEADER1.CAPTION aProp_colunas(N,2) = THIS.COLUMNS(N).HEADER1.ALIGNMENT aProp_colunas(N,3) = THIS.COLUMNS(N).HEADER1.FONTBOLD aProp_colunas(N,4) = THIS.COLUMNS(N).HEADER1.WORDWRAP aProp_colunas(N,5) = THIS.COLUMNS(N).HEADER1.FORECOLOR aProp_colunas(N,6) = THIS.COLUMNS(N).HEADER1.BACKCOLOR ENDFOR LOCAL oCol FOR EACH oCol IN THIS.COLUMNS IF TYPE('oCol.Header1')='O' oCol.REMOVEOBJECT('Header1') oCol.NEWOBJECT('Header1','Header_indexa','Header_indexa.prg') ENDIF oCol = .NULL. ENDFOR FOR N = 1 TO ncolunas THIS.COLUMNS(N).HEADER1.CAPTION = aProp_colunas(N,1) THIS.COLUMNS(N).HEADER1.ALIGNMENT = aProp_colunas(N,2) THIS.COLUMNS(N).HEADER1.FONTBOLD = aProp_colunas(N,3) THIS.COLUMNS(N).HEADER1.WORDWRAP = aProp_colunas(N,4) THIS.COLUMNS(N).HEADER1.FORECOLOR = aProp_colunas(N,5) THIS.COLUMNS(N).HEADER1.BACKCOLOR = aProp_colunas(N,6) ENDFORHeader indexa.prg just allows to SET ORDER TO TAG name of the column.