y ahora..... TMenu

[proveedores]

Hola de nuevo :
Por favor no os canseis de mis preguntas, que ahí va la siguiente :
¿ Existe algo como ?
IF ::oMenu1:cMessage != Nil
::oMenu1:OnMouseOver := .T.
EndIf
¿De qué evento habria que colgarlo?.
Gracias por vuestra paciencia
Saludos
José Ramón Treuchado
Ocurre que en la Ayuda no me sale nada sobre TMenu y los cMessage solo
aparecen cuando "pincho" sobre el menú pero quisiera que salieran tal y como
hacen en los sub-menus al pasar el puntero del ratón por encima.

[ignacio]

José,
OnMouseOver es un evento, no le puedes asignar .T., no tiene ningún sentido.
No se ni siquiera lo que quieres hacer, lo siento.
Un saludo,
"José Ramón Truchado" <proveedores@e-tmsoft.com> escribió en el mensaje
news:44264920$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hola de nuevo :
>
> Por favor no os canseis de mis preguntas, que ahí va la siguiente :
> ¿ Existe algo como ?
>
> IF ::oMenu1:cMessage != Nil
> ::oMenu1:OnMouseOver := .T.
> EndIf
>
> ¿De qué evento habria que colgarlo?.
>
> Gracias por vuestra paciencia
> Saludos
> José Ramón Treuchado
>
> Ocurre que en la Ayuda no me sale nada sobre TMenu y los cMessage solo
> aparecen cuando "pincho" sobre el menú pero quisiera que salieran tal y
> como hacen en los sub-menus al pasar el puntero del ratón por encima.
>

[jfgimenez]

José Ramón,
> Ocurre que en la Ayuda no me sale nada sobre TMenu y los cMessage solo
> aparecen cuando "pincho" sobre el menú pero quisiera que salieran tal y
> como hacen en los sub-menus al pasar el puntero del ratón por encima.
El comportamiento es exactamente el de windows; lo puedes probar en
cualquier programa, p.ej. Outlook Express o Internet Explorer.
Si pasas el puntero del ratón por encima de los elementos del menú, no hace
nada especial, ni se muestra ningún mensaje en la barra de estado. Ahora
bien, cuando haces click sobre alguno de esos elementos y el menú se abre,
entonces es cuando empiezan a aparecer los mensajes en la barra de estado
con sólo pasar con el puntero del ratón por encima de cualquier elemento.
Exactamente igual que en Xailer.
--
Un saludo,
José F. Giménez

[proveedores]

OK, Jose F. :
En realidad lo que pretendía era de algún modo
"desbrozar" el funcionamiento de TMenu porque mi problema es que al
"pinchar" cualquier opcion de menú, se borran los paneles que tengo creados
en el TStatusBar desapareciendo sbDATE y sbTIME. Trato solamente de saber
que hace TMenu para que ocurra esto y ver la forma de remediarlo. En el
ejemplo que viene (menus.xpj) no se puede ver porque no usa paneles.
Gracias por tu inestimable ayuda.
José Ramón Truchado.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=4427b11b@ozsrvnegro.ozlan.local...]4427b11b@ozsrvnegro.ozlan.local...[/email]
> José Ramón,
>
>> Ocurre que en la Ayuda no me sale nada sobre TMenu y los cMessage solo
>> aparecen cuando "pincho" sobre el menú pero quisiera que salieran tal y
>> como hacen en los sub-menus al pasar el puntero del ratón por encima.
>
> El comportamiento es exactamente el de windows; lo puedes probar en
> cualquier programa, p.ej. Outlook Express o Internet Explorer.
>
> Si pasas el puntero del ratón por encima de los elementos del menú, no
> hace nada especial, ni se muestra ningún mensaje en la barra de estado.
> Ahora bien, cuando haces click sobre alguno de esos elementos y el menú se
> abre, entonces es cuando empiezan a aparecer los mensajes en la barra de
> estado con sólo pasar con el puntero del ratón por encima de cualquier
> elemento. Exactamente igual que en Xailer.
>
> --
> Un saludo,
>
> José F. Giménez
>

[proveedores]

Gracias por tu respuesta Ignacio :
Era tan solo una idea,
obviamente inadecuada para lo que pretendo. En mi msj a Jose F. le explico
lo que me sucede con los paneles que tengo creados en la TStatusBar para
mostrar sbDATE y sbTIME que SE BORRAN cuando elijo una opción de menú y
deseo evitarlo.
Saludos
José Ramón Truchado.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:4427a175$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> José,
>
> OnMouseOver es un evento, no le puedes asignar .T., no tiene ningún
> sentido. No se ni siquiera lo que quieres hacer, lo siento.
>
> Un saludo,
>
> "José Ramón Truchado" <proveedores@e-tmsoft.com> escribió en el mensaje
> news:44264920$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Hola de nuevo :
>>
>> Por favor no os canseis de mis preguntas, que ahí va la siguiente :
>> ¿ Existe algo como ?
>>
>> IF ::oMenu1:cMessage != Nil
>> ::oMenu1:OnMouseOver := .T.
>> EndIf
>>
>> ¿De qué evento habria que colgarlo?.
>>
>> Gracias por vuestra paciencia
>> Saludos
>> José Ramón Treuchado
>>
>> Ocurre que en la Ayuda no me sale nada sobre TMenu y los cMessage solo
>> aparecen cuando "pincho" sobre el menú pero quisiera que salieran tal y
>> como hacen en los sub-menus al pasar el puntero del ratón por encima.
>>
>
>

[jfgimenez]

José Ramón,
> En realidad lo que pretendía era de algún modo
> "desbrozar" el funcionamiento de TMenu porque mi problema es que al
> "pinchar" cualquier opcion de menú, se borran los paneles que tengo
> creados en el TStatusBar desapareciendo sbDATE y sbTIME. Trato solamente
> de saber que hace TMenu para que ocurra esto y ver la forma de remediarlo.
> En el ejemplo que viene (menus.xpj) no se puede ver porque no usa paneles.
Haz doble click en el evento OnMenuSelect del formulario y escribe lo
siguiente:
METHOD FormMenuSelect( oSender, nFlags, hMenu, cMessage ) CLASS TForm1
::oStatusBar1:SetText( 1, cMessage )
RETURN Nil
--
Un saludo,
José F. Giménez

[proveedores]

Jose F. :
He hecho lo que me indicas incluyendo el Método
FormMenuSelect() pero con el siguiente resultado :
GPF(Code=0000005)
Access Violation
TSTATUSBAR:GETTEXT(0)
TSTATUSPANEL:SETTEXT(182)
TSTATUSBAR:SETTEXT(292)
TFORM1:FORMMENUSELECT(90)
TFORM1:ONMENUSELECT(0)
TFORM1:WMMENUSELECT(784)
RUNFORM(0)
TAPPLICATION:RUN(189)
MAIN(17)
¿´Que he hecho mal?. Perdona mi torpeza.
Saludos
José Ramón Truchado.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=4428ef7b@ozsrvnegro.ozlan.local...]4428ef7b@ozsrvnegro.ozlan.local...[/email]
> José Ramón,
>
>> En realidad lo que pretendía era de algún modo
>> "desbrozar" el funcionamiento de TMenu porque mi problema es que al
>> "pinchar" cualquier opcion de menú, se borran los paneles que tengo
>> creados en el TStatusBar desapareciendo sbDATE y sbTIME. Trato solamente
>> de saber que hace TMenu para que ocurra esto y ver la forma de
>> remediarlo. En el ejemplo que viene (menus.xpj) no se puede ver porque no
>> usa paneles.
>
> Haz doble click en el evento OnMenuSelect del formulario y escribe lo
> siguiente:
>
> METHOD FormMenuSelect( oSender, nFlags, hMenu, cMessage ) CLASS TForm1
> ::oStatusBar1:SetText( 1, cMessage )
> RETURN Nil
>
> --
> Un saludo,
>
> José F. Giménez
>

[jfgimenez]

José Ramón,
no estoy del todo seguro, pero es posible que se trate de un bug que se
corrigió hace unos días en el foro privado. Por favor, añade este .obj a tu
proyecto y dime si así funciona.
--
Un saludo,
José F. Giménez


Attached files statusbar.zip (5.6 KB)Â

[proveedores]

José F. :
No logro ENLAZAR el obj que me envias con el resto. No se
como hacerlo con Xailer. He generado un MAP y comprobado que no se enlaza
por lo que persiste el bug.
Siento tantas molestias.
Saludos
José Ramón
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=44292741@ozsrvnegro.ozlan.local...]44292741@ozsrvnegro.ozlan.local...[/email]
> José Ramón,
>
> no estoy del todo seguro, pero es posible que se trate de un bug que se
> corrigió hace unos días en el foro privado. Por favor, añade este .obj a
> tu proyecto y dime si así funciona.
>
> --
> Un saludo,
>
> José F. Giménez
>
>

[jfgimenez]

José Ramón,
> No logro ENLAZAR el obj que me envias con el resto. No se
> como hacerlo con Xailer. He generado un MAP y comprobado que no se enlaza
> por lo que persiste el bug.
Sólo tienes que añadirlo al proyecto, como cualquier otro fichero. Puedes
usar el sexto botón del IDE, el que tiene una carpeta con un signo 'mas'
verde; o bien la opción "Añadir fichero al proyecto..." del menú "Proyecto".
Seleccionas el .obj y Xailer ya se encargará de enlazarlo. Lo mismo hay que
hacer si quieres añadir una .lib.
--
Un saludo,
José F. Giménez