Colocar CLOCK a la derecha en SET MESAGGE

[acuellar]

Hola a todos

Cómo hago para que la hora apareza a la derecha en SET MESSAGE despues de un texto colocado con MSGITEM?
He tratado asi

Code: Select all  Expand view

  SET MESSAGE OF oWnd TO "Copyright AcrSoft Inc."+Str(Year(Date()),4) 2007
  DEFINE MSGITEM OF oWnd:oMsgBar PROMPT 'SOCIEDAD HOTELERA "LOS TAJIBOS S.A."' SIZE 400 COLOR CLR_BLUE
  DEFINE MSGITEM OF oWnd:oMsgBar CLOCK SIZE 100
 

Pero no muestra la hora

Gracias por la ayuda

Saludos

Adhemar

[ADBLANCO]

acaso probastes esto??

SET MESSAGE OF oWnd TO TXT_PREVIEW CENTERED ;
NOINSET CLOCK DATE KEYBOARD

[acuellar]

Gracias Angel

Ya intenté de esta forma

Code: Select all  Expand view

SET MESSAGE OF oWnd TO "Copyright AcrSoft Inc."+Str(Year(Date()),4)+Space(40)+'SOCIEDAD HOTELERA "LOS TAJIBOS S.A."' 2007 CLOCK
 

Funciona, el problema es cuando estoy en el MENUITEM muestra su MESSAGE y desaparece el nombre de la empresa, además no lo coloca entre | | que se ve mas elegante.

Gracias una vez mas,

Saludos

Adhemar

[ADBLANCO]

Solo se me ocurre que te inventes una rutina que le mandes el mensaje y siempre le sume el nombre de la empresa.

No lo he intentado nunca, yo tengo el nombre de la empresa en el encabezado del windows principal, me pareció menos complicado y como mando mensajes bastante grandes, necesito ese espacio con desesperación. (Aunque por experiencia los usuarios no los leen)

[acuellar]

Gracias Manuel

Seguiré esperando..., quizas alguien tenga la solución.


Saludos

Adhemar

[Armando]

Adhemar:

Sería más ilustrativo si colocas una imagén del problema.

Yo tengo el nombre de la empresa y se muestra bien.

Saludos

[acuellar]

Armando

Colocando

Code: Select all  Expand view

SET MESSAGE OF oWnd TO "Copyright AcrSoft Inc."+Str(Year(Date()),4)+Space(40)+'SOCIEDAD HOTELERA "LOS TAJIBOS S.A."' 2007 CLOCK
 

Sale así

Cuando estoy en el menú asi


Colocando

Code: Select all  Expand view

SET MESSAGE OF oWnd TO "Copyright AcrSoft Inc."+Str(Year(Date()),4) 2007
  DEFINE MSGITEM OF oWnd:oMsgBar PROMPT 'SOCIEDAD HOTELERA "LOS TAJIBOS S.A."' SIZE 400 COLOR CLR_BLUE
  DEFINE MSGITEM OF oWnd:oMsgBar CLOCK SIZE 100
 

Sale así:

Cuando estoy en el menú asi

De esta forma no muestra la hora, y para mi es importante indica que el sistema no esta colgado ya que funciona con puertos COM

Gracias por la ayuda

Saludos

Adhemar

[jrestojeda]

Hola Adhemar...
Prueba lo siguiente:

Code: Select all  Expand view

   Mensaje:="Mystic Soft(c)2009 ''Software solution'' Versión 1.00 (32 bits) By Ojeda Esteban Eduardo"

   SET MESSAGE OF oWnd TO Mensaje 2007

   DEFINE MSGITEM MsgNew OF oWnd:oMsgBar SIZE 60;
      PROMPT "Calculadora";
      TOOLTIP "Calculadora";
      ACTION WinExec ("Calc")

   DEFINE MSGITEM MsgNew OF oWnd:oMsgbar SIZE 60;
      PROMPT "Impresora";
      TOOLTIP "Impresora por Defecto";
      ACTION PrinterSetup()

   oWnd:oMsgBar:KeybOn()
   oWnd:oMsgBar:ClockOn()
   oWnd:oMsgBar:DateOn()
 

Con ese código quedá así:



Nota: La primera imagen es cuando no estoy caminando por el menú principal del programa, la segunda cuando si camino sobre el menú. En ambos casos el reloj la fecha y el estado del teclado se ven correctamente y a la derecha.


Espero te sirva.

[Armando]

Adhemar:

Entiendo lo que requieres y, hasta donde mis conocimientos me ayudan, me parece que va a ser dificil conseguirlo, me explico;

1.- He intentado compilar tu segundo ejemplo y me tira un error, creo que tambien debería tirartelo a tí pues estamos definiendo la cláusula CLOCK sobre un MSGITEM y esa cláusula debe ir sobre la barra de mensajes SET MESSAGE bla bla bla CLOCK 2007

2.- La barra de mensajes se forma primero con el mensaje y posteriormente el resto de las cláusulas KEYBOARD CLOCK etc etc.

3.- Despues de armar la barra de mensajes podemos agregar más items (msgitem) pero siempre van despues de las cláusulas de la barra de mensajes, por lo tanto el texto "SOCIEDAD HOTELERA etc" aparecerá despues del CLOCK y así no se ve bien

4.- Una posible solución sería concatenar los textos en la barra de mensajes

Code: Select all  Expand view

SET MESSAGE OF oWindow TO "Copyright AcrSoft Inc."+Str(Year(Date()),4)  + "SOCIEDAD HOTELERA" 2007 CLOCK

Espero haberme explicado

Saludos

[Armando]

Adhemar:

Esteban le ha dado al clavo

Code: Select all  Expand view

SET MESSAGE OF oWindow TO "Copyright AcrSoft Inc."+Str(Year(Date()),4) 2007

DEFINE MSGITEM OF oWindow:oMsgBar PROMPT 'SOCIEDAD HOTELERA "LOS TAJIBOS S.A."' SIZE 400 COLOR CLR_BLUE

    oWindow:oMsgBar:KeybOn()
    oWindow:oMsgBar:ClockOn()
    oWindow:oMsgBar:DateOn()
 

Saludos

[acuellar]

Gracias Esteban

Funciona Perfecto

Tenía la esperanza de que alguien tenía la solución. ESTE FORO ES PODEROSO

Gracias a todos por la ayuda.

Saludos

Adhemar

[jrestojeda]

Perfecto!!!
Saludos, Esteban.