Discussion :

[prc_600]

Bonjour à tous! Je découvre les joies du Richedit et j'essayes de faire ceci:

Un gros Richedit qui contient un gros texte formaté, un petit richedit qui va afficher seulement une partie de celui-ci en gardant le formatage!

Comment faire pour copier une portion du gros vers le petit avec une procédure comme celle-ci par exemple:

procedure CopyRichEditPart(Source,display:TRichEdit; start_line; number_of_line:integer);

Si quelqu'un peut m'aider ce serait impeccable!

[Eric Boisvert]

L'idée est de passer par le Clipboard.

On selectionne le texte désiré et on fait copier / coller...
Le problème est de convertir le numéro de ligne en position de
caractère pour bien selectionner le text à copier...

quelque chose comme ceci devrait faire le travail...

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
19
20
21
22
23
24
 
procedure CopyRichEditPart(Source,Destination:TRichEdit; StartLine,NumberOfLine:integer);
var
  i,lStr,cStart,cStop:integer;
begin
  //== Cherche la position du caractere a la ligne ==
  //== indiqué par StartLine ==
  cStart:=0;
  CStop:=0;
  for i:=0 to Source.Lines.Count-1 do
  begin
    lStr:=Length(Source.Lines.Strings[i]);
    if i<StartLine then cStart:=cStart+lStr;
    if i<StartLine+NumberOfLine then
      CStop:=CStop+lStr
    else
      Break; // On a trouvé la fin... donc on sort de la boucle...
  end;
  //==  Selectionne le text ==
  Source.SelStart:=cStart;
  Source.SelLength:=CStop;
  Source.CopyToClipboard;
  Destination.PasteFromClipboard;
end;

Si tu as besoin de quelque chose de plus rapide et sans clipboard...
faudrait passer par les MemoryStream j'ai l'impression...

[prc_600]

Merci beaucoup! J'avais été aussi légèrement c.n, j'avais fait copier/coller du richedit de départ, mais il était en readonly donc je ne voyais pas l'opération se faire!

Impeccable! La taille du clipboard suffit car le but est d'afficher une partie du contenu d'un fichier de désassemblage façon IDAPRO avec les sélections multiples et autres effets visuels!

[prc_600]

J'ai réaliser également ceci qui ne semble pas souffrir de la limitation à 32 K,je pensais qu'il existait un EM_EXLINEINDEX!

Code :

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

1
2
3
4
5
6
7
procedure CopyRichEditPart(Source,Destination:TRichEdit; StartLine,NumberOfLine:integer);
begin
   Source.SelStart:= Source.Perform(EM_LINEINDEX,StartLine,0);
   Source.SelLength:= Source.Perform(EM_LINEINDEX,StartLine+NumberOfLine,0)-Source.SelStart -1;
   Source.CopyToClipboard;
   Destination.PasteFromClipboard;
end;

Ainsi on ne cherche pas la fin de ligne! Merci beaucoup pour cette réponse!