Estimado Jose Ramón Castro
Agradezco tu grán ayuda y la de Rene Flores, al darme la idea para
solucionar este problema, quiero mencionarles que gracias a sus aportaciones
me vino la idea de integrar las intrucciones dentro del TMenu en un evento
OnMouseMove quedando integrado de la siguiente forma y 100% funcional, ya
que las variables se actualizan de inmediato al usar los menús.
METHOD FormMouseMove( oSender, nKeyFlags, nPosX, nPosY ) CLASS _Menu
::oStatusBar1:aItems[1]:cText := g_cEmpNom
::oStatusBar1:aItems[2]:cText := g_cUserId
RETURN Nil
Saludos
Guillermo Guevara C.
"José Ramón Castro" <
jrcpoli@terra.es> escribió en el mensaje
news:[email=
48305fe8@ozsrv2.ozlan.local...]
48305fe8@ozsrv2.ozlan.local...[/email]
> Saludos:
>
> Por ponertelo mas facil si tu haces donde se produce el cambio de
> nombres,basandome en tu ejemplo:
>
> ::oStatusBar1:aItems[1]:cText := cNombreEmpresa
> ::oStatusBar1:aItems[1]:Update()
> ::oStatusBar1:aItems[2]:cText := cNombreUsuario
> ::oStatusBar1:aItems[2]:Update()
>
> Pues solucionas el problema.
>
> José Ramón Castro.
>
> "José Ramón Castro" <
jrcpoli@terra.es> escribió en el mensaje de noticias
> news:[email=
48305bb5@ozsrv2.ozlan.local...]
48305bb5@ozsrv2.ozlan.local...[/email]
>> Saludos:
>>
>> Has probado lo que ocurre cuando usas el metodo Update de la clase
>> TStatusPanel
>>
>> La ayuda dice:
>>
>> TStatusPanel:Update
>> Informa a la clase padre del panel, la TStatusBar, que se han hecho
>> cambios en el panel.
>>
>> Tipo
>> Estándar
>>
>> Parámetros
>> Ninguno
>>
>> Valor Retorno
>> NIL
>>
>> Mira también la propiedad lOwnerDraw del TStatusPanel.
>>
>> José Ramón Castro.
>>
>> "Guillermo Guevara C." <
soporte@PvWin.com> escribió en el mensaje de
>> noticias news:4830481b$[email=
1@ozsrv2.ozlan.local...]
1@ozsrv2.ozlan.local...[/email]
>>> Gracias por el apoyo.
>>>
>>> Con el siguiente método despliego en un oStatusBar los siguientes datos
>>>
>>> METHOD FormInitialize( oSender ) CLASS Menu
>>> ::oStatusBar1:aItems[1]:cText := cNombreEmpresa
>>> ::oStatusBar1:aItems[2]:cText := cNombreUsuario
>>> RETURN Nil
>>>
>>> En el transcurso del programa pueden cambiar las variables de:
>>>
>>> cNombreEmpresa
>>> cNombreUsuario.
>>>
>>> Como hago para refrescar el oStatusBar, para que se desplieguen los
>>> nuevos valores de las variables en la pantalla.
>>>
>>> Saludos
>>>
>>> Guillermo Guevara Carrillo
>>>
>>
>