Ejemplo de SET MESSAGE en FiveLinux

[jgayoso]

Tengo un SET MESSAGE en mi menu principal y quiero ir cambiando el texto a medida que pasa por otros lados.

Al colocar SET MESSAGE funciona bien pero cuando quiero actualizar el mensaje, no he conseguido hacerlo.

DEFINE WINDOW oWnd_Principal TITLE cTitulo SIZE 800, 600
SET MESSAGE OF oWnd_Principal TO " Hola "


ACTIVATE WINDOW oWnd_Principal


¿como lo puedo hacer para cambiar el mensaje en otro proceso?
He probado:
SET MESSAGE OF oWnd_Principal TO " Chao "
oWnd_Principal:oMsgBar:SetText("Chao")
oWnd_Principal:oMsgBar:cMsg:="Chao"


Cualquier ayuda se agradece...

Jorge Gayoso

[Antonio Linares]

Jorge,

Prueba este ejemplo, por el momento es una solución a falta de implementar MESSAGE en los MENUITEMS:

Code: Select all  Expand view  RUN

#include "FiveLinux.ch"

static oWnd

function Main()

   DEFINE WINDOW oWnd TITLE "Menu test" MENU BuildMenu()

   SET MESSAGE OF oWnd TO "FiveLinux power!"

   ACTIVATE WINDOW oWnd

return nil

function BuildMenu()

   local oMenu

   MENU oMenu
     MENUITEM "One" ACTION oWnd:oMsgBar:SetText( "One" )
     MENUITEM "Two" ACTION oWnd:oMsgBar:SetText( "Two" )
     MENUITEM "Three" ACTION oWnd:oMsgBar:SetText( "Three" )
   ENDMENU

return oMenu
 

[jgayoso]

Ok, resulto bien.

Se agradece.

Tengo un SET MESSAGE en mi menu principal y quiero ir cambiando el texto a medida que pasa por otros lados.

Al colocar SET MESSAGE funciona bien pero cuando quiero actualizar el mensaje, no he conseguido hacerlo.

DEFINE WINDOW oWnd_Principal TITLE cTitulo SIZE 800, 600
SET MESSAGE OF oWnd_Principal TO " Hola "


ACTIVATE WINDOW oWnd_Principal


¿como lo puedo hacer para cambiar el mensaje en otro proceso?
He probado:
SET MESSAGE OF oWnd_Principal TO " Chao "
oWnd_Principal:oMsgBar:SetText("Chao")
oWnd_Principal:oMsgBar:cMsg:="Chao"


Cualquier ayuda se agradece...

Jorge Gayoso