FiveTech Software tech support forums

Hi everyone; I'm probably forgetting something as I can't seem to be able to place a transparent say on a oRibbon group. Can someone help? Here is sample code for testing: #include "fivewin.ch"#include "ribbon.ch"FUNCTION MAIN()   LOCAL oWnd, oRibbon, ...

...  2341! 3410  3412 ORECT                  WINDOW.PRG      819  2683  2685  2685  2686  2686  2687  2687  2689  2690                   2691  2692 ORIBBON                WINDOW.PRG     2845  2881  2885  2885 ORIGHT                  WINDOW.PRG      450  2654  2655 OSEND()                (function ...

... #include "ribbon.ch" static ownd, owndlayout /***************************************/ function Main() /* */ local oGrupo, oBtn1, oRibbon local oBtn2, oBtn3, oBtn4 SetBalloon( .T. ) DEFINE WINDOW oWnd FROM 1, 1 To 22, 75 ; TITLE "This is a MDI enviroment" MDI DEFINE RIBBONBAR ...

Mario prueba a poner
::oribbon:CalcPos() en lugar del refresh()
saludos
paco

... png. Entendido lo del bAction del grupo de la Ribbonbar. Pedro, Para ejecutar una acción al seleccionar una pestaña de la RibbonBar puedes hacer: oRibbon:aDialogs[ 1 ]:bGotFocus = { | o | MsgInfo( o:oWnd:nOption ) } En donde 1 es la primera pestaña, 2 la segunda, etc. o:oWnd:nOption es el índice ...

Pedro,

Para ejecutar una acción al seleccionar una pestaña de la RibbonBar puedes hacer:

oRibbon:aDialogs[ 1 ]:bGotFocus = { | o | MsgInfo( o:oWnd:nOption ) }

En donde 1 es la primera pestaña, 2 la segunda, etc.

o:oWnd:nOption es el índice de la pestaña seleccionada

cristobal,

prueba:

activate window .... on paint oRibbon:Default()

ó

DEFINE RIBBONBAR oRibbon PROMPTS "Uno", "Dos", "Tres" ;
OF oWnd ;
HEIGHT 158 TOPMARGIN 35

oRibbon:CalcPos()

Saludos
Paco

DEFINE RIBBONBAR oRibbon OF oWnd Prompt "" HEIGHT 45 TOPMARGIN 3 2010

oRibbon:aVisible[1] := .F. // Para que NO se Pinten los Tabs

nTab = oRibbon:nOption

Save and restore nTab in .ini file or options dbf

DEFINE RIBBONBAR oRibbon PROMPT "Tab1", "Tab2", "Tab3" OPTION nTab

Otto,
you're right !!,
i tested obar:enable() and obar:disable() and not work..
i used this:
oRibbon:Hide(no.group) y oRibbon:Show(no.group)
before oRibbon:CalcPos()
regards
paco

Antonio,

that´s it Thanks

One more question, can I access the group from the windows containerobject ? (something like this: oWnd:oRibbon:aGroups[n] ) ?

Hello Günther, http://www.pflegeplus.com/pictures/ribbtxt1.jpg oRibbon:aGradFld := {| nOpt | if( nOpt == oRibbon:nStart, { { 1, 16777215, 8293112 } },; { { 1, 8293112, 16777215 } } ) } // Tabcolor oRibbon:nClrPaneRB := 14856016 // Background blue ...

... de este estan sus controles y dentro de estos hay mas controles llegando a los botones si hay grupos dentro de grupos,,, y puedes probar asi: oRibbon:aDialogs[2]:aControls[3]:aControls[5]:nLeft -> aqui el detalle es poder determinar que numero de control es cual boton, no lo probe asi pero ...

... algunos botones segun alguna condicion del usuario o ya sea que se le activen tales opciones de manera manual on the fly, ya intente : oRibbon:Refresh() oRibbon:Default() Y nop, no funca. A veces lo hace otras no. Acaso tengo que recorrer todos los botones pertenecientes al grupo para ...

Hello Maurizio

the quickacces is not same in 2010 style,...you can use DATA aQuickRGrad

example:
oRibbon:aQuickRGrad = { { 1, RGB( 255, 255, 255 ), RGB( 231, 228, 226 ) } }