ribbonbar windows 10

[Silvio.Falconi]

Antonio,
I tried to insert this features on my app
on a Window I open a dialog with nStyle := nOR( WS_CHILD, 4 )

if this dialog is actived and I click then it insert a space from tab and the dialog activated and I not Know How refresh the dialog to change the size
I tried with aClient := GetClientRect (oWnd:hWnd ) and the setsize but it not refresh

[Antonio Linares]

Try with oWnd:Resize()

[Silvio.Falconi]

::oBar:bLDblClick = { || (If( ::oBar:nHeight > 27, ::oBar:nHeight := 27, ::oBar:nHeight := nHeightRib),;
ResizeWndMain())}

my resize function
oApp():oBar is a ribbonbar

Function ResizeWndMain()
local aClient
if oApp():oDlg != NIL
aClient := GetClientRect (oApp():oWndMain:hWnd )
oApp():oDlg:SetSize( aClient[4], aClient[3] - oApp():oBar:nHeight - oApp():oWndMain:oMsgBar:nHeight )
oApp():oDlg:Refresh()
endif
return NIL

[José Luis Sánchez]

Gracias Antonio, el hack funciona perfectamente.

Saludos,

[Frafive]

Hola

Perdonen por tanta molestia, pero no hay manera de cambiar el color, al pasar el ratón por encima del boton de la ribbonbar, como se puede hacer ?





Saludos

[Antonio Linares]

Aqui tienes un ejemplo:

Code: Select all  Expand view

oButton:bClrGradNormal := { | lPressed | If( lPressed,;
                                 { { 1, RGB( 214, 172, 255 ), RGB( 255, 255, 255 ) } },;
                                 { { 1, RGB( 230, 220, 255 ), RGB( 255, 255, 255 ) } } ) }

[Frafive]

Gracias Antonio, ahora si me funciona perfectamente.

Saludos,