ADVPL - tGet, como adicionar F3, tooltip e ajuda?

Segue exemplo de como é possível criar um TGET com opções adicionais.

A propriedade cF3 adiciona a consulta F3.

A propriedade cTootip adiciona um balão quando o mouse está em cima.

A bloco de código bHelp, é executado quando clicado com F1.

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} UDTGETF3
UDTGETF3

@type		function
@author		Eurai Rapelli
@since 		2021.08.14

@see		https://udesenv.com.br
/*/
User Function UDTGETF3()
	Local oDlg		   	 := Nil AS Object
	Local oGet		   	 := Nil AS Object
	Local cGet		   	 := '' AS character


	oDlg		        := MSDialog():New( 000,000,520,830,'Demonstração f3 tooltip',,,.F.,,,,,,.T.,,,.T. )

	oGet 			:= TGet():New( 008,070,bSETGET(cGet),oDlg,040,010,,,,/*10*/,,,,.T.,/*15*/,,,,,/*20*/,,)
	oGet:cTooltip 	:= 'TOOLTIP'
	oGet:cF3 		:= 'SA1'
	oGet:bHelp		:= {|| ShowHelpCpo( 'Ajuda', {' MINHA AJUDA '}, 0 ) }


	oDlg:Activate(,,,.T.)


Return( Nil )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎

Um abraço, e até a próxima