balao de mensagem

[syspel]

ola meus querido

algeum sabe como mudar a cor do balao de mensagem ele assume yellom

que mudar para blue

obrigado

carlos

fwh1805  dbf etc tal

 

[ADutheil]

Vc pode passar um array para TeuObj:cToolTip
{ texto, título, ícone, cor do texto, cor de fundo, largura max em pixel, delay em milisec, tipo de delay, (0.TTDT_AUTOMATIC,1.TTDT_RESHOW,2.TTDT_AUTOPOP,3.TTDT_INITIAL) }

[syspel]

ok amigo nao tem um exemplo

obrigado

 

[kapiaba]

	   // cToolTip := { cToolTipText, [cHeader], [Icon], [nClrFore], [nClrBack], [nWidth], [nDelayInSeconds] }
	   oSaida:cTooltip :={ "Click no Botão Para Sair",                           ;
                       "Sair do Programa Agora? ", 1, CLR_WHITE, CLR_HBLUE }

[syspel]

obrigado garoto

 

carlos 

 

[oribeiro]

Muito legal essa opção, eu não conhecia. Obrigado.

Testei essa função e não funcionou os parâmetros:

   nClrFore
   nClrBack
   nDelayInSeconds

Você conseguiu utilizá-los?

 

[kapiaba]

O que é isso Ori?? kkkkkkkkkkkkkkkkk

   nClrFore = CLR_WHITE
   nClrBack = CLR_HBLUE

[oribeiro]

Criei a função abaixo para facilitar a migração para o uso de Array em vez de texto:

Com a função eu uso: oBmp:cToolTip = OAToolTip( "Mensagem para o Hint." )

Mas se eu mudo as cores do nClrFore e nClrBack as cores não modificam nos balões.

 

*********************************************************************************************
Function OAToolTip(cToolTipText, cHeader, nIcon, nClrFore, nClrBack, nWidth, nDelayInSeconds)
*********************************************************************************************
// cToolTip := { cToolTipText, [cHeader], [Icon], [nClrFore], [nClrBack], [nWidth], [nDelayInSeconds] }
   Default cToolTipText    := ""
   Default cHeader         := "(OASyS) Informação:"
   Default nIcon           := 0
   Default nClrFore        := CLR_WHITE // Não funciona
   Default nClrBack        := CLR_HBLUE // Não funciona
   Default nWidth          := nil
   Default nDelayInSeconds := nil       // Não funciona
   if Empty( nIcon )
      if     "FECHA"$Upper(cToolTipText).OR."CANCELA"$Upper(cToolTipText)
         nIcon = 6
      elseif "APAGA"$Upper(cToolTipText).OR."EXCLUI"$Upper(cToolTipText)
         nIcon = 5
      else
         nIcon = 4
      endif
   endif
Return {cToolTipText, cHeader, nIcon, nClrFore, nClrBack, nWidth, nDelayInSeconds}

 

[kapiaba]

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=35779&p=213372&hilit=cToolTipText#p213372

[oribeiro]

Entendi que as cores não funcionam no Windows 10.

Ainda assim essa opção de cToolTip com Array é ótima.

Obrigado por compartilhar.