PC Toledo

Código: Selecionar todos

Function GetFormToolTipHandle (FormName)
Local mVar , i 

mVar := '_' + FormName
i:=&mVar
if i == 0
	Return 0
endif
Return ( _HMG_SYSDATA [ 73  ] [ &mVar ] )

Código: Selecionar todos

#include "guilib.ch"

FUNCTION Main
LOCAL oMain
PRIVATE vEdit1 := "", vEdit2 := "", cEstoque := ""
PRIVATE oDescr, oEdit1, oEdit2

INIT WINDOW oMain MAIN TITLE "Exemplo" ;
     AT 20,20 SIZE 522,173

   @ 13,12 SAY "Cód.Produto"  SIZE 80,19   
   @ 13,34 GET oEdit1 VAR vEdit1 SIZE 80,24   PICTURE '999' MAXLENGTH 3  ; 
        VALID  {|| ValidaProd() }
   @ 108,12 SAY "Descrição do Produto"  SIZE 144,19   
   @ 108,35 SAY oDescr CAPTION ""  SIZE 398,25    ;
        FONT HFont():Add( '',0,-19,700,,,)
   @ 13,71 SAY "Quantidade"  SIZE 80,19   
   @ 13,93 GET oEdit2 VAR vEdit2 SIZE 116,24   PICTURE '9999' MAXLENGTH 4  ; 
        TOOLTIP 'Informe a Quantidade ( Estoque: 0 )' ;
        WHEN  {|w,o| MostraToolTip(w,o) }

   ACTIVATE WINDOW oMain 

RETURN Nil

Function MostraToolTip(w,o)
oEdit2:SetToolTip( 'Informe a Quantidade ( Estoque: '+cEstoque+' )' )
ToolTipShow(o)
return .T.

Function ValidaProd()
if Val(vEdit1)==1
  cEstoque = "10"
  oDescr:SetText("Produto 1")
else
  cEstoque = "20"
  oDescr:SetText("Produto 2")
endif
return .T.

Function ToolTipShow( o )
    LOCAL ac
    ac := GetWindowRect( o:handle )
    HWG_SETCURSORPOS( ac[ 1 ] + ( ac[ 3 ] -ac[ 1 ] - 2 ), ac[ 2 ] + 1 )
return .t.