Discussion :

[Ardely]

Bonjours,
Je suis en train de chercher comment insérer du texte dans un TRichEdit seulement entre parenthèse ( ) c'est à dire le reste du texte ne doit pas être modifiable.

Je fais rentrer le texte dans le TRichEdit seulement par une variable string.

Ce que j'arrive à faire jusqu'à présent est de limité le nombre de lines
mais je ne sais pas dans quelle événement de cherche les nombres de
colonnes (DE...A) qui est (....) et de bloquer l'insertion texte si le curseur n'est pas entre parenthèse.

Code :

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

1
2
3
4
5
6
 
procedure TForm1.FMemo1KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13)and((sender as TRichEdit).lines.Count>=StrToInt(y)) then
  Key :=#0;
end;

Merci beaucoup les infos, salutations
Ardely

[LadyWasky]

Salut, pourrais-tu reformuler un petit peu tout ça ?
Parce que c'est difficilement compréhensible...
Merci

Bref, je crois avoir compris, mais je n'en suis pas tout à fait sur....

[sjrd]

En admettant que le format RTF n'utilise pas les parenthèses en interne, tu devrais pouvoir t'en tirer comme ça :

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
function AllowEdit(const Text : string; SelStart, SelEnd : integer) : boolean;
var I, BracketsDepth : integer;
begin
  Result := False;
  BracketsDepth := 0;
 
  for I := 1 to SelEnd do
  begin
    case Text[I] of
      '(' : inc(BracketsDepth);
      ')' : dec(BracketsDepth);
    end;
 
    if (I >= SelStart) and (BracketsDepth) <= 0 then exit;
  end;
 
  Result := True;
end;

Il faudra sûrement réfléchir un peu aux départ et fin des tests (le to et le if), mais l'idée est là.

[LadyWasky]

L'idée de sjrd me pârait vraiment très bien

[Ardely]

Voici l'idée que j'ai eu waskol.
Bref, le but est que l'utilisateur puisse entre des données dans un richedit que dans les champs proposer qui est dans mon cas entre parenthèse. C'est à dire que le texte qui n'est pas dans le champs (..), l'utilisateur ne peut pas modifier, peut seulement modifier ou ajouter des données dans la position entre parenthèse. Au demarage c'est l'application qui fait ajouter le texte Question dans le richedit par une variable string. (L'éditeur est du ..genre.. formulaire a remplir..)

Merci beaucoup pour l'aide.

[aliwassem]

Voici l'idée que j'ai eu waskol.
Bref, le but est que l'utilisateur puisse entre des données dans un richedit que dans les champs proposer qui est dans mon cas entre parenthèse. C'est à dire que le texte qui n'est pas dans le champs (..), l'utilisateur ne peut pas modifier, peut seulement modifier ou ajouter des données dans la position entre parenthèse. Au demarage c'est l'application qui fait ajouter le texte Question dans le richedit par une variable string. (L'éditeur est du ..genre.. formulaire a remplir..)

Merci beaucoup pour l'aide.

Salut
pour moi peut etre une autre idee, mais dans un richEdit est ce que vous avez une seule Question ou plus,,,,,
si vous avez une seule Qusetion alors vous pouvez interdit l'utilisateur d'utiliser la 1er ligne de la richedit.......... et biensur la cursor dans la 2eme ligne toujours...
mais si vous avez plueieure Qusetions dans le RichEdit alors , il faut connaitre les lignes de chaque Qusetion et comme le 1er.....

c'est une idee ...

[JeanMarc_T2k]

Quel est l'intéret de faire cette saisie dans un TRichEdit ? Si c'est un formulaire à compléter, pourquoi ne pas utiliser autant de TEdit qu'il y a de zones entre parenthèses, le reste du texte étant mis sur des TLabel....

Il ne reste plus ensuite qu'à recomposer le texte complet.

Il me semble que le TRichEdit n'apporte que l'opportunité d'avoir un texte enrichi dans ses polices de caractères (gras, italique, souligné, taille et couleur de la police etc...)

[Ardely]

C'est vrais avec des TLabel et TEdit c'est plus simple..mais dans un TRichEdit
les caractères et autres possibilité sont plus enrichi...bon..
J'ai des difficultés a faire fonctionner la fonctionne de sjrd je dois faire quelle que chose qui n'est pas correcte!
voici ce que j'ai fait!

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.FMemo1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
   var
 ..
   If AllowEdit(FMemo1.Text,y,X)then  begin
..

J'ai l'impression que les coordonner y,x ne sont pas des valeurs exacte..que je prend!

Merci beaucoup pour l'aide, Salutations.

[sjrd]

C'est OnKeyDown que tu dois utiliser ! Ou OnKeyPress si celui-ci ne permet pas de modifier le paramètre. Je n'ai pas Delphi sous la main pour vérifier.

Code :

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

1
2
3
4
5
procedure TForm1.RichEditKeyDown(Sender: TObject; var Key : Word);
begin
  with RichEdit do if not AllowEdit(Text, SelStart, SelEnd) then
    Key := 0;
end;

Si SelEnd est inconnu, c'est aussi SelStart+SelLength.

[Ardely]

Merci, beaucoup pour ta réponse, je fait des testes...
Trés bonne journée