FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour ribbonbar windows 10
Frafive
Posts: 189
Joined: Wed Apr 05, 2006 09:48 PM
ribbonbar windows 10
Posted: Wed Apr 26, 2017 09:27 AM

Hola

Como puedo poner en una ribbonbar el estilo windows 10 ?

Saludos,
Gabriel

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: ribbonbar windows 10
Posted: Wed Apr 26, 2017 10:26 AM

Puedes poner una imagen?
Gracias

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
MGA
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: ribbonbar windows 10
Posted: Wed Apr 26, 2017 05:50 PM

DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "Tab 01", "Tab 02", "Tab 03" 2010

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ribbonbar windows 10
Posted: Wed Apr 26, 2017 07:05 PM

Prueba también:

DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "Tab 01", "Tab 02", "Tab 03" 2015

regards, saludos

Antonio Linares
www.fivetechsoft.com
Frafive
Posts: 189
Joined: Wed Apr 05, 2006 09:48 PM
Re: ribbonbar windows 10
Posted: Thu Apr 27, 2017 07:50 AM
Hola

Adjunto pantallazo del paint, esta sería la idea.

Saludos,


Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ribbonbar windows 10
Posted: Thu Apr 27, 2017 08:19 AM

Prueba con la cláusula 2015

No es exactamente el mismo, pero se asemeja bastante

regards, saludos

Antonio Linares
www.fivetechsoft.com
Frafive
Posts: 189
Joined: Wed Apr 05, 2006 09:48 PM
Re: ribbonbar windows 10
Posted: Thu Apr 27, 2017 09:56 AM
Antonio, se ve regular, en el degradado al pasar por lo botones no es el mismo, adjunto una pantallazo.

Saludos y Mil gracias

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: ribbonbar windows 10
Posted: Thu Apr 27, 2017 02:21 PM

Utiliza el estilo 2013 y configura los colores que no te gusten como necesites

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
José Luis Sánchez
Posts: 564
Joined: Thu Oct 13, 2005 09:23 AM
Re: ribbonbar windows 10
Posted: Fri Apr 28, 2017 06:35 AM

Una funcionalidad interesante de las Ribbonbar de office es que haciendo doble click en la pestaña la ribbon se contrae, y unicamente se muestran los títulos de las pestañas asemejando a un menú. ¿ Esto se puede hacer con la RB de FWH ?

Saludos,

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ribbonbar windows 10
Posted: Fri Apr 28, 2017 06:40 AM

José Luis,

De momento no

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ribbonbar windows 10
Posted: Fri Apr 28, 2017 07:12 AM
José Luis,

Modificando asi el Método LDblClick() en la Clase TRibbonBar y con el ejemplo que te pongo a continuación se consigue el efecto que comentas:
Code (fw): Select all Collapse
METHOD LDblClick( nRow, nCol, nFlags ) CLASS TRibbonBar

   if ValType( ::bLDblClickQ ) == "B" .and. ::lOverQ
      Eval( ::bLDblClickQ, nRow, nCol, nFlags )
   endif

   if ValType( ::bLDblClick ) == "B"
      Eval( ::bLDblClick, nRow, nCol, nFlags )
   endif

return nil


Aqui tienes un ejemplo que se comporta como indicas:
Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "ribbon.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd

   BuildRibbonBar( oWnd )

   ACTIVATE WINDOW oWnd

return nil

function BuildRibbonBar( oWnd )

   local oRBar, oGr1_1, oGr2_1, oBtn1_1_1, oBtn2_1_1

   DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT  "One", "Two", "Three" HEIGHT 134 TOPMARGIN 25

   oRBar:bLDblClick = { || If( oRBar:nHeight > 27, oRBar:nHeight := 27, oRBar:nHeight := 129 ) }

   ADD GROUP oGr1_1 RIBBON oRBar TO OPTION 1 PROMPT "new" WIDTH 201 GRADIANT { { 0.1, RGB( 218, 229, 243 ), RGB( 218, 229, 243 ) }, { 0.9, RGB( 199, 216, 237 ), RGB( 218, 229, 243 ) } }

   @ 3, 3 ADD BUTTON  oBtn1_1_1 PROMPT "new" GROUP oGr1_1 ACTION MsgInfo( "click" ) SIZE 80, 83 TOP

   @ 3, 83 ADD BUTTON  oBtn2_1_1 PROMPT "new" GROUP oGr1_1 ACTION MsgInfo( "click" ) SIZE 80, 83 TOP

   ADD GROUP oGr2_1 RIBBON oRBar TO OPTION 1 PROMPT "new" WIDTH 201 GRADIANT { { 0.1, RGB( 218, 229, 243 ), RGB( 218, 229, 243 ) }, { 0.9, RGB( 199, 216, 237 ), RGB( 218, 229, 243 ) } }

return nil


Este es el código en concreto que hace lo que has comentado:
Code (fw): Select all Collapse
oRBar:bLDblClick = { || If( oRBar:nHeight > 27, oRBar:nHeight := 27, oRBar:nHeight := 129 ) }
regards, saludos

Antonio Linares
www.fivetechsoft.com
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: ribbonbar windows 10
Posted: Fri Apr 28, 2017 07:09 PM

nice

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 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
Frafive
Posts: 189
Joined: Wed Apr 05, 2006 09:48 PM
Re: ribbonbar windows 10
Posted: Fri Apr 28, 2017 07:57 PM
Hola

Como puedo cambiar el color de selección de un botón ?

Saludos,

Gracias

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: ribbonbar windows 10
Posted: Fri Apr 28, 2017 10:59 PM
Ejemplo

Code (fw): Select all Collapse
   local aClrMenu1 := { { 0.5, RGB( 69, 124, 188 ), RGB( 41, 93, 171 ) }, ;
                       { 0.5, RGB( 26, 64, 136 ), RGB( 56, 135, 191 ) } }
   local aClrMenu2 := { { 0.5, RGB( 123, 178, 236 ), RGB( 71, 126, 205 ) }, ;
                       { 0.5, RGB( 17, 78, 175 ), RGB( 128, 225, 255 ) } }


   DEFINE WINDOW oWnd TITLE "RibbonBar Test " + FWVERSION FROM 1,1 to 600,600 PIXEL
   
   DEFINE RIBBONBAR oRBar WINDOW oWnd ;
      PROMPT "Configuración", "Ficheros", "Informes", "Ayudas" ;
      HEIGHT 133 TOPMARGIN 25 2013

   oRBar:nRoundBox  := 0
   oRBar:nSeparation( 1 )

//   BackStage( oRBar )
   
   oRBar:nLeftMargin = 75
   oRBar:CalcPos()

   oTBtn0 = TRBtn():New( 4, 0, 75, 20, "..\bitmaps\rbnmenu.bmp", { || oRBar:BackStage() /* oRBar:KeybMode() */ }, oRBar,;
                         ,,,,,, .F., .T.,,,,,, "POPUP", oMenu,,,,,,,,,,,,, aClrMenu1, nRGB( 125, 172, 215 ),;
                         nRGB( 65, 106, 189 ), oRBar:nRoundBox, ) 
   oTBtn0:aClrGradOver = { || aClrMenu2 }
   oTBtn0:aClrGradBack = aClrMenu2
   oTBtn0:bClrGradSubOver = { || aClrMenu2 }
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ribbonbar windows 10
Posted: Sat Apr 29, 2017 06:12 AM
Antonio Linares wrote:José Luis,

Modificando asi el Método LDblClick() en la Clase TRibbonBar y con el ejemplo que te pongo a continuación se consigue el efecto que comentas:
Code (fw): Select all Collapse
METHOD LDblClick( nRow, nCol, nFlags ) CLASS TRibbonBar

   if ValType( ::bLDblClickQ ) == "B" .and. ::lOverQ
      Eval( ::bLDblClickQ, nRow, nCol, nFlags )
   endif

   if ValType( ::bLDblClick ) == "B"
      Eval( ::bLDblClick, nRow, nCol, nFlags )
   endif

return nil


Aqui tienes un ejemplo que se comporta como indicas:
Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "ribbon.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd

   BuildRibbonBar( oWnd )

   ACTIVATE WINDOW oWnd

return nil

function BuildRibbonBar( oWnd )

   local oRBar, oGr1_1, oGr2_1, oBtn1_1_1, oBtn2_1_1

   DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT  "One", "Two", "Three" HEIGHT 134 TOPMARGIN 25

   oRBar:bLDblClick = { || If( oRBar:nHeight > 27, oRBar:nHeight := 27, oRBar:nHeight := 129 ) }

   ADD GROUP oGr1_1 RIBBON oRBar TO OPTION 1 PROMPT "new" WIDTH 201 GRADIANT { { 0.1, RGB( 218, 229, 243 ), RGB( 218, 229, 243 ) }, { 0.9, RGB( 199, 216, 237 ), RGB( 218, 229, 243 ) } }

   @ 3, 3 ADD BUTTON  oBtn1_1_1 PROMPT "new" GROUP oGr1_1 ACTION MsgInfo( "click" ) SIZE 80, 83 TOP

   @ 3, 83 ADD BUTTON  oBtn2_1_1 PROMPT "new" GROUP oGr1_1 ACTION MsgInfo( "click" ) SIZE 80, 83 TOP

   ADD GROUP oGr2_1 RIBBON oRBar TO OPTION 1 PROMPT "new" WIDTH 201 GRADIANT { { 0.1, RGB( 218, 229, 243 ), RGB( 218, 229, 243 ) }, { 0.9, RGB( 199, 216, 237 ), RGB( 218, 229, 243 ) } }

return nil


Este es el código en concreto que hace lo que has comentado:
Code (fw): Select all Collapse
oRBar:bLDblClick = { || If( oRBar:nHeight > 27, oRBar:nHeight := 27, oRBar:nHeight := 129 ) }


Included in FWH 17.04
regards, saludos

Antonio Linares
www.fivetechsoft.com
Static archive · New replies & topics via GitHub Discussions