FiveTech Support Forums

#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

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