TGrid

TSrvObject -> TControl -> TGrid

Propriedade: bCursorMove

Esta classe permite a exibição de qualquer origem de dados, porém o desenvolvedor deve configurar todo o processo de dados para pintura e navegação, conforme exemplo abaixo:

O formato do bloco de código, da propriedade , é:

{|o,nMvType,nCurPos,nOffSet,nVisRows| (o,nMvType,nCurPos,nOffSet,nVisRows) }

Sendo:

Propriedade: blDblClick

O bloco de código da propriedade , na classe TGrid(), é executado para ativar uma linha ou célula quando clicar duas vezes, com o botão esquerdo do mouse, sobre o objeto ou pressionar a tecla [ENTER]. 

Propriedade: bGridInfo

#include "totvs.ch"//------------------------------------------------------------------// Exemplo de configuração de TGrid em array com navegação por linha//------------------------------------------------------------------#define GRID_MOVEUP       0#define GRID_MOVEDOWN     1#define GRID_MOVEHOME     2#define GRID_MOVEEND      3#define GRID_MOVEPAGEUP   4#define GRID_MOVEPAGEDOWN 5           // MyGrid ( Classe para encapsular acesso ao componente TGrid )//------------------------------------------------------------------------------           CLASS MyGrid	DATA oGrid		DATA oFrame	DATA oButtonsFrame	DATA oButtonHome	DATA oButtonPgUp	DATA oButtonUp	DATA oButtonDown	DATA oButtonPgDown	DATA oButtonEnd	DATA aData	DATA nLenData	DATA nRecNo	DATA nCursorPos	 	DATA nVisibleRows    	          	METHOD New(oDlg) CONSTRUCTOR	METHOD onMove( o,nMvType,nCurPos,nOffSet,nVisRows )	METHOD isBof()	METHOD isEof()	METHOD ShowData( nFirstRec, nCount ) 	METHOD ClearRows() 	METHOD DoUpdate()   	METHOD SelectRow(n)       		METHOD GoHome()                       	METHOD GoEnd() 	METHOD GoPgUp() 	METHOD GoPgDown()      	METHOD GoUp(nOffSet)	METHOD GoDown(nOffSet)     		METHOD SetCSS(cCSS)END CLASSMETHOD New(oDlg, aData) CLASS MyGrid   	::oFrame:= tPanel():New(0,0,,oDlg,,,,,,200,200 )	::nRecNo:= 1	::nCursorPos:= 0     	::nVisibleRows:= 14 // Forçado para 1o ::GoEnd()		::aData:= aData	::nLenData:= Len(aData)		::oGrid:= tGrid():New( ::oFrame )	::oGrid:Align:= CONTROL_ALIGN_ALLCLIENT                       		::oButtonsFrame:= tPanel():New(0,0,, ::oFrame,,,,,, 10,200,.F.,.T. )	::oButtonsFrame:Align:= CONTROL_ALIGN_RIGHT    	::oButtonHome:= tBtnBmp():NewBar( "VCTOP.BMP",,,,, {||::GoHome()},,::oButtonsFrame )	::oButtonHome:Align:= CONTROL_ALIGN_TOP	::oButtonPgUp:= tBtnBmp():NewBar( "VCPGUP.BMP",,,,, {||::GoPgUp()},,::oButtonsFrame )	::oButtonPgUp:Align:= CONTROL_ALIGN_TOP 		::oButtonUp:= tBtnBmp():NewBar( "VCUP.BMP",,,,,{||::GoUp(1)},,::oButtonsFrame )	::oButtonUp:Align:= CONTROL_ALIGN_TOP 	::oButtonEnd:= tBtnBmp():NewBar( "VCBOTTOM.BMP",,,,, {||::GoEnd()},,::oButtonsFrame )	::oButtonEnd:Align:= CONTROL_ALIGN_BOTTOM	::oButtonPgDown:= tBtnBmp():NewBar( "VCPGDOWN.BMP",,,,, {||::GoPgDown()},,::oButtonsFrame )	::oButtonPgDown:Align:= CONTROL_ALIGN_BOTTOM	::oButtonDown:= tBtnBmp():NewBar( "VCDOWN.BMP",,,,, {||::GoDown(1)},,::oButtonsFrame )	::oButtonDown:Align:= CONTROL_ALIGN_BOTTOM 		::oGrid:addColumn( 1, "Código", 50, CONTROL_ALIGN_LEFT )	::oGrid:addColumn( 2, "Descrição", 150, 0 )	::oGrid:addColumn( 3, "Valor", 50, CONTROL_ALIGN_RIGHT ) 		::oGrid:bCursorMove:= {|o,nMvType,nCurPos,nOffSet,nVisRows| ::onMove(o,nMvType,nCurPos,nOffSet,nVisRows) }   ::ShowData(1)    	    ::SelectRow( ::nCursorPos )   	// configura acionamento do duplo clique    ::oGrid:bLDblClick:= {|| MsgStop("oi") } RETURNMETHOD isBof() CLASS MyGridRETURN ( ::nRecno==1 )METHOD isEof() CLASS MyGridRETURN ( ::nRecno==::nLenData )METHOD GoHome() CLASS MyGrid	if ::isBof()		return	endif		                 		::nRecno = 1	::oGrid:ClearRows()	::ShowData( 1, ::nVisibleRows )    		::nCursorPos:= 0	::SelectRow( ::nCursorPos )	RETURN                METHOD GoEnd() CLASS MyGrid  if ::isEof()  	return  endif                                       ::nRecno:= ::nLenData	::oGrid:ClearRows()	::ShowData( ::nRecno - ::nVisibleRows + 1, ::nVisibleRows )  	::nCursorPos:= ::nVisibleRows-1	::SelectRow( ::nCursorPos )RETURNMETHOD GoPgUp() CLASS MyGrid	if ::isBof()		return	endif                                	// força antes ir para a 1a linha da grid           	if ::nCursorPos != 0    		::nRecno -= ::nCursorPos		if ::nRecno<=0 			::nRecno:=1		endif			     		::nCursorPos:= 0		::oGrid:setRowData( ::nCursorPos, {|o| { ::aData[::nRecno,1], ::aData[::nRecno,2], ::aData[::nRecno,3] } } ) 			else		::nRecno -= ::nVisibleRows		if ::nRecno<=0 			::nRecno:=1				endif		::oGrid:ClearRows()		::ShowData( ::nRecno, ::nVisibleRows )		::nCursorPos:= 0	endif					::SelectRow( ::nCursorPos )RETURN METHOD GoPgDown() CLASS MyGridLocal nLastVisRowif ::isEof()		returnendif                                         // força antes ir para a última linha da grid	nLastVisRow:= ::nVisibleRows-1 if ::nCursorPos!=nLastVisRow    	if ::nRecno+nLastVisRow > ::nLenData		nLastVisRow:= ( ::nRecno+nLastVisRow ) - ::nLenData		::nRecno:= ::nLenData	else				::nRecNo += nLastVisRow	endif	::nCursorPos:= nLastVisRow	::oGrid:setRowData( ::nCursorPos, {|o| { ::aData[::nRecno,1], ::aData[::nRecno,2], ::aData[::nRecno,3] } } )else  	::oGrid:ClearRows()					::nRecno += ::nVisibleRows	if ::nRecno > ::nLenData		::nVisibleRows = ::nRecno-::nLenData		::nRecno:= ::nLenData	endif 	::ShowData( ::nRecNo - ::nVisibleRows + 1, ::nVisibleRows )	::nCursorPos:= ::nVisibleRows-1endif   ::SelectRow( ::nCursorPos )				RETURNMETHOD GoUp(nOffSet) CLASS MyGridLocal lAdjustCursor:= .F.if ::isBof()	RETURNendif		       if ::nCursorPos==0	::oGrid:scrollLine(-1)	lAdjustCursor:= .T.else            			::nCursorPos -= nOffSet		endif		         ::nRecno -= nOffSet    // atualiza linha corrente  ::oGrid:setRowData( ::nCursorPos, {|o| { ::aData[::nRecno,1], ::aData[::nRecno,2], ::aData[::nRecno,3] } } ) if lAdjustCursor  	::nCursorPos:= 0endif	              ::SelectRow( ::nCursorPos )RETURNMETHOD GoDown(nOffSet) CLASS MyGrid    Local lAdjustCursor:= .F.    if ::isEof()	RETURNendif      if ::nCursorPos==::nVisibleRows-1	::oGrid:scrollLine(1)		 	lAdjustCursor:= .T.else	::nCursorPos += nOffSet						endif                 ::nRecno += nOffSet// atualiza linha corrente  ::oGrid:setRowData( ::nCursorPos, {|o| { ::aData[::nRecno,1], ::aData[::nRecno,2], ::aData[::nRecno,3] } } ) 				if lAdjustCursor 	::nCursorPos:= ::nVisibleRows-1endif		  	                                ::SelectRow( ::nCursorPos )       RETURNMETHOD onMove( oGrid,nMvType,nCurPos,nOffSet,nVisRows ) CLASS MyGrid                          ::nCursorPos:= nCurPos::nVisibleRows:= nVisRowsif nMvType == GRID_MOVEUP  	::GoUp(nOffSet)elseif nMvType == GRID_MOVEDOWN       	::GoDown(nOffSet)elseif nMvType == GRID_MOVEHOME           	::GoHome()elseif nMvType == GRID_MOVEEND	::GoEnd()  elseif nMvType == GRID_MOVEPAGEUP	::GoPgUp()elseif nMvType == GRID_MOVEPAGEDOWN 	::GoPgDown()endifRETURN             METHOD ShowData( nFirstRec, nCount ) CLASS MyGridlocal i, nRec, ciDEFAULT nCount:=30for i=0 to nCount-1 	nRec:= nFirstRec+i	if nRec > ::nLenData		RETURN	endif				ci:= Str( nRec )             	cb:= "{|o| { Self:aData["+ci+",1], Self:aData["+ci+",2], Self:aData["+ci+",3] } }"	::oGrid:setRowData( i, &cb )next i     RETURNMETHOD ClearRows() CLASS MyGrid	::oGrid:ClearRows()	::nRecNo:=1RETURN                                                         METHOD DoUpdate() CLASS MyGrid     	::nRecNo:=1	::Showdata(1)	::SelectRow(0)RETURNMETHOD SelectRow(n) CLASS MyGrid	::oGrid:setSelectedRow(n)RETURN           METHOD SetCSS(cCSS) CLASS MyGrid	::oGrid:setCSS(cCSS)RETURN      // U_TSTGRID ( Executa Grid )//------------------------------------------------------------------         USER FUNCTION TSTGRID()                                   Local oDlg, aData:={}, i, oGridLocal oEdit, nEdit:= 0Local oBtnAdd, oBtnClr, oBtnLoa// configura pintura da TGridLocal cCSS:= "QTableView{ alternate-background-color: red; background: yellow; selection-background-color: #669966 }"  // configura pintura do Header da TGrid	cCSS+= "QHeaderView::section { background-color: qlineargradient(x1:0, y1:0, x2:0, y2:1, stop:0 #616161, stop: 0.5 #505050, stop: 0.6 #434343, stop:1 #656565); color: white; padding-left: 4px; border: 1px solid #6c6c6c; }"// Dados                      for i:=1 to 10000                          	cCodProd:= StrZero(i,6)     	if i<3           		// inserindo imagem nas 2 primeiras linhas		cProd:= "RPO_IMAGE=OK.BMP" 	else			cProd:= 'Produto '+cCodProd	endif			cVal = Transform( 10.50, "@E 99999999.99" )	AADD( aData, { cCodProd, cProd, cVal } )nextDEFINE DIALOG oDlg FROM 0,0 TO 500,500 PIXEL                             oGrid:= MyGrid():New(oDlg,aData)// Aplica configuração de pintura via CSSoGrid:SetCSS(cCSS)                              @ 210, 10 GET oEdit VAR nEdit OF oDlg PIXEL PICTURE "99999"@ 210, 70 BUTTON oBtnAdd PROMPT "Go" OF oDlg PIXEL ACTION oGrid:SelectRow(nEdit)@ 210, 100 BUTTON oBtnClr PROMPT "Clear" OF oDlg PIXEL ACTION oGrid:ClearRows()@ 210, 150 BUTTON oBtnLoa PROMPT "Update" OF oDlg PIXEL ACTION oGrid:DoUpdate()                                            ACTIVATE DIALOG oDlg CENTEREDRETURN