Défilement automatique dans un Memo

**Faith's Fall** · 12/12/2006, 20h35

Bonjour,

J'ai un petit souci en C++Builder. Sur ma fenêtre principale, je dispose d'un Memo (Composant RichEdit). Sur un commande, j'appelle le composant TJvCreateProcess de la librairie Jedi, ce qui met du texte dans le memo. La pour le moment il fait sont boulot correctement.

Le problème je ne vois pas comment faire pour que le memo défile en meme temps que le texte car la actuellement il est bloquer au debut, cad qu'il ne défile pas.

En gros je voudrai que la derniere ligne du log soit afficher tout le temps.

Quelqu'un à déjà eu ce problème ou connait une technique pour me sortir de ceux problème ?

d'avance.

**Sunchaser** · 12/12/2006, 20h56

Bonsoir,

Avec :

Code :

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

1
2
 
PostMessage(RichEdit1->Handle,WM_VSCROLL, SB_PAGEDOWN, NULL);

(pas sur, pas sur ...)

@ +

**Faith's Fall** · 12/12/2006, 22h16

Envoyé par Sunchaser

Bonsoir,

Avec :

Code :

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

1
2
 
PostMessage(RichEdit1->Handle,WM_VSCROLL, SB_PAGEDOWN, NULL);

(pas sur, pas sur ...)

@ +

pour la réponse, mais malgré que sa compile, sa ne marche pas. Le memo bouge pas d'un poil

**Sunchaser** · 12/12/2006, 22h54

Memo rétif ...

Je suppose qu'avec le paramètre SB_BOTTOM, ça doit pas bouger non plus ...?

**Sunchaser** · 12/12/2006, 23h08

Je viens d'essayer avec un TRichEdit et :

Code :

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

1
2
 
PostMessage(RichEdit1->Handle,WM_VSCROLL, SB_BOTTOM, NULL);

et ... ben il va en bout de texte, qu'il y ait des scrollBars ou non.

Et chez toi ?

**Faith's Fall** · 12/12/2006, 23h10

Tu la mis dans quelle evenement ? Parce que chez moi il change rien. Peut etre le fait que le compo est pas vraiment un RichEdit mais une version améliorer.

En tout cas sa bouge pas d'un poil.

**Sunchaser** · 12/12/2006, 23h28

Ah moui effectivement, je ne m'étais pas beaucoup 'fatigué' :
j'ai juste essayé avec un RichEdit contenant un long, long, long texte et en placant le code dans un 'OnClick' d'un TButton.
C'est assez 'artificiel' comme situation, j'avoue.

Je ne connais point TJvCreateProcess, désolé ...

**Faith's Fall** · 12/12/2006, 23h42

Envoyé par Sunchaser

Ah moui effectivement, je ne m'étais pas beaucoup 'fatigué' :
j'ai juste essayé avec un RichEdit contenant un long, long, long texte et en placant le code dans un 'OnClick' d'un TButton.
C'est assez 'artificiel' comme situation, j'avoue.

Je ne connais point TJvCreateProcess, désolé ...

Ok pas grave, merci pour ton aide, je continue a chercher

**blondelle** · 13/12/2006, 00h11

Salut BWP-Necromance:
l'idee de Sunchaser n'est pas mauvaise j'ai fait un essai je remplis le Richedit et a la fin je fais un "PostMessage" si tu est dans une boucle tu insere le "PostMessage" a la fin
un 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
24
25
26
27
28
29
30
31
32
33
34
35
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
RichEdit1->Lines->Add("toto");
RichEdit1->Lines->Add("tata");
RichEdit1->Lines->Add("titi");
RichEdit1->Lines->Add("tete");
RichEdit1->Lines->Add("tutu");
RichEdit1->Lines->Add("toto");
RichEdit1->Lines->Add("tata");
RichEdit1->Lines->Add("titi");
RichEdit1->Lines->Add("tete");
RichEdit1->Lines->Add("tutu");
PostMessage(RichEdit1->Handle, WM_VSCROLL, SB_BOTTOM, 0);
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
RichEdit1->Lines->Add("bouton1");
PostMessage(RichEdit1->Handle, WM_VSCROLL, SB_BOTTOM, 0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
RichEdit1->Lines->Add("bouton2");
PostMessage(RichEdit1->Handle, WM_VSCROLL, SB_BOTTOM, 0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
RichEdit1->Lines->Add("bouton3");
PostMessage(RichEdit1->Handle, WM_VSCROLL, SB_BOTTOM, 0);
}

Si tu a besoin de voir defiler ton texte, apres chaque insertion de ligne tu fait un "PostMessage"

**Faith's Fall** · 13/12/2006, 00h17

J'ai tester sa:

Code :

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

1
2
3
4
5
6
7
void __fastcall TDMod::CProcessRead(TObject *Sender, const AnsiString S,
      const bool StartsOnNewLine)
{
        MainForm->MemoCompiler->Lines->Add(S);
        MainForm->StatBar->Panels->Items[2]->Text = "C";
        PostMessage(MainForm->MemoCompiler->Handle, WM_VSCROLL, SB_BOTTOM, 0);
}

Malheureusement il bouge pas

Pourtant il affiche le texte

Et théoriquement il devrait a chaque insertion d'une ligne descendre

Meme tester dans l'evenement OnChange et il veut pas

**blondelle** · 13/12/2006, 00h46

Je ne vois pas pourquoi cela ne marche pas, mais juste une idee comme cela a tu essaye de supprimer la ligne

MainForm->StatBar->Panels->Items[2]->Text = "C";

**Faith's Fall** · 13/12/2006, 01h00

Envoyé par blondelle

Je ne vois pas pourquoi cela ne marche pas, mais juste une idee comme cela a tu essaye de supprimer la ligne

J'ai enlever la ligne (meme si je pense que cela ne devrais rien changer) et toujours pareil. Il doit avoir une coquille qui merde quelque part

En tout cas merci pour ta proposition, mais je pense qu'il faut voir sur un autre moyen...

**Interruption13h** · 13/12/2006, 01h57

Salut !

Je croi que c'est plutôt un SendMessage :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14

RichEdit1->Lines->Add("toto");
RichEdit1->Lines->Add("tata");
RichEdit1->Lines->Add("titi");
RichEdit1->Lines->Add("tete");
RichEdit1->Lines->Add("tutu");
RichEdit1->Lines->Add("toto");
RichEdit1->Lines->Add("tata");
RichEdit1->Lines->Add("titi");
RichEdit1->Lines->Add("tete");
RichEdit1->Lines->Add("tutu");

SendMessage(RichEdit1->Handle, WM_VSCROLL, SB_BOTTOM, 0);

Bonne continuation !

**kmaniche** · 13/12/2006, 07h58

Pour un TMemo, j'ai utilisé la proproété TCaretPos, et Memo1 -> Text.Length()
Tu peut aussi utiliser Memo1 -> SelStart, Memo1 -> SelLength avec Memo1 -> Text.Length(); pour contourner le problème.

**Faith's Fall** · 13/12/2006, 10h43

Bon merci a tous pour votre aide, en fait le compo que j'avais etait a base de RichEdit, mais aucune manip' ne marchait dessus. J'ai tester avec un vrai RichEdit et la sa marche. (La solution avec SendMessage, mais je pense que PostMessage doit aussi fonctionner alors).

Donc je vous remercie et je peut enfin passer a autre chose

C'est résolu

Défilement automatique dans un Memo

C++Builder

Discussions similaires

Partager

Partager