Conception du texte défilant

Version imprimable

11/10/2015, 12h00
FOCUS77

Conception du texte défilant

Bonjour à tous :P

Quelles fonctions faut-il utiliser pour faire du texte défilant ?

merci d'avance
11/10/2015, 14h06
BeanzMaster

Salut

Tu peux utiliser l'objet TCanvas et un TTimer ou simple un TLabel et TTimer

Avec une simple recherche sur Google : :oops:

cf : http://forum.lazarus.freepascal.org/...?topic=24646.0
http://wiki.freepascal.org/ScrollText
http://delphi.about.com/od/vclusing/a/marquee.htm
http://lazplanet.blogspot.ch/

Voili voilou :zoubi:

Problème réglé

salut beanz

et merci pour ton aide qui a réglé mon problème
avec le paquet de cette page: http://sourceforge.net/p/lazarus-ccr...ee/components/

cependant j'ai voulu essayer ça avec un Label
mais j'ai pas pu faire un espacement entre la fin et le début d'une nouvelle phrase.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 var Form1: TForm1; txt2:string; procedure TForm1.Timer1Timer(Sender: TObject); var txt1: string; begin txt1 := txt2; Label1.Caption := Copy(txt1,2, Length(txt1) - 1)+' '+Copy(txt1,1,1) ; txt2:=Copy(txt1,2, Length(txt1) - 1)+Copy(txt1,1,1); end; procedure TForm1.Timer1StartTimer(Sender: TObject); begin txt2:='Bonjour à tous' end;
qui pourra me corriger ça?

merci d'avance.

Citation:

Envoyé par FOCUS77

cependant j'ai voulu essayer ça avec un Label
mais j'ai pas pu faire un espacement entre la fin et le début d'une nouvelle phrase.

Ce pourrait être ceci :
Code:

1 2 3 4 5 6 7 8 9 10 procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption := Copy(VTxt,2, Length(VTxt) - 1) + Copy(VTxt,1,1); VTxt:= Copy(VTxt,2, Length(VTxt) - 1) + Copy(VTxt,1,1); end; procedure TForm1.Timer1StartTimer(Sender: TObject); begin Vtxt:=' ' + 'Bonjour à tous'; end;
Notes :
* la variable txt1 est inutile ;
* il suffit d'ajouter l'espace intercalaire au début de la chaîne à faire défiler.

A bientôt,
Gilles

Bonsoir

c'est ce que je cherchais, merci Gilles
J'ai amélioré les codes précédents en codes suivants:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
var
  Form1: TForm1 ; i,j:integer; 
 
procedure TForm1.Timer1Timer(Sender: TObject);
var txt1:string;
begin
    if i<16 then
    begin
   if i=9 then     // pour sauter le caractère accentué
    i:=10; 
    txt1:='Bonjour à tous';
    label1.Caption :=copy(txt1,1,i);
    end
    else if i<84 then
    label1.Caption :=label1.Caption+'  '
    else
    i:=0;
   i:=i+1;
end;
 
procedure TForm1.Timer1StartTimer(Sender: TObject);
begin
  label1.Width:=392  ;
  label1.Alignment:=tarightJustify ;
  Timer1.Interval:=100 ;
  i:=j;
end;
 
procedure TForm1.Timer1StopTimer(Sender: TObject);
begin
  j:=i
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if timer1.Enabled=true then
  timer1.Enabled:=false
  else
  timer1.Enabled:=true ;
end;

merci à tous 8-)