ribbonbar windows 10

Re: ribbonbar windows 10

Postby Silvio.Falconi » Sat Apr 29, 2017 10:19 am

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

Image
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: ribbonbar windows 10

Postby Antonio Linares » Sat Apr 29, 2017 10:22 am

Try with oWnd:Resize()
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: ribbonbar windows 10

Postby Silvio.Falconi » Sat Apr 29, 2017 11:06 am

::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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: ribbonbar windows 10

Postby José Luis Sánchez » Mon May 01, 2017 6:38 pm

Gracias Antonio, el hack funciona perfectamente.

Saludos,
User avatar
José Luis Sánchez
 
Posts: 539
Joined: Thu Oct 13, 2005 9:23 am
Location: Novelda - Alicante - España

Re: ribbonbar windows 10

Postby Frafive » Mon May 01, 2017 6:51 pm

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 ?


Image


Saludos
Frafive
 
Posts: 189
Joined: Wed Apr 05, 2006 9:48 pm

Re: ribbonbar windows 10

Postby Antonio Linares » Tue May 02, 2017 7:21 am

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 ) } } ) }
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: ribbonbar windows 10

Postby Frafive » Tue May 02, 2017 7:52 am

Gracias Antonio, ahora si me funciona perfectamente.

Saludos,
Frafive
 
Posts: 189
Joined: Wed Apr 05, 2006 9:48 pm

Previous

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Enrico Maria Giordano, Google [Bot] and 7 guests