Porque CUEBANNER no funciona?

[karinha]

Porque CUEBANNER no funciona?

Code: Select all  Expand view

#include 'fivewin.ch'

function main
 
   local oDlg, oGet[2], oFnt
   local cUser, cPass

   cUser := space(10)
   cPass := space(10)

   DEFINE FONT oFnt NAME "Tahoma" SIZE 0, -20

   DEFINE DIALOG oDlg FROM 0, 0 TO 400, 400 PIXEL FONT oFnt

   @ 30, 30 GET oGet[1] VAR cUser OF oDlg SIZE 100, 12 PIXEL NOBORDER UPDATE ;
            COLOR CLR_BLUE, CLR_WHITE FONT oFnt  CUEBANNER "User Id"

   // oGet[1]:SetCueBanner(.T.,"User Id")

   @ 60, 30 GET oGet[2] VAR cPass OF oDlg SIZE 100, 12 PIXEL NOBORDER UPDATE ;
            PASSWORD COLOR CLR_BLUE, CLR_WHITE FONT oFnt CUEBANNER "Password"

   // oGet[2]:SetCueBanner(.T.,"Password")

   ACTIVATE DIALOG oDlg CENTER

   oFnt:End()

return nil
 

Saludos.

[Antonio Linares]

João,

Por lo visto ha dejado de funcionar recientemente

Estamos revisándolo

[AIDA]

Ahora entiendo

yo destrozando una rutinita creí que hice algo mal
pero veo que no es cosa de mi codigo




Saluditos

[Antonio Linares]

Importante: Para usar los CUEBANNERs hay que usar un fichero manifest:

En el fichero RC añadir:

1 24 "WindowsXP.Manifest"

Si se está usando FWH 64 bits:

1 24 "WindowsXP.Manifest64"

[joseluisysturiz]

Estoy usando CUEBANNER sin ningun problema, tengo el Manifest por defecto, pero no sabia era necesario para su uso, lo uso de esta manera, saludos...gracias...

Code: Select all  Expand view

   REDEFINE GET aGet[13] VAR aVar[13] ID 4003 OF oFldx:aDialogs[1] UPDATE ; // EMAIL
      VALID ( valida_email( aVar[13] ) ) ;
      CUEBANNER "email@servidor.com"