Problem with Ribbonbar
Posted: Fri May 27, 2022 8:06 am
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
the xbrowse
any solution Please ?
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 ?