Page 1 of 1
Colocar CLOCK a la derecha en SET MESAGGE
Posted: Thu Oct 15, 2009 8:38 pm
by 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
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
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Thu Oct 15, 2009 9:07 pm
by ADBLANCO
acaso probastes esto??
SET MESSAGE OF oWnd TO TXT_PREVIEW CENTERED ;
NOINSET CLOCK DATE KEYBOARD
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Thu Oct 15, 2009 9:21 pm
by acuellar
Gracias Angel
Ya intenté de esta forma
Code: Select all
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
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 1:14 pm
by 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)
![Embarassed :oops:](./images/smilies/icon_redface.gif)
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 1:25 pm
by acuellar
Gracias Manuel
Seguiré esperando..., quizas alguien tenga la solución.
Saludos
Adhemar
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 2:02 pm
by 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
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 3:04 pm
by acuellar
Armando
Colocando
Code: Select all
SET MESSAGE OF oWnd TO "Copyright AcrSoft Inc."+Str(Year(Date()),4)+Space(40)+'SOCIEDAD HOTELERA "LOS TAJIBOS S.A."' 2007 CLOCK
Sale así
![Image](http://200.58.176.148/paquetes/menu1.jpg)
Cuando estoy en el menú asi
Colocando
Code: Select all
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í:
![Image](http://200.58.176.148/paquetes/menu3.jpg)
Cuando estoy en el menú asi
![Image](http://200.58.176.148/paquetes/menu4.jpg)
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
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 3:34 pm
by jrestojeda
Hola Adhemar...
Prueba lo siguiente:
Code: Select all
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 _ el reloj la fecha y el estado del teclado se ven correctamente y a la derecha.
Espero te sirva.
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 3:38 pm
by 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
SET MESSAGE OF oWindow TO "Copyright AcrSoft Inc."+Str(Year(Date()),4) + "SOCIEDAD HOTELERA" 2007 CLOCK
Espero haberme explicado
Saludos
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 4:05 pm
by Armando
Adhemar:
Esteban le ha dado al clavo
Code: Select all
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
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 5:16 pm
by 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
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 6:14 pm
by jrestojeda
Perfecto!!!
Saludos, Esteban.