Usando CueBanner

[asimoes]

Usando CueBanner

2019-12-27 16_36_42-BrowseColor.png (10.18 KiB) Exibido 2770 vezes

Código: Selecionar todos

 @ 010,304 GET EditNome ;
               VAR       cNome ;
               SIZE      200,24 ;
               PICTURE   '@!' ;
               MAXLENGTH 100 ;
               FONT      HFont():Add( 'Tahoma', 0, -13, 400 ) ;
               ON CHANGE {|| ChangeEditNome() } ;
               ON INIT   {|| EditNome:SetCueBanner( "Entre com o nome do sócio", .T. )}  

FUNCTION ChangeEditNome()

   IF Len( AllTrim( ThisForm:EditNome:VarGet() ) ) = 0
      Hwg_SetWindowText( ThisForm:EditNome:Handle, "" )
   ENDIF
   
RETURN Nil

[sygecom]

Pode usar também.

SetCuebanner_Gettooltip(.T.,.T.)

[asimoes]

Pode usar também.

SetCuebanner_Gettooltip(.T.,.T.)

Onde está essa função ? eu uso a hwgui 2.17

[sygecom]

No meu está em HEDIT.PRG, mas já mexi tanto na minha versão 2.17 que já não sei se isso era dela ou foi criada aqui nos meus fontes. Desculpa se causei alguma confusão.

Código: Selecionar todos

FUNCTION SETCUEBANNER_GETTOOLTIP(lPAR1,lPAR2)

if lPAR1=nil
   lPAR1:=.t.
endif

if lPAR2=nil
   lPAR2:=.t.
endif

lCueBanner       :=lPAR1
lCueBanner_Focus :=lPAR2

RETURN(.T.)

[j_junior]

Olá, poderia me passar um exemplo de como usar esta função (SetCuebanner_Gettooltip(.T.,.T.)) e quais Libs usar.
O exemplo do asimoes esta dando erro ao compilar (nao acha a funcao: SetCueBanner e Hwg_SetWindowText)).
Gostaria de usar nos programas. Agradeço.