Discussion :

[cincap]

Bonjour à toutes et à tous,

J'utilise un composant TRichEdit pour une lecture d'un texte de couleur "clwhite" genre téléscripteur avec une couleur "clyellow".

Le texte lu mot par mot devient jaune.

Code :

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

1
2
 
RichEdit1.SelAttributes.Color := clyellow;

Lorsque la lecture est finie j'aurai aimé que le texte de couleur "clwhite" ne soit plus avec le survol jaune et recommence la lecture.

Le seul moyen que j'ai trouvé est de copier le texte dans un TMemo et l'associer au TRichEdit et de le recharger pour le relire :

Code :

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

1
2
3
 
 Richedit1.text :='';
 Richedit1.Text := Memo1.Text;

Cela fonctionne mais il me semble qu'il devrait avoir une autre façon qui pourrait fonctionner sans l'ajout du TMemo.

Merci d'avance,

@+,

cincap

[XeGregory]

Richedit1.Plaintext := True

[cincap]

@ XeGregory, merci de ton retour mais désolé je l'avais déjà coché dans sa propriété.

Jusque maintenant avec tous mes tests seul celui ou je recharge TRichEdit fonctionne bien.

Je vais tester en loadfromfile avec un fichier on verra.

@+,

cincap

[XeGregory]

@ XeGregory, merci de ton retour mais désolé je l'avais déjà coché dans sa propriété.

Jusque maintenant avec tous mes tests seul celui ou je recharge TRichEdit fonctionne bien.

Je vais tester en loadfromfile avec un fichier on verra.

@+,

cincap

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
24
var
  OriginalRTF: TMemoryStream;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Préparer le stream et y sauvegarder le contenu RTF initial
  OriginalRTF := TMemoryStream.Create;
  RichEdit1.PlainText := False; // ON s’assure qu’on sauve le RTF, pas le texte brut
  RichEdit1.Lines.SaveToStream(OriginalRTF);
end;
 
procedure TForm1.RestoreOriginalRTF;
begin
  if Assigned(OriginalRTF) then
  begin
    OriginalRTF.Position := 0;
    RichEdit1.Lines.LoadFromStream(OriginalRTF);
  end;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  OriginalRTF.Free;
end;

[cincap]

Bonjour à toutes et à tous,

@ XeGregory, merci de ton aide, je n'arrives pas à utiliser le code pour mon application et par contre le test avec le chargement du fichier .txt fonctionne sauf qu'il y a un petit tremblement du TRichEdit lors de la voix que j'ai essayé de combler avec "doublebuffered" à true.

Je pense que je vais garder ma première idée.

@+,

cincap

[cincap]

Bonjour à toutes et à tous,

J'ai adopté le fait de mettre mon fichier .txt en ressource et à l'ouverture de l'application je le sauve dans son dossier et enfin à la fin de la lecture du texte, j'efface le TRichEdit et je le recharge avant la relecture.

Ce topic peut être fermé.

Merci,

@+,

cincap