Défilement automatique dans un Memo

Version imprimable

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

Défilement automatique dans un Memo

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 ?

:merci: d'avance. ;)
12/12/2006, 20h56
Sunchaser
Bonsoir,

Avec :
Code:

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

@ + ;)
12/12/2006, 22h16
Faith's Fall
Citation:
Envoyé par Sunchaser

Bonsoir,

Avec :

Code:

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

(pas sur, pas sur ...)

@ + ;)
:merci: pour la réponse, mais malgré que sa compile, sa ne marche pas. Le memo bouge pas d'un poil :(
12/12/2006, 22h54
Sunchaser

Memo rétif ...

Je suppose qu'avec le paramètre SB_BOTTOM, ça doit pas bouger non plus ...?
12/12/2006, 23h08
Sunchaser
Je viens d'essayer avec un TRichEdit et :
Code:

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 ?
12/12/2006, 23h10
Faith's Fall

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.
12/12/2006, 23h28
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é ...
12/12/2006, 23h42
Faith's Fall

Citation:

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 :)

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:

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"

J'ai tester sa:
Code:

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 :cry: 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 :(

13/12/2006, 00h46
blondelle

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

Citation:

MainForm->StatBar->Panels->Items[2]->Text = "C";
13/12/2006, 01h00
Faith's Fall

Citation:

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... :?

Salut !

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

Code:

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);

:mrgreen:

Bonne continuation !

13/12/2006, 07h58
kmaniche

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.
13/12/2006, 10h43
Faith's Fall

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 :P

C'est résolu :)