Discussion :

[Redsky]

Salut.

Je veux changer la grandeur du texte selectionner.
J'ai ecris le code qu'il faut. Je peux changer la grandeur du texte avant de l'ecrire, mais si je choisi le texte et je veux changer la grandeur ca ne marche pas.
Ca marche pour la couleur, bold et tout ca. Juste pour le texte ca marche pas.
J'utilise un FontEdit Dialog.
Le code est executer quand je clicke : Ok dans le dialog.

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.FontEdit1Accept(Sender: TObject);
begin 
	RichEdit1.SelAttributes.Name :=  FontEdit1.Dialog.Font.Name;
	RichEdit1.SelAttributes.Size := FontEdit1.Dialog.Font.Size;
	RichEdit1SelAttributes.Style := FontEdit1.Dialog.Font.Style;
end;

Toute petite idee, tout conseil est bienvenu.
Merci et Joyeux Noel a Tous!

[Redsky]

J'ajoute quelques precisions:

Quand je selectionne un texte, que je change la grandeur du font quand je referme ma font dialog et que j'imprime ce qu'il y'a dans "Size" ben ca sera toujours la grandeur du texte choisi dans le richedit.

Code :

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

1
2
 
MessageDlg(intToStr(FontEdit1.Dialog.Font.Size), mtInformation, [mbOK], 0);

C'est p-e un probleme dans le composant ?