Retour de chariot automatique

Version imprimable

Dans un RichEdit, j'ai besoin de faire un retour de chariot automatique après 40 caractères, j'utilise ce code, probleme après l'envoie du VK_RETURN, j'ai des retours de chariot à l'infinie :!:

Comment corriger le bug ? :?

Merci.
Code:

1 2 3 4 5 6 7 8 9 10 11 void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { //Pour trouver le nombre de caractère sur la ligne longLigne = (RichEdit1->Perform(EM_LINELENGTH, (LPARAM) (DWORD) numCaractere, 0)); if (longLigne > 40) { Key = VK_RETURN; } }

Tu peux tenter quelque chose comme ca :
Code:

1 2 3 4 5 void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { int n=(RichEdit1->Perform(EM_LINELENGTH, (LPARAM) (DWORD) numCaractere, 0)); if (n>40) RichEdit1->Text=RichEdit1->Text+"\r\n"; }
Sinon y'a aussi une astuce qui consiste à mettre la taille de ton RichEdit pile poil pour contenir 40 caractères et définir la propriété WordWrap=true :wink:

A toi de voir

23/02/2005, 15h56
Troll

Bizarre

C'est bizarre, j'ai testé ton code, et ça n'a chez moi aucun effet.
La nouvelle valeur affectée à Key dans l'évenement KeyDown
ne modifie pas la frappe. Avec KeyPress c'est mieux!

Ton problème doit avoir une autre origine. Regarde tes évenements.
23/02/2005, 16h11
.:morgoth:.

Ouais completement d'accord avec toi Troll.
J'avais meme pas tilté... :boulet:
C'est bien OnKeyPress qu'il faut utiliser etpas OnkeyDown.

Par contre mon code devrait marcher...
23/02/2005, 22h13
LibrairieSI

Mon code fonctionne bien, mais que je fasse \r\n ou Key = VK_RETURN , le problème est après 40 frappes il vais des retour de chariot sans fin..

Je ne veux pas avoir une fenêtre fixe j’aime bien laisser l’utilisateur avec un minimum de contrôle sur l application.

Je vais tester dans OnKeyPress.

Merci.

Retour de Chariot automatique

:D

Merci,

J'ai trouver, une ligne de code dans RichEdit1Change causer le Bug.

Maintenant ceci est nickel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::RichEdit1KeyPress(TObject *Sender, char &Key)
{
     //Pour trouver le numéro de ligne(s) et de caratère(s)
     numLigne = RichEdit1->Perform(EM_EXLINEFROMCHAR, 0, (LPARAM) (DWORD) RichEdit1->SelStart);
     numCaractere = (RichEdit1->SelStart - RichEdit1->Perform(EM_LINEINDEX, (LPARAM) (DWORD) numLigne, 0));
     AnsiString LigneCol(IntToStr(numLigne) + ": " + IntToStr(numCaractere));
     //Form1->StatusBar->Panels->Items[0]->Text = LigneCol;
 
     if (numCaractere > 39)//Maximum de 40 caracteres par ligne
     {
          Key = VK_RETURN;
     }
}

Merci.