Discussion :

[LE CHAKAL]

Salut,

Je travaille sur un système de karaoké.

Pour cela,J'ai écrit des fonctions de coloriage de mots et de ligne pour un composant RichEdit.

Je dois suivre le texte lu a partir d'un fichier son et le synchronisé avec le texte ecrit dans le Richedit. Je fais cela avec des timers.

Mon prob est le suivant : Le richedit clignote pas mal car je lui applique assez frequemment mes fonctions de coloriage.

Quelqu'un saurait-il empecher ce clignotement ? J'ai essayé avec un HideCaret mais ca ne marche pas.

En mettant un fond noir, on ne voit plus le clignotement du richedit, mais c'est la solution de facilité qui ne me convient pas.


Merci de me proposer votre aide.

[Merlin]

Le richedit n'est pas vraiment étudié pour ce genre de chose.
Le mieux est d'écrire sur une zone graphique (tpainbox par ex) le texte, au fur et à mesure.
De toute façon un karaoké çà n'affiche pas 100 lignes de textes formattées avec des listes à puce et autre fioritures, juste 1 ou 2 lignes de texte en gros (en général) donc ...

[FWS]

Une astuce consiste à placer le RichEdit sur un TPanel et d'inverser la propriété Enabled du TPanel.

Cordialement.

[antp]

Tu peux essayer d'activer la propriété DoubleBuffered du TRichEdit (si elle existe) ou bien du composant sur lequel est le TRichEdit (Form, Panel)

[LE CHAKAL]

Aedium a écrit

Une astuce consiste à placer le RichEdit sur un TPanel et d'inverser la propriété Enabled du TPanel.

J'ai essayé. C'est catastrophique ! Plus aucun texte ne veut s'afficher dans le RichEdit !

antp a écrit

Tu peux essayer d'activer la propriété DoubleBuffered du TRichEdit

J'ai essayé. Ca ne fait strictement rien de mieux. Et en plus je suis en train de réaliser un composant à part entière alors pas question de greffé un TPanel derrière mon composant héritant de la classe TRichEdit.


Merci de m'aider, c'est pas mon fort les problèmes de scintillement.

[FWS]

Ce n'est pas la solution complète mais c'est déjà une piste.

Code :

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

1
2
3
4
procedure TForm1.RichEdit1Change(Sender: TObject);
begin
  HideCaret(RichEdit1.handle);
end;

Bonne continuation.

[Smortex]

Et avec les propriétés BeginUpdate et EndUpdate qui permettent de stoper la mise à jour de l'affichage durant les modifications ?