Discussion :

[gegila]

Bonjour

Je veux faire une petit Editeur de texte pour Créer et/ou Modifier des remarques de bas de page dans une facture



Voici l'écran d'exemple.
Je gère sans problèmes après sélection d'une ligne un d'un mot les Mise en gras , italique etc..
Mais je butte lamentablement sur l'utilisation de la Mise en couleur à partir d'un Composant ColorDialog

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
// *************************
function TForm70.CurrText: TTextAttributes;
begin
  if RichEditor.SelLength > 0 then
    Result := RichEditor.SelAttributes
  else
    Result := RichEditor.DefAttributes;
end;
 
// ****************
procedure TForm70.EditFontCmdExecute(Sender: TObject);
begin
   ColorDialog1.Execute();
   CurrText.Color := ColorDialog1.Color;
end;

Quand je sélectionne la ligne et que je clique sur les bouton du choix des couleurs

• Je perd la sélection
• Après le choix de la couleur.... Rien ne se passe !!

C'est un truc , certainement de débutant, mais je n'ai pas trouvé , ou mal chercher dans le forum la solution

Merci pour votre aide.

[blonde]

Hello,

essaie voir ça :

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm70.EditFontCmdExecute(Sender: TObject);
Begin
  if ColorDialog1.Execute then
  Begin
    RichEditor.SelAttributes.Color := ColorDialog1.Color;
  End;
End;

as-tu le même comportement ?

[blonde]

Et sinon, j'ai testé ton code, il fonctionne correctement chez moi. Je n'ai peut-être pas compris ta problématique ?

[gegila]

Et oui c'est mon Problème

même comportement

La solution que tu me propose je l'ai déjà testée mais elle ne marche pas.

Je ne comprend pas pourquoi quand je sélectionne la ligne ou je veux appliquer la couleur et ensuite clic sur le bouton pour choisir celle ci
ma sélection disparait !!
Pour info voici comment je fais

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
procedure TForm70.SelectionChange(Sender: TObject);
begin
  with RichEditor.Paragraph do
  Begin
    BoldButton.Down := fsBold in RichEditor.SelAttributes.Style;
    ItalicButton.Down := fsItalic in RichEditor.SelAttributes.Style;
    UnderlineButton.Down := fsUnderline in RichEditor.SelAttributes.Style;
    BulletsButton.Down := Boolean(Numbering);
    FontSize.Text := IntToStr(RichEditor.SelAttributes.Size);
    FontName.Text := RichEditor.SelAttributes.Name;
 
    case Ord(Alignment) of
      0: LeftAlign.Down := True;
      1: RightAlign.Down := True;
      2: CenterAlign.Down := True;
    end;
  End;
end;

et j'appelle cette procédure dans le onCreate de la fiche

[blonde]

J'ai testé en D6, il n'y a pas de problème.Donc je ne pense pas à un problème de version.

Dans ton code, est-ce que tu peux regarder quand tu passes dans "CurrText", si tu as une sélection ou non (SelLength > 0).
Tu gères d'autres événements que "selectionChange" ?

[blonde]

et j'appelle cette procédure dans le onCreate de la fiche

Ça par contre, je n'ai pas compris. Dans le Create de la form, tu appelles "SelectionChange" ?

[gegila]

Re bonjour,

Voici les réponses





En ce qui concerne la procédure selectionChange(sender) dans le create, c'est pour avoir la mise à jour du RichEdit.

J'ai désactivé l'appel à cette procédure et le problème est toujours le même