Marquesina, Muy buen Efecto!!!!

*****************************************
*Aplicación de ejemplo para crear
* una Marquesina deslizante con la
* fecha y hora actual.
* © Alejandro Gómez Torres
* Espero les guste!!!
****************************************

WITH _Screen
.AddObject( [MySign], [Sign], 0, 0 )
.AddObject( [MyTime], [OnTime] )
.WindowState= 2 && Maximizada
.Caption = [Marquesina]
.BackColor= RGB(0,0,0)
.BindControls= .F.
.ClipControls= .F.
.Closable = .F.
.ControlBox= .F.
.Visible = .T.
ENDWITH

** pon algún codigo por aquí
** puedes abrir un pequeño form
** pero cuida que sea más pequeño
** que el tamaño del form de VFP

READ EVENTS


_Screen.RemoveObject ([MyTime])
_Screen.RemoveObject ([MySign])


****************************************
* Definición de la clase Sign
* Contendrá La fecha y la hora actual
****************************************


DEFINE CLASS Sign AS Label
Visible = .T.
BackStyle= 0
FontName =[Times New Roman]
FontSize = 20
Height = 50
Left = _Screen.Width+ 1
Top = _Screen.Height- 50
Autosize = .T.
Autocenter= .T.
Caption = []
ForeColor= RGB ( 255,255,128)

PROCEDURE Init
LPARAMETERS nTop, nLeft
THIS.Top= _Screen.Height - 100
ENDPROC

ENDDEFINE


****************************************
* Definición de la clase OnTime
* Timer que creará el efecto de animación
****************************************

DEFINE CLASS OnTimeAsTimer
InterVal= 10

PROCEDURE Timer
LPARAMETERS nTop, nLeft

cFechaHora= []

DO Case
CASE DOW(DATE()) = 1
cFechaHora = "Domingo"
CASE DOW(DATE()) = 2
cFechaHora = "Lunes"
CASE DOW(DATE()) = 3
cFechaHora = "Martes"
CASE DOW(DATE()) = 4
cFechaHora = "Miércoles"
CASE DOW(DATE()) = 5
cFechaHora = "Jueves"
CASE DOW(DATE()) = 6
cFechaHora = "Viernes"
CASE DOW(DATE()) = 7
cFechaHora = "Sábado"

EndCase
cFechaHora= cFechaHora + " " +;
ALLTRIM(STR(DAY(DATE()))) + " de "

DO Case
CASE MONTH(DATE()) = 1
cFechaHora= cFechaHora + ;
" Enero "
CASE MONTH(DATE()) = 2
cFechaHora = cFechaHora + ;
" Febrero "
CASE MONTH(DATE()) = 3
cFechaHora = cFechaHora + ;
" Marzo "
CASE MONTH(DATE()) = 4
cFechaHora = cFechaHora + ;
" Abril "
CASE MONTH(DATE()) = 5
cFechaHora = cFechaHora + ;
" Mayo "
CASE MONTH(DATE()) = 6
cFechaHora = cFechaHora + ;
" Junio "
CASE MONTH(DATE()) = 7
cFechaHora = cFechaHora + ;
" Julio "
CASE MONTH(DATE()) = 8
cFechaHora = cFechaHora + ;
" Agosto "
CASE MONTH(DATE()) = 9
cFechaHora = cFechaHora + ;
" Septiembre "
CASE MONTH(DATE()) = 10
cFechaHora = cFechaHora + ;
" Octubre "
CASE MONTH(DATE()) = 11
cFechaHora = cFechaHora + ;
" Noviembre "
CASE MONTH(DATE()) = 12
cFechaHora = cFechaHora + ;
" Diciembre "

ENDCASE
cFechaHora= cFechaHora + "de " + ;
ALLTRIM(STR(YEAR(DATE()))) + " " + ;
TIME()

_screen.MySign.Caption = cFechaHora
IF _Screen.MySign.Left >= -500
_Screen.MySign.Left = ;
_Screen.MySign.Left - 1
ELSE
_Screen.MySign.Left = ;
_Screen.Width + 1
EndIf
ENDPROC

ENDDEFINE