Ribbon Tooltip y fuentes

[Francisco Horta]

Hola,

Pues probando la Ribbon, como hago para poner tooltips a los botones dentro de un grupo?, Hay forma de cambiarle el tipo de letra a la Ribbon o a los botones del grupo? Se puede poner algun tipo de Separator en la QuickAccess?
Gracias
Paco

[Francisco Horta]

mm se podra lo anterior probe con oBtn:cTooltip:="Hola" y nada,, probe asi: oribbon:adiagos[1]:acontrols[1]:ctooltipo:="Hola" y nada, se podra de alguna forma?

otro punto:
Defino la oRibbon1 con una quickaccess y la oRibbon2, quiero que al entrar la oribbon2 se oculte (oRibbon2:Hide(), no funciona) y al dar click en un boton de la quickaccess, se oculte la oRibbon1 y me muestre la oRibbon2, se podra?
gracias
paco

[Jairo Barbosa]

Francisco el tooltip que quieres es como este?


Uploaded with ImageShack.us

Abrazos

Avísame

Cordialmente

Jairo Barbosa

[Francisco Horta]

asi es ajairo, eso necesito, lo de las fuentes ya quedo solucionado gracias
espero como lo haces lo del los tooltip
saludos
paco

[Jairo Barbosa]

Bueno Francisco esto me lo enseño Rolando y me fue muy útil aunque se que hay otra maneras mas elegantes.
Espero sea lo que buscas

Code: Select all  Expand view

#include "fivewin.ch"
#include "ribbon.ch"

STATIC oWnd
STATIC oDlgRB[3]

function main()

   local oRBar
   local oMenu, oMenuWnd, oBrush1
   local oGr, oGr1, oGr2, oGr3, oGr4
   local oBtn,   oBtn1,  oBtn2,  oBtn3,  oBtn4, oBtn5
   local oBtn6,  oBtn7,  oBtn8,  oBtn9,  oBtn10
   local oBtn11, oBtn12, oBtn13, oBtn14, oBtn15
   local oBtn16, oBtn17, oBtn18, oBtn19, oBtn20
   local oBtn21, oBtn22, oBtn23, oBtn24, oBtn25
   local oBtn26, oBtn27, oBtn28, oBtn29, oBtn30
   local oBtn31, oBtn32, oBtn33, oBtn34, oBtn35
   LOCAL oSay1, oBmp, oFont1
   LOCAL oCursor

   SetBalloon( .T. )    // by rolo

   menu oMenu 2007
   endmenu

   DEFINE FONT oFont1 NAME "Arial" SIZE 0,-30 // BOLD
   DEFINE CURSOR oCursor HAND

   DEFINE BRUSH oBrush1 COLOR nRGB(210,210,255) // ,nRGB(255,255,255)
   DEFINE WINDOW oWnd TITLE "RibbonBar Test " from 1,1 to 600,600 pixel MDI MENU oMenu brush oBrush1

   DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "Tab 01", "Tab 02", "Tab 03";
         HEIGHT 130 TOPMARGIN 25

   ADD GROUP oGr  RIBBON oRBar TO OPTION 1 PROMPT "Clipboard" width 130 BITMAP "..\bitmap\fivetech.BMP"

     @ 02, 05 ADD BUTTON oBtn2 GROUP oGr BITMAP "C:\FWH\bitmaps\cut16.BMP" ;
       SIZE 75, 20   MOSTLEFT round ;
       action ( Dialog01() )

     @ 24, 05 ADD BUTTON oBtn3 GROUP oGr BITMAP "C:\FWH\bitmaps\copy16.BMP" ;
       SIZE 75, 20   MOSTLEFT round ;
       action( Dialog02() )
       
       

     @ 46, 05 ADD BUTTON oBtn4 GROUP oGr BITMAP "C:\FWH\bitmaps\paste16.BMP" ;
       SIZE 75, 20   MOSTLEFT round ;
       action( Dialog03() )

       oBtn2:cTooltip:="Este es el dialog 1"   // by rolo
       oBtn3:cTooltip:="Este es el dialog 2"   // by rolo
       oBtn4:cTooltip:="Este es el dialog 3"   // by rolo
       oBtn2:oCursor:=oCursor                  // by rolo
       oBtn3:oCursor:=oCursor                  // by rolo
       oBtn4:oCursor:=oCursor                  // by rolo

   ADD GROUP oGr1 RIBBON oRBar TO OPTION 1 PROMPT "Font" WIDTH 205

     @ 10, 05 ADD BUTTON oBtn5 GROUP oGr1 BITMAP "C:\FWH\bitmaps\bold16.bmp" GROUPBUTTON FIRST SIZE 25, 20 ROUND ;
     ACTION( oBtn5:lSelected := !oBtn5:lSelected )
     
     @ 10, 30 ADD BUTTON oBtn6 GROUP oGr1 BITMAP "C:\FWH\bitmaps\italic16.bmp" GROUPBUTTON SIZE 25, 20 ROUND ;
        ACTION( oBtn6:lSelected := !oBtn6:lSelected )

     @ 10, 55 ADD BUTTON oBtn7 GROUP oGr1 BITMAP "C:\FWH\bitmaps\underline16.bmp" GROUPBUTTON SIZE 35, 20 ROUND Popup

     @ 10, 90 ADD BUTTON oBtn8 GROUP oGr1 BITMAP "C:\FWH\bitmaps\strikethru16.bmp" GROUPBUTTON SIZE 25, 20 ROUND;
        ACTION( oBtn8:lSelected := !oBtn8:lSelected )

     @ 10, 115 ADD BUTTON oBtn9 GROUP oGr1 BITMAP "C:\FWH\bitmaps\subindex16.bmp" GROUPBUTTON SIZE 25, 20 ROUND;
        ACTION( oBtn9:lSelected := !oBtn9:lSelected, oBtn10:lSelected := .f., oBtn10:Refresh() )

     @ 10, 140 ADD BUTTON oBtn10 GROUP oGr1 BITMAP "C:\FWH\bitmaps\superindex16.bmp" GROUPBUTTON SIZE 25, 20 ROUND ;
        ACTION( oBtn10:lSelected := !oBtn10:lSelected, oBtn9:lSelected := .f., oBtn9:Refresh() )

     @ 10, 165 ADD BUTTON oBtn11 GROUP oGr1 BITMAP "C:\FWH\bitmaps\casing16.bmp" GROUPBUTTON END SIZE 35, 20 ROUND POPUP

     @ 40, 05 ADD BUTTON oBtn12 GROUP oGr1 BITMAP "C:\FWH\bitmaps\hilight16.bmp" GROUPBUTTON FIRST SIZE 35, 20 ROUND POPUP

     @ 40, 40 ADD BUTTON oBtn13 GROUP oGr1 BITMAP "C:\FWH\bitmaps\fontcolor16.bmp" GROUPBUTTON END SIZE 35, 20 ROUND POPUP

     @ 40, 100 ADD BUTTON oBtn14 GROUP oGr1 BITMAP "C:\FWH\bitmaps\fontsizeincrease16.bmp" GROUPBUTTON FIRST SIZE 25, 20 ROUND

     @ 40, 125 ADD BUTTON oBtn15 GROUP oGr1 BITMAP "C:\FWH\bitmaps\fontsizedecrease16.bmp" GROUPBUTTON END SIZE 25, 20 ROUND

     @ 40, 175 ADD BUTTON oBtn16 GROUP oGr1 BITMAP "C:\FWH\bitmaps\style16.bmp" SIZE 25, 20 ROUND BORDER
     
       oBtn5:cTooltip:=" Este es Boton 1"
       oBtn6:cTooltip:=" Este es Boton 2"
       oBtn7:cTooltip:=" Este es Boton 3"
       oBtn8:cTooltip:=" Este es Boton 4"
       oBtn9:cTooltip:=" Este es Boton 5"
       oBtn10:cTooltip:="Este es Boton 6"
       oBtn11:cTooltip:="Este es Boton 7"
       oBtn12:cTooltip:="Este es Boton 8"
       oBtn13:cTooltip:="Este es Boton 9"
       oBtn14:cTooltip:="Este es Boton 10"
       oBtn15:cTooltip:="Este es Boton 11"
       oBtn16:cTooltip:="Este es Boton 12"
       oBtn5:oCursor:=oCursor
       oBtn6:oCursor:=oCursor
       oBtn7:oCursor:=oCursor
       oBtn8:oCursor:=oCursor
       oBtn9:oCursor:=oCursor
       oBtn10:oCursor:=oCursor
       oBtn11:oCursor:=oCursor
       oBtn12:oCursor:=oCursor
       oBtn13:oCursor:=oCursor
       oBtn14:oCursor:=oCursor
       oBtn15:oCursor:=oCursor
       oBtn16:oCursor:=oCursor


   ADD GROUP oGr2 RIBBON oRBar TO OPTION 1 PROMPT "Exit" width 70 // BITMAP "..\bitmap\fivetech.bmp"

     @ 15, 20 ADD BUTTON oBtn4 GROUP oGr2 BITMAP "..\bitmaps\32x32\quit.BMP" ;
           SIZE 34,52 PROMPT "Exit" action( oWnd:End())
     
       oBtn4:cTooltip:="Este es Boton de Salida"
       oBtn4:oCursor:=oCursor

   SET MESSAGE OF oWnd TO "Testing FWH own Class RibbonBar" ;
      CENTERED CLOCK KEYBOARD 2007

   WndCenter(oWnd:hWnd)

   ACTIVATE WINDOW oWnd ON INIT Dialog01() // MAXIMIZED

   oRBar:End()

return nil

Procedure Dialog01()
   LOCAL aCoords:=GetCoors(oWnd:oWndClient), oBrush, oGet, cTxtGet:="Get in Dialog 01"
   LOCAL oFont1, oBmpAlpha
   LOCAL lEscapa:=.F.

   HideDlg( 1 )

   if ValType(oDlgRB[1]) <> "O"
      oBmpAlpha:=TImage():Define(, "..\Bitmaps\AlphaBmp\World.bmp" )
      DEFINE FONT oFont1 NAME "Ms Sans Serif" SIZE 0,-8 BOLD
      DEFINE BRUSH oBrush FILE "..\Bitmaps\BackGrnd\Stone.bmp"
      DEFINE DIALOG oDlgRB[1] FROM 0,0 TO 538,782 OF oWnd:oWndClient PIXEL // COLORS RGB(0,0,0),RGB(255,255,255)
         oDlgRB[1]:nStyle := nOR(WS_CHILD) // ,WS_THICKFRAME
         oDlgRB[1]:oBrush := oBrush
         oDlgRB[1]:lTransparent := .T.

      @ 20,20 SAY "Some text bla bla bla in DIALOG 01" OF oDlgRB[1] PIXEL COLOR nRGB(0,0,125) FONT oFont1

      @ 35,20 GET oGet VAR cTxtGet OF oDlgRB[1] PIXEL

      ACTIVATE DIALOG oDlgRB[1] NOWAIT ; //CENTERED
          ON INIT (oDlgRB[1]:Move(aCoords[1]+0,aCoords[2]+0,,,.T.));
          ON PAINT (ABPaint( hDC,335,200, oBmpAlpha:hBitmap, 255 ));
          VALID lEscapa
   else
      oDlgRB[1]:Show()
   endif
Return



Procedure Dialog02()
   LOCAL aCoords:=GetCoors(oWnd:oWndClient), oBrush, oGet, cTxtGet:="Get in Dialog 02"
   LOCAL oFont1, oBmpAlpha
   LOCAL lEscapa:=.F.

   HideDlg( 2 )

   if ValType(oDlgRB[2]) <> "O"
      oBmpAlpha:=TImage():Define(, "..\Bitmaps\AlphaBmp\World.bmp" )
      DEFINE FONT oFont1 NAME "Ms Sans Serif" SIZE 0,-8 BOLD
      DEFINE BRUSH oBrush FILE "..\Bitmaps\BackGrnd\Stone.bmp"
      DEFINE DIALOG oDlgRB[2] FROM 0,0 TO 538,782 OF oWnd:oWndClient PIXEL // COLORS RGB(0,0,0),RGB(255,255,255)
         oDlgRB[2]:nStyle := nOR(WS_CHILD) // ,WS_THICKFRAME
         oDlgRB[2]:oBrush := oBrush
         oDlgRB[2]:lTransparent := .T.

         @ 30,30 SAY "Some text bla bla bla in DIALOG 02" OF oDlgRB[2] PIXEL COLOR nRGB(0,0,125) FONT oFont1

         @ 45,30 GET oGet VAR cTxtGet OF oDlgRB[2] PIXEL

      ACTIVATE DIALOG oDlgRB[2] NOWAIT ; //CENTERED
          ON INIT (oDlgRB[2]:Move(aCoords[1]+0,aCoords[2]+0,,,.T.));
          ON PAINT (ABPaint( hDC,365,230, oBmpAlpha:hBitmap, 255 ));
          VALID lEscapa
   else
      oDlgRB[2]:Show()
   endif
Return




Procedure Dialog03()
   LOCAL aCoords:=GetCoors(oWnd:oWndClient), oBrush, oGet, cTxtGet:="Get in Dialog 03"
   LOCAL oFont1, oBmpAlpha
   LOCAL lEscapa:=.F.

   HideDlg( 3 )

   if ValType(oDlgRB[3]) <> "O"
      oBmpAlpha:=TImage():Define(, "..\Bitmaps\AlphaBmp\World.bmp" )
      DEFINE FONT oFont1 NAME "Ms Sans Serif" SIZE 0,-8 BOLD
      DEFINE BRUSH oBrush FILE "..\Bitmaps\BackGrnd\Stone.bmp"
      DEFINE DIALOG oDlgRB[3] FROM 0,0 TO 538,782 OF oWnd:oWndClient PIXEL // COLORS RGB(0,0,0),RGB(255,255,255)
         oDlgRB[3]:nStyle := nOR(WS_CHILD) // ,WS_THICKFRAME
         oDlgRB[3]:oBrush := oBrush
         oDlgRB[3]:lTransparent := .T.

         @ 40,40 SAY "Some text bla bla bla in DIALOG 03" OF oDlgRB[3] PIXEL COLOR nRGB(0,0,125) FONT oFont1

         @ 55,40 GET oGet VAR cTxtGet OF oDlgRB[3] PIXEL

      ACTIVATE DIALOG oDlgRB[3] NOWAIT ; //CENTERED
          ON INIT (oDlgRB[3]:Move(aCoords[1]+0,aCoords[2]+0,,,.T.));
          ON PAINT (ABPaint( hDC,395,260, oBmpAlpha:hBitmap, 255 ));
          VALID lEscapa
   else
      oDlgRB[3]:Show()
   endif
Return

Procedure HideDlg( nDlg )
   LOCAL i:=1
   for i:=1 TO Len(oDlgRB)
       if ValType(oDlgRB[i])=="O"
          oDlgRB[i]:Hide()
       endif
   next
Return
 

Un Abrazo

Jairo

[Francisco Horta]

que tal jairo,
pues no me funciona ya lo probe y no muestra el tooltip, creo es mejor dejarlo por la paz...
gracias
saludos
paco

[Manuel Aranda]

Cierto, a mi tampoco me muestra el tooltip. En cambio el cursor sí que lo cambia. ¿Será por la versión que estamos usando? Alguien puede confirmarlo?

[Jairo Barbosa]

Francisco y Manuel

El código conforme esta fue compilado con verce 5.3 y funciona muy bien, aunque como dije antes observe en el foro unos tooltip bastante elegantes
tengo la impresión que con las versiones que tienen ustedes no funciona, si poseen una varsion mas anterior como la 10.6 podrían confirmarlo.

Un Abrazo

Jairo

[Manuel Aranda]

Hola Jairo:

Al pie de mi mensaje anterior tienes mi entorno:

xH 1.2.1, FWH 11.04, BC++ 5.8.2, xVerce CW 1.0, PellesC.

Me temo que con versiones más actuales es cuando no funciona.

[postinelli]

gracias por el aporte

yo utilizo fwh1101 bcc582 xharbour121 y va bien

sólo tuve que incluir

SetBalloon( .T. )
y
oBtn2:cTooltip:=" Este es Boton 2"