Problème de richedit

Version imprimable

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:

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

Style

Bonjour.

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

Quelque chose comme ça.

Code:

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.

8O

25/04/2006, 17h46
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
25/04/2006, 22h06
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+

Style

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

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.

26/04/2006, 12h13
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:

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.

Correction

Non, pas comme ça :
Code:

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

1 2 3 4 RichEdit2.SelAttributes.Style := Style; RichEdit2.SelAttributes.Style := RichEdit1.SelAttributes.Style; end;
La variable Style doit être utilisée pour mémoriser le style du
RichEdit2 avant son changement. Si tu place ton code dans
lévénement OnChange du RichEdit, la variable Style changera à
chaque modification (frappe de touche, changement de couleur
etc...).

Donc utilise plutôt le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure BtSoulignerClick(Sender : TObject); begin // Mémoriser le style du richEdit Style := RichEdit2.SelAttributes.Style; . . . . end;
Puis :
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure BtContinuerrClick(Sender : TObject); begin // Mémoriser le style du richEdit RichEdit2.SelAttributes.Style := Style ; . . . . end;
A+