Perguntas Pesquisa dentro do componente dbTree

//Faço a chamada por tecla de atalho
SetKey(K_CTRL_F,{|| PesqFile(@oTree) })


Static Function PesqFile( oTree )
	Local lAchou	:=	.F.
	
	LOCAL cChavePesq := Space( 100 )

	LOCAL nOpca      := 0

	LOCAL oDlgPesq
	LOCAL oBut1
	LOCAL oBut2
	LOCAL oGetPesq

	DEFINE MSDIALOG oDlgPesq TITLE "Pesquisar" FROM 09,0 TO 21.2,43.5 OF oMainWnd

	DEFINE FONT oBold NAME "Arial" SIZE 0, -13 BOLD
	@   0, 0 BITMAP oBmp RESNAME "LOGIN" oF oDlgPesq SIZE 30, 120 NOBORDER WHEN .F. PIXEL

	@ 03, 40 SAY "Pesquisar" FONT oBold PIXEL //

	@ 14, 30 TO 16 ,400 LABEL '' OF oDlgPesq   PIXEL

	@ 23, 40 SAY "Procurar por: " SIZE 40, 09    PIXEL
	@ 33, 40 MSGET oGetPesq VAR cChavePesq PICTURE "@!" SIZE 120, 10 VALID .T. PIXEL 

	DEFINE SBUTTON oBut1 FROM 67, 99 TYPE 1 ACTION ( nOpca := 1, oDlgPesq:End() ) ENABLE of oDlgPesq

	DEFINE SBUTTON oBut2 FROM 67, 132   TYPE 2 ACTION ( nOpca := 0,	oDlgPesq:End() ) ENABLE of oDlgPesq

	ACTIVATE MSDIALOG oDlgPesq CENTERED

	If nOpca == 1
		cChavePesq := "A"+Alltrim(cChavePesq)
		
		lAchou	:=	oTree:TreeSeek(cChavePesq)
		
		if lAchou
			oTree:SetFocus()
		Else
			Aviso( "Atencao !", "O arquivo informado não foi localizado !", { "Ok" } )
		EndIf
		
	EndIf

Return( .T. )