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 view
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 view
- @ ::oRebar:nHeight+2, 0 XBROWSE ::oLbx OF ::oWinTabellone
::oLbx:SetArray(::aTabellone,,,.F.)
....
::oWinTabellone:oClient := ::oLbx
::oWinTabellone:oControl := ::oLbx
any solution Please ?
