Xailer & OZ Software

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

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
>
>