Letreiro Digital

Delphi

25/10/2005

Olá Gente,
Gostaria de uma ajudinha de vocês
Tenho a seguinte Rotina do Timer:
Texto := pnlLetreiro.Caption;
pnlLetreiro.Caption :=
Copy(Texto, 2 , length(Texto) -1) + Copy(Texto,1,1);

Mas o que acontece?
Funciona direitinho, mas por um capricho meu, gostaria de que o texto do Panel Fosse
De ponta a ponta...
Assim que terminasse Já começasse na outra Ponta, me entenderam?

Quem tiver uma ideia, por favor...

Abraços


Tremonti

Tremonti

Curtidas 0

Respostas

Massuda

Massuda

25/10/2005

O código que você postou faz algo assim...

ABCDEF
BCDEFA
CDEFAB
...

Como você quer que seja?


GOSTEI 0
Tremonti

Tremonti

25/10/2005

Isso Mesmo...
Agora vamos imaginar um panel de 500 Width(largura)

e um texto de 4 caracteres..

Executa ... nao fica feio?

Gostaria que ele percorresse o panel inteiro...

Abraços...


GOSTEI 0
POSTAR