On successful validation of the first GET I want to move to the second using SetFocus but it jumps to the Exit button instead.
(If I remove the second GET WHEN clause it will move to it but doesn't change to the gotfocus colours)
TIA
Peter
(If I remove the second GET WHEN clause it will move to it but doesn't change to the gotfocus colours)
TIA
Peter
#include "FWCE.ch"
#include "vkey.ch"
STATIC oWnd,oFont[3]
STATIC oGetPass
***********************
FUNCTION Main()
Â
 DEFINE FONT oFont[1] NAME "Ariel" SIZE 4,  12 BOLD
 DEFINE FONT oFont[2] NAME "Ariel" SIZE 12, 14 BOLD Â
 DEFINE FONT oFont[3] NAME "Ariel" SIZE 16, 20 BOLD
 DEFINE WINDOW oWnd
 Â
  @ 4.75,5    BUTTON  oExit   PROMPT "Exit"    OF owND   SIZE 60, 30   FONT oFont[1] ACTION  {|| oWnd:END()}
 Â
 ACTIVATE WINDOW oWnd ON INIT UserLogin()
******************
FUNCTION UserLogin()
LOCAL oExit
LOCAL oDlg
LOCAL nEmploy := 0
PRIVATE lValidUser  := lValidPass := .f.
PRIVATE nTries := 0
PRIVATE oGetEmploy
PRIVATE cNewpass := SPACE(10)
DEFINE DIALOG oDlg OF oWnd TITLE "Login" FROM 3, 3 TO 16, 27.5
@ .25,4 Â Â Â Say "Employee" COLOR CLR_RED,CLR_WHITE SIZE 60,8 Â // FONT oFont[2]
@ 1.25,.5 Â Â GET oGetEmploy VAR nEmploy PICT "999999999999999" OF oDlg SIZE 90,16 Â UPDATE Â ; //FONT oFont[2]
                 VALID  {|| lValidUser :=  ValidUser(nEmploy,oDlg)}
oGetEmploy:bGotFocus   := { || oGetEmploy:SetColor(CLR_RED,CLR_GRAY)}
oGetEmploy:bLostFocus  := { || oGetEmploy:SetColor(CLR_HBLUE,CLR_WHITE)}
 @ 3.1,4     Say "Password"  COLOR CLR_RED,CLR_WHITE SIZE 60,8 //FONT oFont[2]
 @ 4.5,.5    GET oGetPass VAR cNewPass PICT "XXXXXXXXXX" OF oDlg SIZE 90,16  WHEN  lValidUser ; // FONT oFont[2]
                VALID { || lvalidPass := ValidPass(cNewPass,oDlg) } UPDATE
oGetPass:bGotFocus   := { || oGetPass:SetColor(CLR_RED,CLR_GRAY)}
oGetPass:bLostFocus  := { || oGetPass:SetColor(CLR_HBLUE,CLR_WHITE)}
@ 4.75,5    BUTTON  oExit   PROMPT "Exit"    OF oDlg   SIZE 30, 10   ACTION  {|| oWnd:END()} //  FONT oFont[2]
ACTIVATE DIALOG oDlg  VALID lValidPass
******************************
FUNCTION ValidUser(nUser,oDlg)
IF GetAsyncKey( VK_LBUTTON ) .OR. GetAsyncKey( VK_LBUTTON )
  oWnd:End()
ENDIF
 DO case
   case nUser = 1
    RETURN .f.
   case nUser = 2
 Â
  Â
    //(oGetPass:SetFocus(),.t.)
   // oGetPass:Refresh()
   //oGetPass:bLostFocus  := { || oGetPass:SetColor(CLR_HBLUE,CLR_WHITE),SetFocus()}
   oGetpass:SetFocus()
Â
    RETURN .t.
 ENDCASE
Â
 RETURN .F.
*******************************
FUNCTION Â ValidPass(cNewPass,oDlg)
IF GetAsyncKey( VK_LBUTTON ) .OR. GetAsyncKey( VK_LBUTTON )
  oWnd:End()
ENDIF
  IF EMPTY(TRIM(cNewPass))
   RETURN .F.
  ENDIF
  cDecrypt := "secret"
   IF  cDecrypt =  TRIM(cNewpass) Â
     lValidpass := .t.   Â
     oDlg:End()
   ELSE Â
     nTries++
     IF nTries >= 3      Â
       oWnd:END()
     ENDIF
     cNewpass := SPACE(10)
     odlg:update()
     RETURN .F.
   ENDIF
    Â
     Â
 RETURN .t.
