Détecté le wordwrap dans un TMemo

Version imprimable

Bonjour tous

Je suis entrain de faire une appli où l'utilisateur pourra entrer ses propres infobulles.

Le principe est simple : l'opérateur choisi "entrer un commentaire" grâce à un menupopup sur le composant. De la il écrit son message dans un TMemo.
Le texte du TMemo est alors enregistré dans un fichier ini.

Tout les caractères correspondant à "\r\n" sont remplacé par des ";". Le "\r\n" apparaît quand l'utilisateur frappe sur entrée (:bug: ). Ainsi dans le fichier ini, le texte sera complet lors de l'affichage de l'infobulle.

Lorsque l'utilisateur écrit à la suite sans taper "entrée". le Tmemo fait un retour à la ligne logiciel grâce à wordwrap.Quand j'enregistre dans mon fichier ini, cela correspond à une seule ligne.

Mon problème est que lorsque je affiche cette ligne dans une infobulle, cela affiche 1seule et grande ligne. Je trouve cela très moche.

Et j'aimerai donc pouvoir réduire cette ligne en un petit paragraphe.
Y'a t il un moyen de détecter le wordwrap?
Si non, avez vous une idée de comment faire?

J'ai une solution pas très satisfaisante :
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 { TIniFile *pIniFile = new TIniFile(IniPath); Text =Memo->Text; AnsiString tmp,tmp1; tmp= Text; int i=1; int L = Text->Length(); /*Défini des retours chariots pour les phrases trop longues*/ for(int j=0;j<L;j++) { //Regarde à chaque espace si la phrase n'est pas trop longue if (Tmp.IsDelimiter(" ",j)==true) { if (j>(33*i)) //Si trop de caractère { Tmp.Insert("\r\n",j); //Insere le retour chariot i+=1; j+=1; } } } Text = StringReplace(Tmp, "\r\n", ";", TReplaceFlags() << rfReplaceAll);/*Remplace le sauts de ligne par 1 pointvirgule*/ pIniFile->WriteString(Unit,Name,Text); Text= ""; delete pIniFile;
Si l'utilisateur écrit tous en ligne et que de temps en temps il tape "entrée". Le paragraphe n'est pas régulier. Je continue à bosser dessus.

Mais si quelqu'un à une meilleur solution je suis preneur.
Merci de votre aide
++

14/06/2007, 19h43
maxim_um

salut,

Piste1 : Désactiver le WordWrap de ton Memo, de la sorte l'utilisateur aura une infobulle formatée à sa convenance...

Piste2 : Ajouter un événement OnChange (double clique sur ton Memo), cet événement doit compter en temps réel le nombre de caractère, au-delà d'un multiple de la largeur de ton mémo ou au-delà d'un multiple d'un nombre A de caractère (if), la fonction récupère la chaîne, y ajoute un retour chariot et rafraîchi le Memo avec la chaîne mise à jour...

Pour avoir un formatage régulier, essaye la police Courier comme Font...

;)
15/06/2007, 09h47
Masmeta

Hello

D'abord merci de ton aide.

Citation:

Envoyé par maxim_um

salut,

Piste1 : Désactiver le WordWrap de ton Memo, de la sorte l'utilisateur aura une infobulle formatée à sa convenance...

Hum j'ai essayer mais cette solution ne me plait pas.

Citation:

Envoyé par maxim_um

Piste2 : Ajouter un événement OnChange (double clique sur ton Memo), cet événement doit compter en temps réel le nombre de caractère, au-delà d'un multiple de la largeur de ton mémo ou au-delà d'un multiple d'un nombre A de caractère (if), la fonction récupère la chaîne, y ajoute un retour chariot et rafraîchi le Memo avec la chaîne mise à jour...

Pour avoir un formatage régulier, essaye la police Courier comme Font...

;)

J'ai essayer cette solution. Au début je l'ai trouvé séduisante mais le problème est que lorsque l'on va rafraîchir le texte du TMemo, le programme relance l'événement Onchange. Ce qui va amener à remplir continuellement le text du TMemo et ainsi faire un overflow.
Par contre je vais essayer un timer ca pourrait peut être marcher.

Bon je suis parti sur une autre piste qui fonctionne comme je le désire.
J'ai utilisé un TStringList. A chaque ligne faite avec le wordwrap du TMemo, on enregistre la ligne dans la liste et ensuite on met les \r\n pour faire le retour chariot.
Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
    TIniFile *pIniFile = new TIniFile(IniPath);
    TStringList *SL=new TStringList();
    int i;
    Text="";//initialise le text
    //Initialise la StringList
    for(i=0;i<Memo->Lines->Count-1;i+=1)
    {
        SL->Add(Memo->Lines->Strings[i]);
        SL->Strings[i] = SL->Strings[i].Insert("\r\n",SL->Strings[i].Length()+1);
        Text=Text+SL->Strings[i];
    }
    Text = StringReplace(Text, "\r\n", ";", TReplaceFlags() << rfReplaceAll);/*Remplace le sauts de ligne par 1 pointvirgule*/
    pIniFile->WriteString(Unit,Name,Text);
    Text= "";
    delete pIniFile;
    delete SL;

:yaisse2: :yaisse2: