ribbonbar windows 10

ribbonbar windows 10

Postby Frafive » Wed Apr 26, 2017 9:27 am

Hola

Como puedo poner en una ribbonbar el estilo windows 10 ?

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

Re: ribbonbar windows 10

Postby cnavarro » 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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: ribbonbar windows 10

Postby MGA » Wed Apr 26, 2017 5:50 pm

DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "Tab 01", "Tab 02", "Tab 03" 2010
ubiratanmga@gmail.com

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: ribbonbar windows 10

Postby Antonio Linares » Wed Apr 26, 2017 7: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
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: ribbonbar windows 10

Postby Frafive » Thu Apr 27, 2017 7:50 am

Hola

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

Saludos,


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

Re: ribbonbar windows 10

Postby Antonio Linares » Thu Apr 27, 2017 8:19 am

Prueba con la cláusula 2015

No es exactamente el mismo, pero se asemeja bastante
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 » Thu Apr 27, 2017 9: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

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

Re: ribbonbar windows 10

Postby cnavarro » Thu Apr 27, 2017 2: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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: ribbonbar windows 10

Postby José Luis Sánchez » Fri Apr 28, 2017 6: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,
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 Antonio Linares » Fri Apr 28, 2017 6:40 am

José Luis,

De momento no
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 Antonio Linares » Fri Apr 28, 2017 7: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: Select all  Expand view
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: Select all  Expand view
#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: Select all  Expand view
oRBar:bLDblClick = { || If( oRBar:nHeight > 27, oRBar:nHeight := 27, oRBar:nHeight := 129 ) }
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 » Fri Apr 28, 2017 7:09 pm

nice
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 Frafive » Fri Apr 28, 2017 7:57 pm

Hola

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

Saludos,

Gracias

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

Re: ribbonbar windows 10

Postby cnavarro » Fri Apr 28, 2017 10:59 pm

Ejemplo

Code: Select all  Expand view


   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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: ribbonbar windows 10

Postby Antonio Linares » Sat Apr 29, 2017 6: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: Select all  Expand view
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: Select all  Expand view
#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: Select all  Expand view
oRBar:bLDblClick = { || If( oRBar:nHeight > 27, oRBar:nHeight := 27, oRBar:nHeight := 129 ) }


Included in FWH 17.04
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

Next

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 10 guests