Problem with Ribbonbar

[Silvio.Falconi]

I have a Mdichild with a Ribbonbar and one xbrowse as you can see here :



and If I click on the tab of the ribbonbar, the ribbon does not shrink and becomes white and the xbrowse does not refresh

and the buttons of the first and only tab disappear as you can see here





Building the ribbon

Code: Select all | Expand

        local aRbPrompts:={"Opzioni"}
        local nAltezzaRibbon:= 140

   ::oRebar := TRibbonBar():New(::oWinTabellone, aRbPrompts,,,,nAltezzaRibbon,30,,,,,,,,,,.T.,)
   ::nBarHeight := ::oRebar:nHeight
   ::oReBar:bLDblClick = { || (iif( ::oReBar:nHeight > 32, ::oReBar:nHeight := 32, ::oReBar:nHeight := nAltezzaRibbon ),;
   ::nBarHeight := ::oRebar:nHeight, ::oLbx:refresh()  ) }

 

the xbrowse

Code: Select all | Expand

@ ::oRebar:nHeight+2, 0 XBROWSE  ::oLbx OF ::oWinTabellone
      ::oLbx:SetArray(::aTabellone,,,.F.)

....
::oWinTabellone:oClient := ::oLbx
      ::oWinTabellone:oControl := ::oLbx

 

any solution Please ?