Discussion :

[boober31]

Bonsoir,

Je souhaite copier le style d'un richedit à un autre quand je selectionne du texte. Ce code fonctionne bien mais le probleme c'est que le richedit2 garde toujours le style de richedit1 meme aprés la sélection. Par exemple je selectionne un mot et je décide de le souligner, le mot du rich edit 2 est souligné aussi mais aprés je continue à écrire normalement (sans style) dans le richedit1 mais le richedit2 écrit toujours en souligné. COmment faire pour annuler la recopie de style une fois que l'on a fini la sélection.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.RichEdit1Change(Sender: TObject);
begin
RichEdit2.Text := RichEdit1.Text;
RichEdit2.SelStart := RichEdit1.SelStart;
RichEdit2.SelLength := RichEdit1.SelLength;
RichEdit2.SelAttributes.Style := RichEdit1.SelAttributes.Style;
 
 
 
end;

Merci

[Philippe Gormand]

Bonjour.

A part réatribuer le style précédent, je ne vois pas.

Quelque chose comme ça.

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
 
Var
    StyleTemp : TTextAttributes;
 
 
begin
 
    StyleTemp := TTextAttributes.Create;
    procedure TForm1.RichEdit1Change(Sender: TObject);
    RichEdit2.Text := RichEdit1.Text;
    RichEdit2.SelStart := RichEdit1.SelStart;
    RichEdit2.SelLength := RichEdit1.SelLength;
    StyleTemp.Assign(RichEdit2.SelAttributes); 
    RichEdit2.SelAttributes.Style := RichEdit1.SelAttributes.Style;
.
.
.
.
.
.
.
RichEdit2.SelAttributes.Assign(StyleTemp);
StyleTemp.Free;

Je pense que c'est dans cette voie qu'il faut chercher. Voir l'aide de DELPHI.

[boober31]

J'ai une erreur de compilation à la ligne

StyleTemp := TTextAttributes.Create;
Que dois-je mettre dans la parenthèse aprés le Create?

Merci

[Philippe Gormand]

Autant pour moi !

Voici l'aide de Delphi sur le sujet. Désolé, je n'ai pas le temps ce soir.

Aide DELPHI.
Crée une instance de TTextAttributes.
type TAttributeType = (atSelected, atDefaultText);
constructor Create(AOwner: TCustomRichEdit; AttributeType: TAttributeType);

Description
N'appelez pas le constructeur de TTextAttributes. Les objets TTextAttributes sont créés à partir du constructeur du contrôle éditeur de texte formaté. Ce contrôle utilise un objet ayant le type d'attribut atDefaultText pour implémenter sa propriété DefAttributes et un autre objet ayant le type d'attribut atSelected pour implémenter sa propriété SelAttributes.

Si j'ai le temps demain, j'aprofondirais.

en attendant, consultes l'aides et les exemples.

A+

[Philippe Gormand]

Patiennce et longueur de temps font plus que force ni que rage.

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
 
Var
   Style : TfFontStyles;
 
procedure TForm1.RichEdit1Change(Sender: TObject);
begin
RichEdit2.Text := RichEdit1.Text;
RichEdit2.SelStart := RichEdit1.SelStart;
RichEdit2.SelLength := RichEdit1.SelLength;
Style := RichEdit2.SelAttributes.Style; 
RichEdit2.SelAttributes.Style := RichEdit1.SelAttributes.Style;
.
.
.
.
.
.
RichEdit2.SelAttributes.Style := Style;

Pas de problème de compilation. En espérent que cela peut
résoudre ton problème.

[boober31]

Tout d'abord, je souhaite vous remercier de prendre du temps pour répondre à mon problème.

Je souhaiterais savoir à quel moment je dois insérer
RichEdit2.SelAttributes.Style := Style;
dans mon code. J'ai essayé de le mettre dans la procedure TForm1.RichEdit1Change(Sender: TObject); mais les deux instructions

Code :

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

1
2
3
 RichEdit2.SelAttributes.Style := RichEdit1.SelAttributes.Style;
RichEdit2.SelAttributes.Style := Style;
end;

se suivent et il ne prend que la première. Le style de RichEdit est toujours celui selectionné (par exemple souligné) . Comme avec l'ancien programme, celui de RichEdit1 redevient normal. En fait je selectionne du texte dans le richEdit1 puis j'ai un bouton souligné , je clique de dessus, il me souligne RicheEdit 1 et aussi RichEdit 2 ( c normal jusque là) mais aprés je clique pour continuer d'ecrire dans richedit 1 , la police est normale dans le 1 mais reste souligné dans le 2.