Discussion :

[Speed41]

Bonjour,

Je voudrais mettre en évidence le texte en gras d'un TRichEdit
et j'ai écris ce petit code et ça marche mal. Pas très doué j'aimerais votre aide car j'use le soleil depuis ce matin

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
procedure TModuloCle.Applique_formatClick(Sender: TObject);
var n, t, w : integer;
    reponse : string;
    gras : boolean;
begin
  w:=-1;
  reponse:='';
  for n:=0 to memo1.Lines.Count-1 do
      begin
        gras:=false;
        for t:=1 to length(memo1.Lines[n])-1 do
            begin
              inc(w);
              memo1.SelStart:=w;
              memo1.SelLength:=1;
             if fsbold in memo1.SelAttributes.style then
                 begin
                   if not(gras) then
                      begin
                        reponse:=reponse+'#G#';// le texte sera en gras
                        gras:=true;
                      end;
                 end else
                 begin
                   if gras then
                      begin
                        reponse:=reponse+'#PG#';// le texte n'est plus en gras
                        gras:=false;
                      end;
                 end;
              reponse:=reponse+memo1.seltext;
            end;
          memo2.lines.add(reponse);
          memo1.Lines[n]:=reponse;
          reponse:='';
      end;
end;

Les lignes se décalent ...

Par avance merci

[Speed41]

Bonjour

Je viens de trouver ça et ça marche

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
procedure TModuloCle.Applique_formatClick(Sender: TObject);
var n, t : integer;
    reponse : string;
    gras : boolean;
begin
  w:=-1;
  for n:=0 to memo1.Lines.Count-1 do
      begin
        gras:=false;
        for t:=1 to length(memo1.Lines[n]) do
            begin
              memo1.SelStart := Perform(EM_LINEINDEX, n, 0) + t;
              memo1.SelLength:=1;
              if fsbold in memo1.SelAttributes.style then
                 begin
                   if not(gras) then
                      begin
                        reponse:=reponse+'#G#';
                        gras:=true;
                      end;
                 end else
                 begin
                   if gras then
                      begin
                        reponse:=reponse+'#PG#';
                        gras:=false;
                      end;
                 end;
              reponse:=reponse+copy(memo1.lines[n],t,1);
            end;
          memo1.Lines[n]:=reponse;
          reponse:='';
      end;
end;

Faut encore y travailler mais ça vient

Si quelqu'un à une autre solution je suis preneur

a+

[mick605]

Salut

Pour mettre en gras facilement, tu sélectionnes le texte que tu veux a l'aide des propriétés SelStart et SelLength, puis tu changes SelAttributes.Style a fsBold ...

Je ne sais pas trop ce que fais ton code par contre ... Donc je sais pas si c'est que tu cherches ....

Bonne chance