[TRichEdit] Comment désactiver la sélection ? [Archives]

**firejocker** · 09/03/2005, 17h47

Slt,

J'ai un RichEdit auquelle j'applique quelque traitement au fur et a mesure de son OnChange

c'est en fait un genre de coloration syntaxique

pour effectuer les changement de couleur sur le texte,

je selectionne ce que je veux par un Selstar, sellength
ensuite, je modifie les selattribute

mon probleme est visuel, en faisant cela, je vois la selection (inversion de couleur bleu), j'aimerai ne pas la voir

comment la desactiver ?

merci

**.:morgoth:.** · 09/03/2005, 17h59

Une fois que tu as terminé toutes les actions que tu veux faire (chgmt de police, couleurs...) tu n'as qu'a repasser la propriété SelStart a -1 pour effacer la sélection non?

**firejocker** · 09/03/2005, 18h08

ca je le fais deja, le truc c'est que du coup, la selection fais un clignotement

j'aimerai ne pas voir la selection, ou bloquer le raffraichissement du richedit, jusqu'à la fin de mon traitement

**Sub0** · 09/03/2005, 18h08

Exemple avec, tous les "e" sont mis en rouge pendant l'édition :

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
Procedure TForm1.RichEdit1Change(Sender: TObject);
Var
  x: Integer;
  st: String;
Begin
  RichEdit1.DoubleBuffered := False;
  st := RichEdit1.Text;
  If (st = '') Then Exit;
  For x := 1 To Length(st) Do
    If (st[x] = 'e') Then
    With RichEdit1 Do Begin
      SelStart := x - 1;
      SelLength := 1;
      SelAttributes.Color := clRed;
      SelStart := x;
      SelAttributes.Color := clBlack;
    End;
  RichEdit1.SelStart := Length(st);
End;

Perso, je te conseil d'utiliser un composant plus approprié pour l'édition avec coloration syntaxique -> synedit
à+

**sjrd** · 09/03/2005, 18h12

Envoyé par Sub0

Perso, je te conseil d'utiliser un composant plus approprié pour l'édition avec coloration syntaxique -> synedit

+1

Tu arriveras difficilement à tes fins si tu utilises le RichEdit. Un composant pour comme SynEdit te facilitera grandement la tâche.

**firejocker** · 10/03/2005, 15h57

ben disons que avec SynEdit , si j'ai bien compris, on peu pas modifier la liste des mots a coloriser en cours de fonctionnement et moi, ca change tt les 5 minutes et ca depend de l'utilisateur, donc je ne sais pas avant quel seront les mots a coloriser.

@Sub0 : a kk chose pret c'est ca que je fais mais quand les mots sont long, on voit la selection clignoter

en gros, ya juste ca que je n'ai pas : RichEdit1.DoubleBuffered := False;
ca fais quoi ?

**Sub0** · 10/03/2005, 18h35

DoubleBuffered +

Voici le code pour locker l'affichage du focus:
RichEdit1.Perform(Messages.WM_USER + 63, WParam(True), LParam(False));

Et pour le délocker :
RichEdit1.Perform(Messages.WM_USER + 63, WParam(False), LParam(False));

Voici une démo complète !

Les mots "test", "color" et "select" possèdent leur propre police...

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
Unit Unit1;
Interface
Uses Windows, Classes, Forms, Graphics, Messages, Controls,
     SysUtils, StdCtrls, ExtCtrls, ComCtrls;
 
Type
  TForm1 = Class(TForm)
    RichEdit1: TRichEdit;
    Button1: TButton;
    Procedure FormCreate(Sender: TObject);
    Procedure RichEdit1Change(Sender: TObject);
    Procedure Button1Click(Sender: TObject);
  End;
 
Var
  Form1: TForm1;
 
{----------------------------------------------------------------}
{                       }Implementation{                         }
{----------------------------------------------------------------}
{$R *.DFM}
 
Type
  TSyntax = Record
    Mot: ShortString;
    Color: TColor;
    Style: TFontStyles;
    Size: Integer;
    Name: TFontName;
  End;
 
Var
  ASyntax: Array Of TSyntax;
 
{----------------------------------------------------------------}
Procedure AddSyntax(AMot:ShortString; AColor:TColor;
  AStyle:TFontStyles; ASize:Integer; AName:TFontName);
Begin
  SetLength(ASyntax, High(ASyntax) + 2);
  With ASyntax[High(ASyntax)] Do
  Begin
    Mot := AMot;
    Color := AColor;
    Style := AStyle;
    Size := ASize;
    Name := AName;
  End;
End;
 
{----------------------------------------------------------------}
Procedure TForm1.FormCreate(Sender: TObject);
Begin
  RichEdit1.DoubleBuffered := False;
  AddSyntax('test', clRed, [fsBold], 10, 'Lucida console');
  AddSyntax('color', clBlue, [fsItalic, fsBold], 12, 'Terminal');
  AddSyntax('select', clGreen, [fsUnderline], 14, 'Verdana');
End;
 
{----------------------------------------------------------------}
Procedure TForm1.RichEdit1Change(Sender: TObject);
Var
  x, i, p, s: Integer;
  st: String;
Begin
  st := RichEdit1.Text;
  If (st = '') Then Exit;
  RichEdit1.Perform(Messages.WM_USER + 63, WParam(True), LParam(False));
  s := RichEdit1.SelStart;
  x := 1;
  Repeat
    With RichEdit1, SelAttributes Do
    Begin
      For i := 0 To High(ASyntax) Do
      Begin
        p := Pos(ASyntax[i].Mot, Copy(st, x, Length(ASyntax[i].Mot)));
        If (p = 1) Then
        Begin
          SelStart := x - 1;
          SelLength := Length(ASyntax[i].Mot);
          Color := ASyntax[i].Color;
          Style := ASyntax[i].Style;
          Size := ASyntax[i].Size;
          Name := ASyntax[i].Name;
          SelLength := 0;
          SelStart := s;
          x := x + Length(ASyntax[i].Mot);
          Break;
        End;
      End;
      If (p = 0) And (x <= Length(st)) Then
      Begin
        SelStart := x - 1;
        SelLength := 1;
        Color := Font.Color;
        Style := Font.Style;
        Size := Font.Size;
        Name := Font.Name;
        SelLength := 0;
        SelStart := s;
        x := x + 1;
      End;
    End;
  Until (x > Length(st));
  RichEdit1.Perform(Messages.WM_USER + 63, WParam(False), LParam(False));
End;
 
{----------------------------------------------------------------}
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  ASyntax[0].Mot := 'nouveau'; // Remplace "test"
End;
 
{----------------------------------------------------------------}
End.

L'action du bouton te permettra de voir comment changer le mot d'une syntaxe...
Ce qu'il faut que tu saches, c'est que plus ton texte à traîter est long, plus le traitement sera long (logique).
Il faut donc ne traîter que la ligne en cours d'édition...
A toi de trouver comment le faire (je ne vais pas tout te donner non plus) ^^
Bon courage, à+

**firejocker** · 11/03/2005, 10h38

Je te remerci, je vais tester ca !

Ce qu'il faut que tu saches, c'est que plus ton texte à traîter est long, plus le traitement sera long (logique).
Il faut donc ne traîter que la ligne en cours d'édition...
A toi de trouver comment le faire (je ne vais pas tout te donner non plus) ^^
Bon courage, à+

Lol, t'inquiete pas, je viens pas sous traiter le code que je veux ici,
mon compo est bien avancé et je ne traite que le mot qui est en cours de modif

je te remerci pour ces infos !

**firejocker** · 13/03/2005, 12h52

Ca marche nickel merci !

comment tu as trouvé ca ?

en cas, jvais voir pour faire de meme avec le curseur, ne pas le voir se deplacer lors de la modif du selstart

**Sub0** · 13/03/2005, 14h57

J'ai trouvé ce code sur le forum, à l'occasion du développement d'une interface graphique pour un tchat :
http://sub0.developpez.com/delphi/rxdiag.zip

J'avais essayé aussi avec LockWindowUpdate()...
D'ailleurs, je crois que tu peux remplacer RichEdit1.Perform() par cette fonction :
• Pour locker l'affichage : LockWindowUpdate(RichEdit1.Handle);
• Pour délocker : LockWindowUpdate(0);

Sinon, reste la possibilité d'essayer de locker l'affichage avec ceci :
• Pour locker l'affichage : RichEdit1.Enabled := False;
• Pour délocker : RichEdit1.Enabled := True; ActiveControl := RichEdit1;

Je te conseille d'utiliser la dernière solution si elle fonctionne, à+

**Sub0** · 13/03/2005, 15h17

Chez moi ceci fonctionne très bien : http://sub0.developpez.com/delphi/syntax.zip
• Pour locker l'affichage :

Code :

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

RichEdit1.Enabled := False;

• Pour délocker :

Code :

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

1
2
3
4
RichEdit1.Enabled := True;
ActiveControl := RichEdit1;
SetCursorPos(Mouse.CursorPos.X - 1, Mouse.CursorPos.Y);
SetCursorPos(Mouse.CursorPos.X + 1, Mouse.CursorPos.Y);

**Castagnems** · 15/06/2005, 12h41

J'ai implémenté un éditeur de fichier INI (en utilisant un tRichEdit) qui colore sections, clés, valeurs et commentaires en cours de frappe ... seul petit hic c'est lors de l'ouverture du fichier, il faut tout peindre d'un coup vu que le fichier n'est pas sauvé au format RTF ... sinon le reste fonctionne bien ... c cool :-)