Page 1 of 2
Problem with valid email refresh btnbmp- RESOLVED
Posted: Wed Apr 03, 2024 12:30 pm
by Silvio.Falconi
I can't get a bt bmp control to update from a tget control that has a valid to check whether the email entered is valid or not
initially the btnbmp check must be disabled
the btnbmp control has two bitmaps one when the logical value is true and another when the logical value is false
when I enter an email the btnbmp check doesn't update yet the email is true
the small test
Code: Select all | Expand
#include "FiveWin.ch"
#include "Constant.ch"
// validate email
Function test()
local oDlg
local aGet:=array(20)
local oBtnSel:=array(20)
local cCodEmail:= space(30)
local lPienoEmail:=.f.
local nRow:= 0,nCol:= 10
local nInterlinea := 26
local nSizeHGet:=21
DEFINE DIALOG oDlg SIZE 800,300 PIXEL TRUEPIXEL
@ 10, 420 GET aGet[11] VAR cCodEmail SIZE 180,nSizeHGet PIXEL OF oDlg;
ON CHANGE ( IIF(validaEmail(cCodEmail),lPienoEmail:=.f.,lPienoEmail:=.t.) ,;
oBtnSel[4]:REFRESH())
@ 10, 615 BTNBMP oBtnSel[4] ;
RESOURCE IIF( lPienoEmail, "SEL_PIE","SEL_VUO") , "", "SEL_VUO", "";
SIZE 120, 22 PIXEL FLAT NOROUND GDIP OF oDlg ;
PROMPT "Account Invio" LEFT;
ACTION ( Account_Invio_Email(@lPienoEmail),;
IIF( !empty(cCodEmail),;
(oBtnSel[4]:Enable(), oBtnSel[4]:SETFILE("SEL_PIE")),;
(oBtnSel[4]:Disable(),oBtnSel[4]:SETFILE("SEL_VUO")) ) ) UPDATE
IIF( validaEmail(cCodEmail),;
(oBtnSel[4]:Enable(), oBtnSel[4]:SETFILE("SEL_PIE")),;
(oBtnSel[4]:Disable(),oBtnSel[4]:SETFILE("SEL_VUO")) )
ACTIVATE DIALOG oDLG CENTERED
return nil
Function Account_Invio_Email(lPienoEmail);return nil
function validaEmail(cEmail)
LOCAL pCompiled := hb_regexComp("^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$")
LOCAL aMatch
LOCAL cRet := .t.
aMatch = hb_regex( pCompiled, alltrim(cEmail) )
if Empty( aMatch )
cRet := .f.
end
return cRet
Re: Problem with valid email refresh btnbmp
Posted: Wed Apr 03, 2024 2:16 pm
by Daniel Segura
change the line
@ 10, 420 GET aGet[11] VAR cCodEmail SIZE 180,nSizeHGet PIXEL OF oDlg;
ON CHANGE ( lPienoEmail:=validaEmail(aGet[11]:ctitle) , if( lPienoEmail , oBtnSel[4]:Enable() , oBtnSel[4]:Disable() ) )
if Valtype(aMatch)='A' //Empty( aMatch )
Re: Problem with valid email refresh btnbmp
Posted: Wed Apr 03, 2024 5:08 pm
by nageswaragunupudi
Try
Code: Select all | Expand
function SilviBtnBmp()
local oDlg, oGet, oBtn, oFont
local cEmail := Space( 40 )
SetGetColorFocus()
DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-24
DEFINE DIALOG oDlg SIZE 600,300 PIXEL TRUEPIXEL FONT oFont
@ 40,40 GET oGet VAR cEmail SIZE 400,40 PIXEL OF oDlg ;
ON CHANGE ( oDlg:AEvalWhen(), oDlg:Update() )
@ 120,40 BTNBMP oBtn PROMPT "Account Invio" LEFT ;
FILE "..\bitmaps\alphabmp\gmail.bmp", "", ;
"..\bitmaps\alphabmp\question.bmp", "" ;
SIZE 220,60 PIXEL OF oDlg FLAT ;
ACTION MsgInfo( cEmail ) ;
WHEN ValidaEmail( cEmail )
// oBtn:lDisColor := .f.
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
return nil
function validaEmail(cEmail)
static preCompiled
DEFAULT preCompiled := hb_regexComp("^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$")
return !Empty( hb_regex( preCompiled, alltrim( cEmail ) ) )
Re: Problem with valid email refresh btnbmp
Posted: Wed Apr 03, 2024 9:02 pm
by Silvio.Falconi
nageswaragunupudi wrote:Try
Code: Select all | Expand
function SilviBtnBmp()
local oDlg, oGet, oBtn, oFont
local cEmail := Space( 40 )
SetGetColorFocus()
DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-24
DEFINE DIALOG oDlg SIZE 600,300 PIXEL TRUEPIXEL FONT oFont
@ 40,40 GET oGet VAR cEmail SIZE 400,40 PIXEL OF oDlg ;
ON CHANGE ( oDlg:AEvalWhen(), oDlg:Update() )
@ 120,40 BTNBMP oBtn PROMPT "Account Invio" LEFT ;
FILE "..\bitmaps\alphabmp\gmail.bmp", "", ;
"..\bitmaps\alphabmp\question.bmp", "" ;
SIZE 220,60 PIXEL OF oDlg FLAT ;
ACTION MsgInfo( cEmail ) ;
WHEN ValidaEmail( cEmail )
// oBtn:lDisColor := .f.
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
return nil
function validaEmail(cEmail)
static preCompiled
DEFAULT preCompiled := hb_regexComp("^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$")
return !Empty( hb_regex( preCompiled, alltrim( cEmail ) ) )
here not run ok
I saw only "?" bitmap and btnbmp is allways disabled
Re: Problem with valid email refresh btnbmp
Posted: Wed Apr 03, 2024 9:40 pm
by Silvio.Falconi
perhaos validamail not run here return allways .f.
Re: Problem with valid email refresh btnbmp
Posted: Wed Apr 03, 2024 10:21 pm
by Silvio.Falconi
PERHAPS ??
function validaEmail(cEmail)
LOCAL pCompiled := hb_regexComp("^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$")
LOCAL cRet := .t.
IF HB_RegExMatch( pCompiled, alltrim(cEmail), .F. )
cRet := .f.
end
return cRet
Re: Problem with valid email refresh btnbmp
Posted: Wed Apr 03, 2024 10:25 pm
by nageswaragunupudi
here not run ok
My program is perfectly working here and this is the proof:
Re: Problem with valid email refresh btnbmp
Posted: Thu Apr 04, 2024 7:01 am
by Silvio.Falconi
nageswaragunupudi wrote:here not run ok
My program is perfectly working here and this is the proof:
Nages I don't tell lies watch the video please
Re: Problem with valid email refresh btnbmp
Posted: Fri Apr 05, 2024 12:13 pm
by Silvio.Falconi
nageswaragunupudi wrote:here not run ok
My program is perfectly working here and this is the proof:
So what should I do if it doesn't work for me? I tried it on several computers with Windows 10 Professional
Re: Problem with valid email refresh btnbmp
Posted: Fri Apr 05, 2024 2:27 pm
by karinha
Simples,
Code: Select all | Expand
// C:\FWH\SAMPLES\SILVMAIL.PRG - By: kapiabafwh@gmail.com
#include "FiveWin.ch"
STATIC lIsValid := .F., oBtn
FUNCTION Main()
LOCAL oDlg, oGet, oFont, oFnt, oSaida, oSil, cTitle, oSay, cSay, oBrush
LOCAL cEmail := SPACE( 50 ), cSilv := SPACE(50)
SetBalloon( .T. ) // Balloon shape required for tooltips
SetGetColorFocus()
SkinButtons()
cSay := "INGRESE EL CORREO ELECTRÓNICO:"
cTitle := "FIVEWIN: VALIDAR EMAIL BY SILVIO FALCONI"
DEFINE BRUSH oBrush FILE "..\bitmaps\sea.bmp" RESIZE
DEFINE FONT oFnt NAME "Segoe UI" SIZE 0, -12 BOLD
DEFINE FONT oFont NAME "Segoe UI" SIZE 0, -18 BOLD
DEFINE DIALOG oDlg SIZE 600, 300 PIXEL TRUEPIXEL BRUSH oBrush ;
TITLE cTitle FONT oFont TRANSPARENT
oDlg:lHelpIcon := .F.
IF Set( _SET_INSERT, ! Set( _SET_INSERT ) )
Set( _SET_INSERT, ! Set( _SET_INSERT ) )
ENDIF
// SOLO PARA TESTES:
@ 05, 40 GET oSil VAR cSilv SIZE 400, 40 PIXEL PICTURE "@K" OF oDlg ;
FONT oFont UPDATE COLOR CLR_BLACK, CLR_WHITE WHEN( .F. )
@ 50, 40 SAY oSay VAR cSay SIZE 400, 40 PIXEL PICTURE "@!" OF oDlg ;
FONT oFont UPDATE COLOR CLR_WHITE, CLR_BLACK TRANSPARENT
@ 80, 40 GET oGet VAR cEmail SIZE 400, 40 PIXEL PICTURE "@K" OF oDlg ;
FONT oFont UPDATE COLOR CLR_BLACK, CLR_WHITE ;
VALID( VALIDA_EMAIL_SILVIO( cEmail ) )
oGet:cToolTip := "Ingrese el Email Correcto"
oGet:bLostFocus := { || oGet:SetColor( CLR_BLACK, CLR_WHITE) }
oGet:bGotFocus := { || oGet:SetColor( CLR_BLACK, nRGB( 255, 255, 45 ) ), ;
oGet:SetSel( 0, 0 ) }
@ 200, 40 BTNBMP oBtn PROMPT "Enviar Email Via OutLook Express" LEFT ;
FILE "..\bitmaps\alphabmp\gmail.bmp", "", ;
"..\bitmaps\alphabmp\question.bmp", "" ;
SIZE 220, 60 PIXEL OF oDlg FLAT 2007 FONT oFont ;
COLOR CLR_WHITE, CLR_BLACK ;
ACTION( ENVIAR_EMAIL( cEmail ) ) ;
WHEN( lIsValid )
oBtn:cToolTip := "Enviar Email Final"
oBtn:bClrGrad := { |lInvert| If( lInvert, 0x80FFA54A, nARGB( 54, 0, 192, 0 ) ) }
WITH OBJECT oBtn
:nClrBorder := { |lInvert| If( lInvert, 0x80FFA54A, nARGB( 54, 0, 192, 0 ) ) } // CLR_BLACK // border color
:bColorMap := { || { { CLR_YELLOW, CLR_BLACK } } } // image color
END
@ 200, 350 BTNBMP oSaida PROMPT "Salida del Programa" LEFT FONT oFont ;
FILE "..\bitmaps\Exit.bmp" SIZE 220, 60 PIXEL OF oDlg FLAT 2007 ;
COLOR CLR_WHITE, CLR_BLACK ACTION( oDlg:End() )
oSaida:cToolTip := "Salida - Exit - Cancelar"
oSaida:bClrGrad := { |lInvert| If( lInvert, 0x60FFA54A, nARGB( 64, 0, 192, 0 ) ) }
WITH OBJECT oSaida
:nClrBorder := { |lInvert| If( lInvert, 0x80FFA54A, nARGB( 54, 0, 192, 0 ) ) } // CLR_BLACK // border color
:bColorMap := { || { { CLR_YELLOW, CLR_BLACK } } } // image color
END
oSaida:lCancel := .T.
@ 275, 05 SAY "<ESC> Salir" SIZE 100, 40 PIXEL PICTURE "@!" OF oDlg ;
FONT oFnt UPDATE COLOR CLR_HRED, CLR_WHITE TRANSPARENT
@ 275, 350 SAY "kapiabafwh@gmail.com" SIZE 200, 40 PIXEL PICTURE "@" ;
OF oDlg FONT oFont UPDATE COLOR CLR_HBLUE, CLR_WHITE TRANSPARENT
ACTIVATE DIALOG oDlg CENTERED ON INIT( oSil:Hide() )
IF Set( _SET_INSERT, ! Set( _SET_INSERT ) )
Set( _SET_INSERT, ! Set( _SET_INSERT ) )
ENDIF
RELEASE BRUSH oBrush
RELEASE FONT oFnt
RELEASE FONT oFont
RETURN NIL
FUNCTION VALIDA_EMAIL_SILVIO( cEmailSivio )
LOCAL cContaUsuario, cNomeUsuario
LOCAL cRegEx := "^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$"
IF GETASYNCKEY( VK_UP )
lIsValid := .F.
oBtn:Disable()
oBtn:Refresh()
RETURN( .F. )
ENDIF
IF EMPTY( cEmailSivio )
MsgInfo( OemToAnsi( "ATEN€ÇO USUµRIO: " )+CRLF+ ;
OemToAnsi( "DIGITE O NOME DA CONTA DE EMAIL. " )+CRLF+ ;
OemToAnsi( "Exemplo: kapiabafwh@gmail.com " ), ;
OemToAnsi( "EMAIL(Conta) NÇO INFORMADO. CUIDADO!" ) )
RETURN( .F. )
ENDIF
IF ( ALLTRIM(LOWER( cEmailSivio ) ) LIKE cRegEx )
lIsValid := .T.
ELSE
MsgInfo( OemToAnsi( "ATEN€ÇO USUµRIO: " )+CRLF+ ;
OemToAnsi( "DIGITE UM EMAIL VÇLIDO.. " )+CRLF+ ;
OemToAnsi( "ESTA CONTA DE EMAIL ESTµ ERRADA.. " )+CRLF+ ;
OemToAnsi( "Exemplo: kapiabafwh@gmail.com " )+CRLF+ ;
OemToAnsi( "VOCÒ DIGITOU: " + ALLTRIM( cEmailSivio ) ), ;
OemToAnsi( "EMAIL(Conta) CONTENDO ERROS... VEJA!" ) )
ENDIF
IF( lIsValid )
XFOCUS( oBtn ) // foco en el botton de envio.
ENDIF
RETURN( lIsValid )
FUNCTION ENVIAR_EMAIL( cEmailEnv )
? "Enviar Email Final"
RETURN NIL
STATIC FUNCTION xFocus( oObj )
xSetFocus( oObj )
xSetFocus( oObj )
RETURN( .T. )
STATIC FUNCTION xSetFocus( oObj )
LOCAL _oWnd := oObj:oWnd, _oTempo := ""
DEFINE Timer _oTempo Interval 10 OF _oWnd ;
ACTION ( oObj:SetFocus(), _oTempo:End() )
ACTIVATE Timer _oTempo
RETURN( .T. )
// FIN / END - kapiabafwh@gmail.com
Regards, saludos.
Re: Problem with valid email refresh btnbmp
Posted: Fri Apr 05, 2024 3:49 pm
by Silvio.Falconi
Karinha
for one btnbmp I must write all this ?
you're a joke
then
Progetto: karinha, Ambiente: bcc7Harbor:
[1]:Harbour.Exe karinha.prg /m /n0 /gc1 /es2 /kh /a /iC:\Work\fwh\include /iC:\work\HARBOUR\Include /jC:\Work\errori\BTNBMP~1\I18n\Main.hil /iinclude;c:\work\fwh\include;C:\work\HARBOUR\include /oObj\karinha.c
Harbour 3.2.0dev (r2403071241)
Copyright (c) 1999-2021,
https://harbour.github.io/
Compiling 'karinha.prg'...
karinha.prg(130) Error E0030 Syntax error "syntax error at 'LIKE'"
karinha.prg(134) Error E0014 ELSE does not match IF
karinha.prg(143) Error E0010 ENDIF does not match IF
3 errors
No code generated.
Re: Problem with valid email refresh btnbmp
Posted: Fri Apr 05, 2024 4:01 pm
by karinha
Yo uso xHarbour. No conozco el comando equivalente en Harbour.
Write whatever you want. The important thing is that my example works and yours doesn't. Compile with xHarbour. Be professional. If you understand my logic, you will be able to do it your way.
Escribe lo que quieras. Lo importante es que mi ejemplo funciona y el tuyo no. Compile con xHarbour. Sea profesional. Si entiendes mi lógica, podrás hacerlo a tu manera.
Regards, saludos.
Re: Problem with valid email refresh btnbmp
Posted: Fri Apr 05, 2024 4:26 pm
by karinha
En HARBOUR, intente asi:
Code: Select all | Expand
// IF ( HB_REGEXLIKE( ALLTRIM( LOWER( cEmailSivio ) ), cRegEx ) )
// XHARBOUR:
IF ( ALLTRIM(LOWER( cEmailSivio ) ) LIKE cRegEx )
// HARBOUR:
IF ( HB_REGEXLIKE( ( cRegEx ), ( ALLTRIM(LOWER( cEmailSivio ) ) ) ) )
Regards, saludos.
Re: Problem with valid email refresh btnbmp
Posted: Fri Apr 05, 2024 4:42 pm
by karinha
Simples demás.... hahahaha y no uso HABROUR ni de pago. hahahahahaha.
Silvio: #include "HbCompat.ch" // para Harbour Silvio.
Code: Select all | Expand
// C:\FWH\SAMPLES\SILVMAIL.PRG - By: kapiabafwh@gmail.com
#include "FiveWin.ch"
#include "HbCompat.ch" // para Harbour Silvio.
STATIC lIsValid := .F., oBtn
FUNCTION Main()
LOCAL oDlg, oGet, oFont, oFnt, oSaida, oSil, cTitle, oSay, cSay, oBrush
LOCAL cEmail := SPACE( 50 ), cSilv := SPACE(50)
SetBalloon( .T. ) // Balloon shape required for tooltips
SetGetColorFocus()
SkinButtons()
cSay := "INGRESE EL CORREO ELECTRÓNICO:"
cTitle := "FIVEWIN: VALIDAR EMAIL BY SILVIO FALCONI"
DEFINE BRUSH oBrush FILE "..\bitmaps\sea.bmp" RESIZE
DEFINE FONT oFnt NAME "Segoe UI" SIZE 0, -12 BOLD
DEFINE FONT oFont NAME "Segoe UI" SIZE 0, -18 BOLD
DEFINE DIALOG oDlg SIZE 600, 300 PIXEL TRUEPIXEL BRUSH oBrush ;
TITLE cTitle FONT oFont TRANSPARENT
oDlg:lHelpIcon := .F.
IF Set( _SET_INSERT, ! Set( _SET_INSERT ) )
Set( _SET_INSERT, ! Set( _SET_INSERT ) )
ENDIF
// SOLO PARA TESTES:
@ 05, 40 GET oSil VAR cSilv SIZE 400, 40 PIXEL PICTURE "@K" OF oDlg ;
FONT oFont UPDATE COLOR CLR_BLACK, CLR_WHITE WHEN( .F. )
@ 50, 40 SAY oSay VAR cSay SIZE 400, 40 PIXEL PICTURE "@!" OF oDlg ;
FONT oFont UPDATE COLOR CLR_WHITE, CLR_BLACK TRANSPARENT
@ 80, 40 GET oGet VAR cEmail SIZE 400, 40 PIXEL PICTURE "@K" OF oDlg ;
FONT oFont UPDATE COLOR CLR_BLACK, CLR_WHITE ;
VALID( VALIDA_EMAIL_SILVIO( cEmail ) )
oGet:cToolTip := "Ingrese el Email Correcto"
oGet:bLostFocus := { || oGet:SetColor( CLR_BLACK, CLR_WHITE) }
oGet:bGotFocus := { || oGet:SetColor( CLR_BLACK, nRGB( 255, 255, 45 ) ), ;
oGet:SetSel( 0, 0 ) }
@ 200, 40 BTNBMP oBtn PROMPT "Enviar Email Via OutLook Express" LEFT ;
FILE "..\bitmaps\alphabmp\gmail.bmp", "", ;
"..\bitmaps\alphabmp\question.bmp", "" ;
SIZE 220, 60 PIXEL OF oDlg FLAT 2007 GDIPLUS FONT oFont ;
COLOR CLR_WHITE, CLR_BLACK ;
ACTION( ENVIAR_EMAIL( cEmail ) ) ;
WHEN( lIsValid )
oBtn:cToolTip := "Enviar Email Final"
oBtn:bClrGrad := { |lInvert| If( lInvert, 0x80FFA54A, nARGB( 54, 0, 192, 0 ) ) }
WITH OBJECT oBtn
:nClrBorder := { |lInvert| If( lInvert, 0x80FFA54A, nARGB( 54, 0, 192, 0 ) ) } // CLR_BLACK // border color
:bColorMap := { || { { CLR_YELLOW, CLR_BLACK } } } // image color
END
@ 200, 350 BTNBMP oSaida PROMPT "Salida del Programa" LEFT FONT oFont ;
FILE "..\bitmaps\Exit.bmp" SIZE 220, 60 PIXEL OF oDlg FLAT 2007 GDIPLUS;
COLOR CLR_WHITE, CLR_BLACK ACTION( oDlg:End() )
oSaida:cToolTip := "Salida - Exit - Cancelar"
oSaida:bClrGrad := { |lInvert| If( lInvert, 0x60FFA54A, nARGB( 64, 0, 192, 0 ) ) }
WITH OBJECT oSaida
:nClrBorder := { |lInvert| If( lInvert, 0x80FFA54A, nARGB( 54, 0, 192, 0 ) ) } // CLR_BLACK // border color
:bColorMap := { || { { CLR_YELLOW, CLR_BLACK } } } // image color
END
oSaida:lCancel := .T.
@ 275, 05 SAY "<ESC> Salir" SIZE 100, 40 PIXEL PICTURE "@!" OF oDlg ;
FONT oFnt UPDATE COLOR CLR_HRED, CLR_WHITE TRANSPARENT
@ 275, 350 SAY "kapiabafwh@gmail.com" SIZE 200, 40 PIXEL PICTURE "@" ;
OF oDlg FONT oFont UPDATE COLOR CLR_HBLUE, CLR_WHITE TRANSPARENT
ACTIVATE DIALOG oDlg CENTERED ON INIT( oSil:Hide() )
IF Set( _SET_INSERT, ! Set( _SET_INSERT ) )
Set( _SET_INSERT, ! Set( _SET_INSERT ) )
ENDIF
RELEASE BRUSH oBrush
RELEASE FONT oFnt
RELEASE FONT oFont
RETURN NIL
FUNCTION VALIDA_EMAIL_SILVIO( cEmailSivio )
LOCAL cContaUsuario, cNomeUsuario
// LOCAL cRegEx := "^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$"
// LOCAL cRegEx := "^[a-zA-Z0-9._%-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,4}$"
// LOCAL cRegEx := hb_regexComp("^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$")
LOCAL cRegEx := "^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$"
IF GETASYNCKEY( VK_UP )
lIsValid := .F.
oBtn:Disable()
oBtn:Refresh()
RETURN( .F. )
ENDIF
IF EMPTY( cEmailSivio )
MsgInfo( OemToAnsi( "ATEN€ÇO USUµRIO: " )+CRLF+ ;
OemToAnsi( "DIGITE O NOME DA CONTA DE EMAIL. " )+CRLF+ ;
OemToAnsi( "Exemplo: kapiabafwh@gmail.com " ), ;
OemToAnsi( "EMAIL(Conta) NÇO INFORMADO. CUIDADO!" ) )
RETURN( .F. )
ENDIF
// IF ( HB_REGEXLIKE( ALLTRIM( LOWER( cEmailSivio ) ), cRegEx ) )
// funciona con HBCOMPAT.CH
IF ( ALLTRIM(LOWER( cEmailSivio ) ) LIKE cRegEx )
lIsValid := .T.
ELSE
MsgInfo( OemToAnsi( "ATEN€ÇO USUµRIO: " )+CRLF+ ;
OemToAnsi( "DIGITE UM EMAIL VÇLIDO.. " )+CRLF+ ;
OemToAnsi( "ESTA CONTA DE EMAIL ESTµ ERRADA.. " )+CRLF+ ;
OemToAnsi( "Exemplo: kapiabafwh@gmail.com " )+CRLF+ ;
OemToAnsi( "VOCÒ DIGITOU: " + ALLTRIM( cEmailSivio ) ), ;
OemToAnsi( "EMAIL(Conta) CONTENDO ERROS... VEJA!" ) )
ENDIF
IF( lIsValid )
XFOCUS( oBtn ) // foco en el botton de envio.
ENDIF
RETURN( lIsValid )
FUNCTION ENVIAR_EMAIL( cEmailEnv )
? "Enviar Email Final harbour/xHarbour"
RETURN NIL
STATIC FUNCTION xFocus( oObj )
xSetFocus( oObj )
xSetFocus( oObj )
RETURN( .T. )
STATIC FUNCTION xSetFocus( oObj )
LOCAL _oWnd := oObj:oWnd, _oTempo := ""
DEFINE Timer _oTempo Interval 10 OF _oWnd ;
ACTION ( oObj:SetFocus(), _oTempo:End() )
ACTIVATE Timer _oTempo
RETURN( .T. )
// FIN / END - kapiabafwh@gmail.com
Regards, saludos.
Re: Problem with valid email refresh btnbmp
Posted: Mon Apr 08, 2024 7:13 am
by Silvio.Falconi
Karinha,
For me it's no good
I have a dialog with many get , how row of source I must make for insert your source ?
look the sample's Nages , why here not run ?