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
1

1 Respuesta

68.000 pts.
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.
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
**************************************************

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas