Discussion :

[Pretender]

est-ce qu'il est possible de faire scroller un texte dans un Label? si oui, comment?

merchi pour toutes vos réponses

[Lung]

Tu parles d'un scroll horizontal ?

[Pretender]

euh oui, si possible de droite à gauche


dsl ne pa avoir précisé

[tintin22]

La fiche contient un TLabel et un TTimer (interval=100 par exemple)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
var
  Form1: TForm1;
 
  i  : Integer = 0 ;
  di : ShortInt = +1 ; // direction
  S  : String ;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
     Label1.Caption:=Copy(S,i,Length(S)-i+1) ;
     i:=i+di ;
     If (i>Length(s)) Or (i<1) Then di:=-di ;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
     S:=Label1.Caption ;
end;

j'espère que c'est ce que tu recherchais

[tintin22]

tu mets quelque chose dans Label1.Caption , bien sûr

[Pretender]

oui merci bcp, mais il va de droite à gauche puis il revient de la gauche!

ya pa moyen de le faire scroller en continue de la droite vers la gauche?
comme dans winamp

merci

[Lung]

Mais, si !
Si on reprend l'exemple de ilyes, tu affiche en plus en premier, la portion de chaîne (extrémité droite) qui disparait.

[ushu]

En reprennant un peu l'exemple de ilyes, tu peut taper :

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=Copy(Label1.Caption,2,Length(Label1.Caption)-1) + " " + Copy(S,1,2) ;
end;

En s'assurant que tu tapes bien la chaine complète dans Label1.Caption sans oublier l'espace (ou plusieurs) à la fin afin d'éviter que la suite soit collée

Voilà je pense, que ceci devrait correspondre un peu à ce que fait Winamp

[ushu]

Désolé j'ai fait une petite erreur.
J'ai oublié de remplacer "S" par Label1.Caption.

Voici le code corrigé, j'ai même rajouter la Variable "SautNbCaractere" qui permet de définir le nombre de caractères par scroll :

var
Form1: TForm1;
SautNbCaractere : Integer = 1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=Copy(Label1.Caption,SautNbCaractere,Length(Label1.Caption)-SautNbCaractere) + " " + Copy(Label1.Caption,1,SautNbCaractere) ;
end;

[Pretender]

merci beacup