hhf | bon voila ce que j'ai trouvé avec l'aide API Win32.
J'ai fait ca à l'arrache :
Code :
- procedure TForm1.Button2Click(Sender: TObject);
- var FoundAt: LongInt;
- StartPos, ToEnd, PosActu, Fin: Integer;
- begin
- with RichEdit1 do
- begin
- SetFocus;
- PosActu:=SelStart;
- StartPos:=perform(EM_LINEINDEX,perform(EM_GETFIRSTVISIBLELINE,0,0),0);
- Fin:=StartPos+400;
- FoundAt := FindText('t',StartPos,Fin, [stMatchCase]);
- while FoundAt <> -1 do
- begin
- SelStart:=FoundAt;
- SelLength:=length('t');
- SelAttributes.Color:=clRed;
- FoundAt := FindText('t',FoundAt+length('t'),Fin-FoundAt, [stMatchCase]);
- end;
- SelStart:=PosActu;
- end;
- end;
|
Donc là ça coloris tous les 't' en rouge des 400 premiers caracteres du texte visible dans un RichEdit. Voila si quelqu'un à une idee mieux... je suis preneur.
Evidement le truc c'est d'avoir aussi via le mm procedé la fin du texte visible.
|