Texto tipo final de película
Disculpen que no pueda porner un titulo ideal o correcto, pero mi inquietud, sobre lo que quiero preguntar no es porque lo necesite, más bien porque se me ocurrió y vi en otros aplicativos:
Quisiera saber si hay una forma de hacer que un determinado texto, por ejemplo un párrafo de ayuda se deslice hacia arriba tipo las letras que salen al final de las películas y se pierden bajo un panel. Esto lo vi en Corel Draw en la ventana de Acerca de...
Muchas Gracias
Quisiera saber si hay una forma de hacer que un determinado texto, por ejemplo un párrafo de ayuda se deslice hacia arriba tipo las letras que salen al final de las películas y se pierden bajo un panel. Esto lo vi en Corel Draw en la ventana de Acerca de...
Muchas Gracias
1 Respuesta
Respuesta de miron
1
Claro que se puede.
Hay 3 fomas
1.- Impmentar una clase que desplace los títulos a través de un contenedor.
2.- A través de APIS.
3.- Utilizando objectos activex u ole.
Hay 3 fomas
1.- Impmentar una clase que desplace los títulos a través de un contenedor.
2.- A través de APIS.
3.- Utilizando objectos activex u ole.
Si no seria mucha molestia, me podría enviar un ejemplo.
Bueno este código te hace un banner horizontal con unos pocos cambios lo podrás hacer vertical.
**************************************************
*-- Class: banner
*-- ParentClass: container
*-- BaseClass: container
*-- Marca de hora: 06/28/01 11:51:03 AM
*
DEFINE CLASS banner AS container
Width = 200
Height = 23
SpecialEffect = 1
BackColor = RGB(255,255,255)
*-- Indica el sentido de desplazamiento del texto (.t. Hacia la derecha, .f. hacia la izquierda)
sentido = .T.
Name = "banner"
ADD OBJECT texto AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Banner", ;
Height = 17, ;
Left = 0, ;
Top = 3, ;
Width = 42, ;
Name = "texto"
ADD OBJECT timer1 AS timer WITH ;
Top = 0, ;
Left = 0, ;
Height = 23, ;
Width = 23, ;
Interval = 40, ;
Name = "Timer1"
*-- Método que actualiza la el sentido del desplazamiento y el color del texto.
PROCEDURE cambiarletrero
local lnRojo, lnVerde, lnAzul
this.sentido = ! this.sentido
= rand( -1 )
m.lnRojo = int( 256 * rand() )
m.lnVerde = int( 256 * rand() )
m.lnAzul = int( 256 * rand() )
This.texto.foreColor = rgb( m.lnRojo, m.lnVerde, m.lnAzul )
ENDPROC
PROCEDURE timer1.Timer
if this.parent.sentido
if ( This.parent.texto.left + This.parent.texto.width ) < This.parent.width
This.parent.texto.left = This.parent.texto.left + 1
else
this.parent.cambiarLetrero()
endIf
else
if This.parent.texto.left > 0
This.parent.texto.left = This.parent.texto.left - 1
else
this.parent.cambiarLetrero()
endIf
endIf
ENDPROC
ENDDEFINE
*
*-- EndDefine: banner
**************************************************
**************************************************
*-- Class: banner
*-- ParentClass: container
*-- BaseClass: container
*-- Marca de hora: 06/28/01 11:51:03 AM
*
DEFINE CLASS banner AS container
Width = 200
Height = 23
SpecialEffect = 1
BackColor = RGB(255,255,255)
*-- Indica el sentido de desplazamiento del texto (.t. Hacia la derecha, .f. hacia la izquierda)
sentido = .T.
Name = "banner"
ADD OBJECT texto AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Banner", ;
Height = 17, ;
Left = 0, ;
Top = 3, ;
Width = 42, ;
Name = "texto"
ADD OBJECT timer1 AS timer WITH ;
Top = 0, ;
Left = 0, ;
Height = 23, ;
Width = 23, ;
Interval = 40, ;
Name = "Timer1"
*-- Método que actualiza la el sentido del desplazamiento y el color del texto.
PROCEDURE cambiarletrero
local lnRojo, lnVerde, lnAzul
this.sentido = ! this.sentido
= rand( -1 )
m.lnRojo = int( 256 * rand() )
m.lnVerde = int( 256 * rand() )
m.lnAzul = int( 256 * rand() )
This.texto.foreColor = rgb( m.lnRojo, m.lnVerde, m.lnAzul )
ENDPROC
PROCEDURE timer1.Timer
if this.parent.sentido
if ( This.parent.texto.left + This.parent.texto.width ) < This.parent.width
This.parent.texto.left = This.parent.texto.left + 1
else
this.parent.cambiarLetrero()
endIf
else
if This.parent.texto.left > 0
This.parent.texto.left = This.parent.texto.left - 1
else
this.parent.cambiarLetrero()
endIf
endIf
ENDPROC
ENDDEFINE
*
*-- EndDefine: banner
**************************************************
