FiveTech Software tech support forums

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

Try with oWnd:Resize()

::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

Gracias Antonio, el hack funciona perfectamente.

Saludos,

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

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 ) } } ) }

Gracias Antonio, ahora si me funciona perfectamente.

Saludos,