Toolbar:ResetButtons

[jose.luis]

Hola:
¿Es posible que el método ResetButtons de la ToolBar tenga un comportamiento
diferente si el 'oParent' de la toolbar es un tForm o un tPage?
Esto lo pregunto por que este código situado en el onchange de un
Arraybrowse:
//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Inicio
SWITCH oSender:aArrayData[oSender:nArrayAT][1]
CASE 0
lbt2 := lbt3 := lbt4 := lbt5 := .F.
::oBarraBotones:aButtons[5]:onClick := { | a |
MsgInfo("Por hacer") }
oMenu := NIL
EXIT
CASE 1
MENU oMenu POPUP
MENUITEM "Modificar Mensaje" ACTION {| a |
MsgInfo("Por hacer") } //::MantenimientoUnMensaje("M")
MENUITEM "Consultar Mensaje" ACTION {| a |
MsgInfo("Por hacer") } //::MantenimientoUnMensaje("C")
ENDMENU
::oBarraBotones:aButtons[5]:onClick := NIL
::oBarraBotones:aButtons[5]:oMenu := oMenu
lbt1 := .f.
EXIT
CASE 2
lbt3 := lbt4 := lbt5 := .F.
MENU oMenu POPUP
MENUITEM "Modificar Mensaje" ACTION {| a |
MsgInfo("Por hacer") } // Self:MantenimientoUnMensaje("M")
MENUITEM "Consultar Mensaje" ACTION {| a |
MsgInfo("Por hacer") } // Self:MantenimientoUnMensaje("C")
MENUITEM "Eliminar Mensaje" ACTION {| a |
MsgInfo("Por hacer") } // Self:MantenimientoUnMensaje("B")
ENDMENU
::oBarraBotones:aButtons[5]:onClick := NIL
::oBarraBotones:aButtons[5]:oMenu := oMenu
EXIT
END
::oBarraBotones:aButtons[3]:lEnabled := lbt1
::oBarraBotones:aButtons[4]:lEnabled := lbt2
::oBarraBotones:aButtons[5]:lEnabled := lbt3
::oBarraBotones:aButtons[6]:lEnabled := lbt4
::oBarraBotones:aButtons[7]:lEnabled := lbt5
::oBarraBotones:resetButtons()
//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Final
Hace que en el tForm los botones _siempre_aparezcan en la misma posición,
mientras que con un tPage al pasar por la opción 1 ó 2 (donde se crean los
menús) los botones aparecen desplazados unos píxeles a la derecha y abajo.
Si necesitais un ejemplo, os puedo dejar un video del efecto que me ocurre.
Saludos,
José Luis Capel

[jose.luis]

Hola,
Creo que es un fallo mío. Parece ser que me olvidé de des-asignar el menú
al botón en el CASE 0. No obstante aún así, hace que el pintado se desplace
verticalmente y horizontalmente. Curioso, no ?
Saludos,
José Luis Capel
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=4546190f@news.xailer.com...]4546190f@news.xailer.com...[/email]
> Hola:
>
> ¿Es posible que el método ResetButtons de la ToolBar tenga un
> comportamiento diferente si el 'oParent' de la toolbar es un tForm o un
> tPage?
>
> Esto lo pregunto por que este código situado en el onchange de un
> Arraybrowse:
>
> //>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Inicio
> SWITCH oSender:aArrayData[oSender:nArrayAT][1]
> CASE 0
> lbt2 := lbt3 := lbt4 := lbt5 := .F.
> ::oBarraBotones:aButtons[5]:onClick := { | a |
> MsgInfo("Por hacer") }
> oMenu := NIL
> EXIT
> CASE 1
> MENU oMenu POPUP
> MENUITEM "Modificar Mensaje" ACTION {| a |
> MsgInfo("Por hacer") } //::MantenimientoUnMensaje("M")
> MENUITEM "Consultar Mensaje" ACTION {| a |
> MsgInfo("Por hacer") } //::MantenimientoUnMensaje("C")
> ENDMENU
> ::oBarraBotones:aButtons[5]:onClick := NIL
> ::oBarraBotones:aButtons[5]:oMenu := oMenu
> lbt1 := .f.
> EXIT
> CASE 2
> lbt3 := lbt4 := lbt5 := .F.
> MENU oMenu POPUP
> MENUITEM "Modificar Mensaje" ACTION {| a |
> MsgInfo("Por hacer") } // Self:MantenimientoUnMensaje("M")
> MENUITEM "Consultar Mensaje" ACTION {| a |
> MsgInfo("Por hacer") } // Self:MantenimientoUnMensaje("C")
> MENUITEM "Eliminar Mensaje" ACTION {| a |
> MsgInfo("Por hacer") } // Self:MantenimientoUnMensaje("B")
> ENDMENU
> ::oBarraBotones:aButtons[5]:onClick := NIL
> ::oBarraBotones:aButtons[5]:oMenu := oMenu
>
> EXIT
> END
> ::oBarraBotones:aButtons[3]:lEnabled := lbt1
> ::oBarraBotones:aButtons[4]:lEnabled := lbt2
> ::oBarraBotones:aButtons[5]:lEnabled := lbt3
> ::oBarraBotones:aButtons[6]:lEnabled := lbt4
> ::oBarraBotones:aButtons[7]:lEnabled := lbt5
>
> ::oBarraBotones:resetButtons()
> //>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Final
>
> Hace que en el tForm los botones _siempre_aparezcan en la misma posición,
> mientras que con un tPage al pasar por la opción 1 ó 2 (donde se crean los
> menús) los botones aparecen desplazados unos píxeles a la derecha y abajo.
>
> Si necesitais un ejemplo, os puedo dejar un video del efecto que me
> ocurre.
>
> Saludos,
> José Luis Capel
>
>