Discussion :

[butch]

Bonjour.
Je souhaiterais pouvoir limiter le nombre de caractères saisies dans une ligne d'un Tmemo sans limiter le nombre de lignes.
(J'aurais besoin d'en faire un composant)

J'ai trouvé deux solutions mais elles ne me conviennent pas :
_utilisation de wordwrap : oblige à utiliser une police fixe et à tailler le composant correctement
_contrôle à la mimine dans onkeypress : m'oblige à surveiller aussi onpaste, loadfromfile etc..

Pour l'instant je me dirige vers la seconde solution que je trouve moyenne.
Si quelqu'un a une autre solution du style message windows à envoyer au composant, cela me rendrait un immense service.

Merci d'avance

[Caine]

Bonjour,
Personnellement je ferais ça dans le OnDraw.

Car pour la ligne courante, la propriété Length te donne le nombre de caractères de la chaîne.

Ca a le mérite de ne pas gérer la copie et autres, puisque l'évènement est déclenché après ces insertions éventuelles.

[butch]

Il n'y a pas d'evenement ondraw dans le composant TMemo.

[TicTacToe]

Ce code semble faire ce que tu veux ?

Code :

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

1
2
3
4
5
6
7
8
procedure TMAForm.Memo1Change(Sender: TObject);
var
   ILigne: Integer;
begin
     ILigne := Memo1.CaretPos.y;
     if Length( Memo1.Lines.Strings[ ILigne ] ) > MAXNBCAR
       then  Memo1.Lines.Strings[ ILigne ] := Copy(  Memo1.Lines.Strings[ ILigne ], 1, MAXNBCAR );
end;

bon courage !

[butch]

Bonjour.
Effectivement, ça marche, mais ce n'est pas très propre.
par exemple, si tu modifie un caractère au début d'une ligne, ton curseur saute à la fin.
Je vais voir si je peux améliorer ça.
Mais l'idéal aurait été que les lettres en trop passent à la ligne suivante comme avec un wordwrap à true.Visiblement microsoft n'a pas prévu cela.

[devyan]

Bonjour,

Pour régler le problème du curseur, il suffit de mémoriser sa position avant toute modification afin de le restituer après.

Par contre, tu risques avec ceci :

Voici le texte
contenu initial
ement dans le m
émo avec un sau
t automatique t
ous les 15 cara
ctères.

d'obtenir cela en ajoutant du texte dans une ligne (pas en fin de texte) :

Voici le texte
contenu initial
ement dans le m
émo avec "TEXTE

A
J
O
U
T
E
"

u
n

s
a
u
t automatique t
ous les 15 cara
ctères.

Il vaudrait mieux avoir ton texte en mémoire sans les sauts de ligne "forcés" (seulement ceux réellement saisis) et refaire le formattage à chasue modifcation du texte (risque de lenteur sur des gors volumes de texte)