topic-39827

Posts: 1467

Joined: Mon Oct 10, 2005 11:26 AM

Problem in barmenu in FWH 20.12
Posted: Mon Jan 04, 2021 03:15 PM

Hello,

Since I use FWH 20.12, my menuitems in my pulldownmenu's aren't working anymore. There is no reaction at all.
But when I go back to FWH 20.08, everything is working normally.

What has been changed?

Thank you.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problem in barmenu in FWH 20.12
Posted: Mon Jan 04, 2021 03:30 PM

Please put little sample your command used for define barmenus

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

driessen

Posts: 1467

Joined: Mon Oct 10, 2005 11:26 AM

Re: Problem in barmenu in FWH 20.12
Posted: Mon Jan 04, 2021 03:49 PM

Thank you for your reply.

It is not a small example. It's quite a huge one. But it runs just fine for many years now. I hope you can make something out of it.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Problem in barmenu in FWH 20.12
Posted: Mon Jan 04, 2021 04:00 PM

My God! I've never seen anything like this logic. Amazing. I understood nothing.

Regards.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Problem in barmenu in FWH 20.12
Posted: Mon Jan 04, 2021 05:38 PM

Dear Michel,

We did some changes in the menus in FWH 20.12 so obviously there is something to fix on our side

We apologize for these inconveniencies and we are going to publish a revised version asap

many thanks

regards, saludos

Antonio Linares
www.fivetechsoft.com

driessen

Posts: 1467

Joined: Mon Oct 10, 2005 11:26 AM

Re: Problem in barmenu in FWH 20.12
Posted: Mon Jan 04, 2021 05:45 PM

Antonio,

A very happy new year to you. Keep sound and safe.

Thanks a lot. I'm looking forward to the revision.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problem in barmenu in FWH 20.12
Posted: Mon Jan 04, 2021 06:31 PM

Does that happen with all styles? (none, 2007, 2010, 2013, 2015)
I could put an image or better a gif of your problem?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

driessen

Posts: 1467

Joined: Mon Oct 10, 2005 11:26 AM

Re: Problem in barmenu in FWH 20.12
Posted: Mon Jan 04, 2021 06:56 PM

No matter what I do, nothing happens if I make a choice in one of my menues.

I got the impression that Antonio knows what is wrong.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problem in barmenu in FWH 20.12
Posted: Mon Jan 04, 2021 09:27 PM

Does this mean that you cannot perform any action from the menu items?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

driessen

Posts: 1467

Joined: Mon Oct 10, 2005 11:26 AM

Re: Problem in barmenu in FWH 20.12
Posted: Mon Jan 04, 2021 10:00 PM

Indeed, nothing happens. No reaction at all.
I added MsgInfo() before and behind the action that has to be performed.
Even not the Msginfo() do happen.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

RAMESHBABU

Posts: 654

Joined: Fri Oct 21, 2005 05:54 AM

Re: Problem in barmenu in FWH 20.12
Posted: Tue Jan 05, 2021 02:39 AM

Since I use FWH 20.12, my menuitems in my pulldownmenu's aren't working anymore. There is no reaction at all.
But when I go back to FWH 20.08, everything is working normally.

I am also using 20.12, My application's pulldown menus or buttonbars are working normally like the way they were
working in previous verions.

This is Just for your information.

-Ramesh Babu P

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problem in barmenu in FWH 20.12
Posted: Tue Jan 05, 2021 02:50 AM

Ramesh Babu, Thanks for the info.

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: Problem in barmenu in FWH 20.12
Posted: Tue Jan 05, 2021 06:45 AM

driessen wrote:Indeed, nothing happens. No reaction at all.
I added MsgInfo() before and behind the action that has to be performed.
Even not the Msginfo() do happen.

Hi Mr. Navarro,

I confirm the error. it is same for me in fwh 20.12.

Code (fw): Select all Collapse

    MENU oFaizMenu POPUP 2007
        MENUITEM "Parametreler" ACTION Parametre_FAIZ()
        SEPARATOR

---->>> this part
    FOR hh:=1 TO 19
        hhh:="oApp:xADI_"+ALLTRIM(STR(hh))
        hhh1 := ALLTRIM(&hhh)
        IF !EMPTY(Hhh1)
            MENUITEM hhh1 BLOCK GenBlock_Faiz(hh)
        ENDIF
    Next hh
----> this part
    SEPARATOR
        MENUITEM "YENİ FAİZLER" ACTION Faizler()  //Parametre_FAIZ()
    SEPARATOR
        MENUITEM "Faiz Güncelleme (EVDS)" ACTION Faiz_Update()
    ENDMENU

Code (fw): Select all Collapse

FUNCTION GenBlock_Faiz(nhh)
LOCAL cProc := "Faiz"+ALLTRIM(STR(nhh))
RETURN {|| &(cProc)() }

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problem in barmenu in FWH 20.12
Posted: Tue Jan 05, 2021 03:01 PM

Replace METHOD Command in Class TMenu with this and try

( My apologies, I forgot to update the MENU.PRG file in the repository )

Code (fw): Select all Collapse

//----------------------------------------------------------------------------//

METHOD Command( nCommand ) CLASS TMenu

   local oMenuItem := ::GetMenuItem( nCommand )

   if oMenuItem != nil
      if oMenuItem:lRadio
         oMenuItem:SetRadioMenuItem( nCommand )
      else
         if ::lUserRadio
            if lAnd( GetMenuState( ::hMenu, nCommand, MF_BYCOMMAND ), MF_CHECKED )
               oMenuItem:SetCheck( .F. )
            else
               oMenuItem:SetCheck( .T. )
            endif
         endif
      endif
      if ValType( oMenuItem:bAction ) == "B"
         if oMenuItem:bWhen != nil .and. ! Eval( oMenuItem:bWhen, oMenuItem )
            return nil
         endif
         ::oLastItem = oMenuItem

         if ::lPopup
            ::oMenuItemPopup = oMenuItem
         else
            if oMenuItem:bAction != nil
               if ValType( oMenuItem:bBlock ) == "B"
                  Eval( oMenuItem:bBlock, oMenuItem )
               endif
               Eval( oMenuItem:bAction, oMenuItem )
            else
               if ValType( oMenuItem:bBlock ) == "B"
                  Eval( oMenuItem:bBlock, oMenuItem )
               endif
               Eval( oMenuItem:OnClick, ::oWnd, oMenuItem )
            endif
         endif
      else
         if ValType( oMenuItem:bBlock ) == "B"
            if oMenuItem:bWhen != nil .and. ! Eval( oMenuItem:bWhen, oMenuItem )
               return nil
            endif
            ::oLastItem = oMenuItem
            if ::lPopup
               ::oMenuItemPopup = oMenuItem
            endif
            Eval( oMenuItem:bBlock, oMenuItem )
         endif
      endif
   endif

return nil

//----------------------------------------------------------------------------//

Sample

Code (fw): Select all Collapse

#include "Fivewin.ch"

Function Main()

   local oWnd
   local oMnu

   DEFINE WINDOW oWnd ;
     TITLE "Test Menu" + " - Ver.: " + FWVERSION + if( IsExe64(), ;
               "  ( 64", "  ( 32" ) + " bits ) - " + FWString( "User" ) + ;
               ": " + WNetGetUser() + " - " + hb_Compiler() ;
     MENU ( oMnu := MenuTest() )
     
   ACTIVATE WINDOW oWnd MAXIMIZED

Return nil


Function MenuTest()

  local oMnu

  MENU oMnu 2007

  MENUITEM "One"
  MENU 
    MENUITEM "First" BLOCK { || MsgInfo( "Hello" ) }
    SEPARATOR
    MENUITEM "Two"   ACTION MsgInfo( "Bye" )
  ENDMENU

  ENDMENU

Return oMnu

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: Problem in barmenu in FWH 20.12
Posted: Tue Jan 05, 2021 03:47 PM

Hi,

Is it possible to mail related lib file for fwh 20.12?

hakan @ objekt . com . tr

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

FiveTech Support Forums