FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Colocar CLOCK a la derecha en SET MESAGGE
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Colocar CLOCK a la derecha en SET MESAGGE
Posted: Thu Oct 15, 2009 08:38 PM
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 (fw): Select all Collapse
  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
Saludos,



Adhemar C.
Posts: 299
Joined: Mon Oct 22, 2007 03:03 PM
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Thu Oct 15, 2009 09:07 PM

acaso probastes esto??

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



Angel, Valencia, Venezuela



xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Thu Oct 15, 2009 09:21 PM
Gracias Angel

Ya intenté de esta forma
Code (fw): Select all Collapse
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
Saludos,



Adhemar C.
Posts: 299
Joined: Mon Oct 22, 2007 03:03 PM
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 01:14 PM

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)

:oops:

Saludos



Angel, Valencia, Venezuela



xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 01:25 PM

Gracias Manuel

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

Saludos

Adhemar

Saludos,



Adhemar C.
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 02:02 PM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 03:04 PM
Armando

Colocando
Code (fw): Select all Collapse
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 (fw): Select all Collapse
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
Saludos,



Adhemar C.
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 03:34 PM
Hola Adhemar...
Prueba lo siguiente:

Code (fw): Select all Collapse
   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.
Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 03:38 PM
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 (fw): Select all Collapse
SET MESSAGE OF oWindow TO "Copyright AcrSoft Inc."+Str(Year(Date()),4)  + "SOCIEDAD HOTELERA" 2007 CLOCK


Espero haberme explicado

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 04:05 PM
Adhemar:

Esteban le ha dado al clavo

Code (fw): Select all Collapse
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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 05:16 PM

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

Saludos,



Adhemar C.
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: Colocar CLOCK a la derecha en SET MESAGGE
Posted: Fri Oct 16, 2009 06:14 PM

Perfecto!!! :wink:
Saludos, Esteban.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

Continue the discussion