USO DE SCROOL EN MENU RIBBON Y MENU DE IMAGENES

[joseluisysturiz]

Saludos, lo primero es saber si alguien tiene idea de como hacer este tipo de menu en la ribbon tipo combo box pero con imagenes.? ver imagen 1 y 2, y el otro tema es como hacer para que al usar el scrool del mouse se desplazen las pestañas horizontales de la ribbon.? imagen 3, eso lo tome de la ribbon de excel, cualquier ayuda, idea o sugerencia, sera bienvenida, gracias, saludos...

IMAGEN 1



IMAGEN 2



IMAGEN 3

[mantonio_08]

cuando dices scroll del mouse te refieres a la rueda??

[joseluisysturiz]

cuando dices scroll del mouse te refieres a la rueda??

Saludos, si man, es la ruedita del mouse, alguna idea de lo que pregunto.? saludos...

[mantonio_08]

Simple amigo un poco de ingenio.

oWnd:bMouseWheel :={ | ,nDelta | MouseWheel( nDelta ) } // Siendo oWnd la ventana padre.

Ojo:: que las variables oWnd y oRbar deben ser visibles en la function adaptalo a lo tuyo

/-------------------
Function MouseWheel( nDelta )

Local nRC := GetCursorPos()
Local nRow := nRC[1] - oWnd:nTop - 4

IF nRow >25 .and. nRow <188
IF nDelta =120 //Rueda Gira hacia adelante
oRbar:GoLeft() // Siendo oRbar el objeto ribbon
ElseIf nDelta =-120 //Rueda Gira hacia atras
oRbar:GoRight()
ENDIF
ENDIF
Return nil

Me cuentas como te resulto
un Abrazo

[mantonio_08]

..

[joseluisysturiz]

..

mAntonio, aun no he probado lo que me dijistes ya que solo es ESTETICA en el sistema, apenas lo pruebo te lo comento, gracias, saludos...