erro estraho com dialog + combobox + menuitem

Posts: 88

Joined: Wed Apr 28, 2010 06:34 PM

erro estraho com dialog + combobox + menuitem
Posted: Fri Oct 31, 2014 06:41 PM

Buenas tardes!

de esta manera o ON CHANGE da combobox funciona

#include "FiveWin.Ch"

FUNCTION testecombo()
PRIVATE cvTipEmp1 := "C - Comercio"
PRIVATE alMatriz1 := {"R - Revendedor    ",;
        "I - Industria     ",;
        "C - Comercio      ",;
        "S - Servico       ",;
        "M - Micro Empresa ",;
        "N - Outros        ",;
        "  -               " }

    DEFINE DIALOG oDlg2011 FROM 0,0 TO 300,450 PIXEL FONT oClassVar:oFntB COLOR oClassVar:nCorDlgT,oClassVar:nCorDlgJ
        oDlg2011:lHelpIcon := .F.
                
        @ 015,010 COMBOBOX oGet201 VAR cvTipEmp1 ITEMS alMatriz1 SIZE 60,50 PIXEL ON CHANGE NavegadorPadrao( "www.uol.com.br" ) UPDATE OF oDlg2011

    ACTIVATE DIALOG oDlg2011 CENTERED

RETURN NIL

FUNCTION NavegadorPadrao( cUrl )
LOCAL nHandle, cValue

 IF RegOpenKey( HKEY_CLASSES_ROOT, "Https\Shell\Open\command", @nHandle ) == 0

  oReg := TReg32():New( HKEY_CLASSES_ROOT, "Https\Shell\Open\command" )
  cNavPadrao := oReg:Get("")

 ENDIF

 cNavPadrao := STRTRAN( cNavPadrao, "%1", "" )
 cNavPadrao := STRTRAN( cNavPadrao, '"', "" )

 Winexec( ALLTRIM(cNavPadrao) + cUrl )

RETURN .T.

agora se uso o setmenu para de funcionar, o que pode ser?

Code (fw): Select all Collapse

#include "FiveWin.Ch"

FUNCTION testecombo()
PRIVATE cvTipEmp1 := "C - Comercio"
PRIVATE alMatriz1 := {"R - Revendedor    ",;
        "I - Industria     ",;
        "C - Comercio      ",;
        "S - Servico       ",;
        "M - Micro Empresa ",;
        "N - Outros        ",;
        "  -               " }

    DEFINE DIALOG oDlg2011 FROM 0,0 TO 300,450 PIXEL FONT oClassVar:oFntB COLOR oClassVar:nCorDlgT,oClassVar:nCorDlgJ
        oDlg2011:lHelpIcon := .F.
                
        @ 015,010 COMBOBOX oGet201 VAR cvTipEmp1 ITEMS alMatriz1 SIZE 60,50 PIXEL ON CHANGE NavegadorPadrao( "www.uol.com.br" ) UPDATE OF oDlg2011

    ACTIVATE DIALOG oDlg2011 CENTERED  ON INIT MenuCombo()

RETURN NIL

FUNCTION NavegadorPadrao( cUrl )
LOCAL nHandle, cValue

 IF RegOpenKey( HKEY_CLASSES_ROOT, "Https\Shell\Open\command", @nHandle ) == 0

  oReg := TReg32():New( HKEY_CLASSES_ROOT, "Https\Shell\Open\command" )
  cNavPadrao := oReg:Get("")

 ENDIF

 cNavPadrao := STRTRAN( cNavPadrao, "%1", "" )
 cNavPadrao := STRTRAN( cNavPadrao, '"', "" )

 Winexec( ALLTRIM(cNavPadrao) + cUrl )

RETURN .T.

FUNCTION MenuCombo( modo )
LOCAL oMenuCli


        MENU oMenuCli 2007
            MENUITEM "&Arquivo"
           MENU
           MENUITEM "&Configuração" RESNAME "Parp"
           SEPARATOR
            MENUITEM "&Imprimir Ficha" RESNAME "ImpressoraP"
           SEPARATOR
           MENUITEM "Sai&r" RESNAME "SaiP" ACTION oDlg2011:End()
           ENDMENU
        MENUITEM "&Opção"
           MENU
            MENUITEM "&Contratos Mensais" RESNAME "Clfp"
            MENUITEM "Mar&keting" RESNAME "Empp"
            SEPARATOR
           MENUITEM "Situação &Financeira" RESNAME "FaturaP"
            SEPARATOR
            MENUITEM "&Movimento Financeira" RESNAME "Carp"
            IF oClassVar:lUsaOse
                MENUITEM "Movimento de &Serviço" RESNAME "Ose1p"
            ENDIF
            MENUITEM "Movimento de &Produto" RESNAME "Pedp"
           ENDMENU
        ENDMENU

        oDlg2011:SetMenu( oMenuCli )

RETURN .T.

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: erro estraho com dialog + combobox + menuitem
Posted: Sat Nov 01, 2014 11:38 AM

Alessandro,

In Class TDialog (dialog.prg) this change is required in lines 370-371:

Code (fw): Select all Collapse

      case ::oMenu != nil .and. nId != 2 .and. nNotifyCode != BN_CLICKED .and. ;
           nNotifyCode != CBN_SELCHANGE   // new !!!
           if nNotifyCode == 1
              ::oMenu:Command( nID )
           endif

many thanks for your feedback

regards, saludos

Antonio Linares
www.fivetechsoft.com

aferra

Posts: 88

Joined: Wed Apr 28, 2010 06:34 PM

Re: erro estraho com dialog + combobox + menuitem
Posted: Mon Nov 03, 2014 02:28 PM

PERFECTO, está ahora trabajando

muchas gracias, saludos

FiveTech Support Forums

Continue the discussion