RichEdit: Insertion char sur selection

Version imprimable

Bonjour,

Mon but est de simuler le CTRL+SHIFT+I/U de Delphi dans mon TRichEdit :)
Voila mon code:
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 if (Shift = [ssAlt]) and (Key = 73) then begin length := RichEdit1.SelLength; RichEdit1.SelLength := 0; start := RichEdit1.SelStart; i := RichEdit1.SelLength; last := RichEdit1.CaretPos.Y; RichEdit1.SelText := ' '; while ( i <> length+start ) do begin if ( last = RichEdit1.CaretPos.Y ) then begin RichEdit1.SelStart := RichEdit1.SelStart+1; end else begin RichEdit1.SelText := ' '; end; RichEdit1.Refresh; i := i+1; end; end;
Bon pour le moment j'ai mis sur Alt+I, sa c'est un autre problème j'y viendrais à la fin lol
Donc mon problème, je fais une boucle et j'augmente ma position petit à petit pour en gros détecter la nouvelle ligne et donc insérer le double espace ....
Le problème est qu'au bout de la ligne, le SelStart n'augmente plus ... donc le CaretPos non plus :calim2:
Je m'y prend mal à quel moment ?

Merci

Bon j'ai trouver :)
J'incrémente de deux au lieu d'un ... le retour à la ligne prend 2char, et bizarrement il veut pas faire le SelStart entre les deux ...

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
   length := RichEdit1.SelLength;
   RichEdit1.SelLength := 0;
   start := RichEdit1.SelStart;
   last := RichEdit1.CaretPos.Y;
 
   i := 0;
   count := 0;
   RichEdit1.SelText := '  ';
   if length = 0 then Exit;
 
   while ( i < length/2 ) do
   begin
 
     if ( last = RichEdit1.CaretPos.Y ) then
     begin
       RichEdit1.SelStart := RichEdit1.SelStart+2;
     end
     else
     begin
       RichEdit1.SelText := '  ';
       count := count+1;
     last := RichEdit1.CaretPos.Y;       
     end;
     i := i+1;
   end;
 
   RichEdit1.SelStart := start;
   RichEdit1.SelLength := length+4*count;

03/06/2009, 17h53
mick605
Bon tu veux pouvoir ajouter des espaces dans ton TRichEdit ... OK

Ben t'as qu'a faire
Code:

1 2 for i:=1 to RichEdit1.Lines.Count do RichEdit1.Lines[i]:=' '+RichEdit1.Lines[i];
Ensuite, pour tester l'état de touches, t'as qu'a te servir de GetAsyncKeyState ou GetKeyState (je ne connais pas la différence), c'est tres simple.

Enfin, tu as mis Key=73, je pense que ca serait mieux de mettre Key=Ord(I) je pense (je ne me souviens pas de la syntaxe)

Je n'ai jamais réussi a me servir du SelLength, SelStart ... bizarre
04/06/2009, 11h47
dadouuuu

Pas mal ta méthode, mais sur une sélection et non un texte entier ... comment tu récupère la première ligne de sélection ainsi que la dernière?

HAHAAAA d'accord ...

Ben sert toi quand meme de ce code, mais en plus, sert toi du SelStrat et du SelLength (t'as l'air de savoir t'en servir ...). Je précise que je n'ai jamais réussi a le faire marcher (je n'ai pas essayé longtemps faut dire ...).

Faudrait te faire une fonction qui renvoie la ligne en fonction du numéro de caractere A PARTIR DU DEBUT : Genre comme ca :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 function TrouveLigne (Position :integer) :integer; var Somme, NoLigne :integer; begin Somme:=0; NoLigne:=0; While Somme <= Position do begin Somme:=Somme+Length(Memo1.Lines[NoLigne])+2; //Caracteres de fin de ligne inc(NoLigne); end; TrouveLigne:=NoLigne-1; end;
Ensuite,
Code:

1 2 for i:=TrouverLigne(PosDebut) to TrouverLigne(PosDebut+LongueurSel) do RichEdit1.Lines[i]:=' '+RichEdit1.Lines[i];
Je pense meme que cette fonction TrouverLigne existe déja, par contre je ne la connais pas ...
Je répete, c'est fait vraiment vite fait ....