FiveTech Support Forums

#include "FiveWin.ch"

Function Main()
Local cText1:=space(20)
Local cText2:=space(20)
Local cText3:=space(20)
Local cText4:=space(20)

  DEFINE  DIALOG oDlg1 RESOURCE "TEST"
                 oDlg1:lHelpIcon:=.F.


 REDEFINE FOLDER oFld1 ID 100 OF oDlg1;
                 PROMPTS "Uno","Dos";
                 DIALOGS "ONE","TWO"

   Redefine Get oGet1 Var cText1 ID 101 Of oFld1:aDialogs[ 1 ] Valid Validar()

   Redefine Get oGet2 Var cText2 ID 102 Of oFld1:aDialogs[ 1 ]

   Redefine Get oGet3 Var cText3 ID 201 Of oFld1:aDialogs[ 2 ]

   Redefine Get oGet4 Var cText4 ID 202 Of oFld1:aDialogs[ 2 ] Valid Validar()


   REDEFINE Button oBtn1 ID 10 OF oDlg1 Prompt "Exit"   ACTION oDlg1:End()

  ACTIVATE DIALOG oDlg1 CENTERED

  MsgAlert(cText1,"cText1")
  MsgAlert(cText4,"cText4")

Return Nil

//--------------------------------------------------------
Function Validar()
Return MsgYesNo("Validar Get?","Verifique" )

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

TEST DIALOG DISCARDABLE 17, 36, 185, 147
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Test"
FONT 8, "MS Sans Serif"
{
  CONTROL "", 100, "SysTabControl32", WS_TABSTOP, 4, 6, 175, 117
  CONTROL "Exit", 10, "Button", WS_TABSTOP, 62, 128, 50, 14
}

ONE DIALOG DISCARDABLE 6, 15, 175, 117
STYLE WS_CHILD|WS_VISIBLE
FONT 8, "MS Sans Serif"
{
  CONTROL "", 101, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 58, 20, 98, 12
  CONTROL "", 102, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 58, 48, 96, 12
  CONTROL "Linea 1 :", 4003, "Static", SS_RIGHT|WS_GROUP, 10, 24, 40, 8
  CONTROL "Linea 2 :", 4004, "Static", SS_RIGHT|WS_GROUP, 10, 50, 40, 8
}

TWO DIALOG DISCARDABLE 6, 15, 175, 117
STYLE WS_CHILD|WS_VISIBLE
FONT 8, "MS Sans Serif"
{
  CONTROL "", 201, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 64, 64, 92, 12
  CONTROL "", 202, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 64, 92, 96, 12
  CONTROL "Linea 3 :", 4004, "Static", SS_RIGHT|WS_GROUP, 16, 66, 40, 8
  CONTROL "Linea 4 :", 4003, "Static", SS_RIGHT|WS_GROUP, 16, 94, 40, 8
}

        if nOption > 0 .and. nOption != ::nOption .and. ::nOption > 0 .and. ;
              ::nOption <= Len( ::aDialogs ) .and. ::aDialogs[ ::nOption ] != nil
           oCtrl = ::aDialogs[ ::nOption ]:oCtlFocus
           if oCtrl != nil .and. GetFocus() == oCtrl:hWnd .and. ;
                 __objHasMsg( oCtrl, "lValid" ) .and. ! oCtrl:lValid()
              ::SetCurSel( ::nOption )   // revierte la pestaña
              oCtrl:SetFocus()           // devuelve el foco al GET
              return nil
           endif
        endif

METHOD SetOption( nOption ) CLASS TFolderEx

   LOCAL nOldOption := ::nOption
   LOCAL nOpt, nOldOpt, i, lVisible

   nOption = Max( 1, Min( nOption, Len( ::aPrompts ) ) )

   IF ! ::aEnable[ noption ]
   RETURN NIL
   ENDIF

   if nOption != ::nOption  // aqui el cambio Master?

   Nuevo codigo aqui?


   // Mantener esto master?
   IF ::aSrcPrompt != NIL
   nOpt = nOption
   FOR EACH lVisible IN ::aVisible
   IF lVisible
   nOpt--
   ENDIF
   IF nOpt == 0
   exit
   ENDIF
   END
   ::nOption = 1
   ENDIF
   ::nOption = nOption
   IF ::aSrcPrompt != NIL
   nOldOpt = nOldOption
   i = 0
   FOR EACH lVisible IN ::aVisible
   IF lVisible
   nOldOpt--
   ENDIF
   i++
   IF nOldOpt == 0
   exit
   ENDIF
   END
   nOldOption = i
   ENDIF

   IF ::lAnimation
   ::AnimateOpt( , nOldOption )
   ELSE
   ::aDialogs[ nOldOption ]:Hide()
   ::aDialogs[ ::nOption ]:Show()
   ::aDialogs[ ::nOption ]:SetFocus()
   ENDIF
   if ! Empty( ::bAction )
   Eval( ::bAction, nOption, nOldOption, Self )
   endif

   ::ChangeOrder()
   ::Refresh()

   endif


return nil

//-----------------------------METHOD SetOption-----------------------------//

METHOD SetOption( nOption ) CLASS TFolderEx

   LOCAL nOldOption := ::nOption
   LOCAL nOpt, nOldOpt, i, lVisible

   nOption = Max( 1, Min( nOption, Len( ::aPrompts ) ) )

   IF .NOT. ::aEnable[ noption ]
      RETURN NIL
   ENDIF

   // https://forums.fivetechsupport.com/viewtopic.php?p=285952#p285952
   IF nOption != ::nOption // MODIFICADO By Antonio Linares en: 04/08/2026

  // Validate the control with focus on the current page before leaving it.
  // Without this, clicking another tab hides the current page and the
  // pending VALID of the active control (e.g. a TGet) is never evaluated,
  // while its new value is kept anyway.
  IF nOption != ::nOption .AND. ::nOption > 0 .AND. ;
     ::nOption <= Len( ::aDialogs ) .AND. ::aDialogs[ ::nOption ] != nil

     oCtrl = ::aDialogs[ ::nOption ]:oCtlFocus

     IF oCtrl != nil .AND. GetFocus() == oCtrl:hWnd .AND. ;
        __objHasMsg( oCtrl, "lValid" ) .AND. ! oCtrl:lValid()

        // Validation failed: keep the current page and the focus
        oCtrl:SetFocus()

        RETURN NIL

     ENDIF

  ENDIF

  IF ::aSrcPrompt != NIL

     nOpt = nOption

     FOR EACH lVisible IN ::aVisible

        IF lVisible

           nOpt--

        ENDIF

        IF nOpt == 0
           EXIT
        ENDIF

     END

     ::nOption = 1

  ENDIF

  ::nOption = nOption

  IF ::aSrcPrompt != NIL

     nOldOpt = nOldOption

     i = 0

     FOR EACH lVisible IN ::aVisible

        IF lVisible

           nOldOpt--

        ENDIF

        i++

        IF nOldOpt == 0
           EXIT
        ENDIF

     END

     nOldOption = i

  ENDIF

  IF ::lAnimation

     ::AnimateOpt( , nOldOption )

  ELSE

     ::aDialogs[ nOldOption ]:Hide()
     ::aDialogs[ ::nOption ]:Show()
     ::aDialogs[ ::nOption ]:SetFocus()

  ENDIF

  IF .NOT. EMPTY( ::bAction )

     Eval( ::bAction, nOption, nOldOption, Self )

  ENDIF

  ::ChangeOrder()
  ::Refresh()

   ENDIF

RETURN NIL