Banner ou Letreiro

Mensagem por **asimoes** » 29 Dez 2007 12:07

Pessoal,

Alguém teria um exemplo de banner ou letreiro de mensagens.

[]´s

Mensagem por **asimoes** » 29 Dez 2007 17:45

Pessoal,

Consegui!

[]´s

MARCELOG · Mensagem por **MARCELOG** » 04 Jan 2008 11:59

Como?
Posta aí vaí!

MarceloG

Mensagem por **asimoes** » 04 Jan 2008 20:25

Código: Selecionar todos

Defina a variavel:

PRIVATE _Roda:=" ABCDEFGHIJKLMNOPQRSTUVWXYX "

Defina o label:

 @170,210 LABEL lbLetreiro                ;
               VALUE ""                            ;
               FONT "Courier New" SIZE 9 ;
               WIDTH 380 HEIGHT 20        ;
               BOLD                                 ;
               FONTCOLOR {42,85,255}    ;
               AUTOSIZE


Para fazer as letras rolarem

DEFINE TIMER Timer_1 ;
      INTERVAL 1000 ;
      ACTION {|x|LETREIRO()}

FUNCTION LETREIRO
MEMVAR _Roda
WIN_1.lbLetreiro.Value:=SUBSTR(_Roda,1,LEN(_Roda))
_Roda := SUBSTR(_Roda,2,LEN(_Roda))+SUBSTR(_Roda,1,1)
RETURN NIL

Boas Sorte.

[]´s :)Pos

Mensagem por **Stanis Luksys** » 10 Jan 2008 20:39

Opa,

Você pode também fazer um gif por fora ou algo assim e utilizar o animate window... Fica legal...

Mensagem por **asimoes** » 10 Jan 2008 23:06

Caro Stanis,

Como diria, o céu é o limite, para imaginação. :)Pos

momente · Mensagem por **momente** » 11 Jan 2008 16:53

Stanis,

Oque eu posso usar pra criar um gif?

Valeu!

Mensagem por **rochinha** » 10 Fev 2008 02:14

Amiguinho

estes emoticons que aparecem nas mensagens são GIFs animados que na verdade, se voce usar um destrinchador de GIFs como IrfanView tera como resposta uma sequencia de imagens que formam o filminho.

Para criar um filminho animado voce precisa de uma sequencia de imagens que podem ser feitas no PaintBrush e depois juntá-las usando o GifAnimator.