Discussion :

[XeGregory]

Bonjour à tous,

https://docwiki.embarcadero.com/Libr....SpellChecking

Es t’il possible d'afficher toute les fautes orthographe du TRichEdit.

Le problème est que lorsque l'option SpellChecking est activée, elle ne met pas à jour automatiquement le RichEdit, il n'affiche donc pas toute les fautes orthographe.

En revanche, il se déclenche bien lors de la saisie de texte.



Cela fonctionne aussi lors d'un Ctrl+C & Ctrl+V, il affiche toute les fautes orthographe.

J'ai testé la méthode Repaint() en vain sans succès.

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.CkSpellCheckingClick(Sender: TObject);
begin
  if CkSpellChecking.Checked then
    RichEdit.SpellChecking := True
  else
    RichEdit.SpellChecking := False;
 
  RichEdit.Repaint;
end;

J'ai cherché dans l'unité Vcl.ComCtrls ou ce trouve la (property SpellChecking) qui elle renvoi vers cette procédure :

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
procedure TCustomRichEdit.SetSpellChecking(Value: Boolean);
begin
  if FSpellChecking <> Value then
  begin
    FSpellChecking := Value;
    if FSpellChecking then
      DoEnableSpellChecking
    else
      RecreateWnd;
  end;
end;
 
procedure TCustomRichEdit.DoEnableSpellChecking;
begin
  if HandleAllocated then
  begin
    // Ref: https://docs.microsoft.com/en-us/archive/blogs/murrays/richedit-spell-checking-autocorrection-and-prediction
    SendMessage(Handle, EM_SETLANGOPTIONS, 0, IMF_SPELLCHECKING);
    SendMessage(Handle, EM_SETEDITSTYLE,
      SES_USECTF or SES_CTFALLOWEMBED or SES_CTFALLOWSMARTTAG or SES_CTFALLOWPROOFING,
      SES_USECTF or SES_CTFALLOWEMBED or SES_CTFALLOWSMARTTAG or SES_CTFALLOWPROOFING);
  end;
end;

Cette procédure permet activé le SpellChecking du TRichEdit.

Mes impossible de mettre à jour le TRichEdit.

Auriez vous un idée ?

Merci

[pprem]

Bonjour.
C'est un composant Windows, la solution se trouve probablement dans leur doc.

[XeGregory]

Bonjour.
C'est un composant Windows, la solution se trouve probablement dans leur doc.

Bonjour pprem,

J'ai rechercher sur la doc de microsoft du coté "getlangoptions".
en vain impossible de trouvé la solution

https://learn.microsoft.com/fr-fr/wi...getlangoptions

[pprem]

Après quelques recherches, pareil, je ne vois rien qui permettrait de déclencher la correction car il semble que ce soit le clavier qui gère ça et non le contrôle en saisie.

Tente peut-être d'ajouter un espace puis le supprimer en début de texte par l'envoi de touches (SPACE puis BACKSPACE) par messages Windows au composant. C'est moche, très moche même, mais ça doit pouvoir faire le job.

[anapurna]

salut

j'aurais deja pris ces options là

Code :

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

 SendMessage(Handle, EM_SETLANGOPTIONS, 0,IMF_SPELLCHECKING or IMF_TKBPREDICTION or IMF_TKBAUTOCORRECTION

petite question as tu essayé de lui dire d'appliquer ceci apres le changement

Code :

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

 SendMessage(Handle,EM_SETEVENTMASK, 0, ENM_CHANGE);

[XeGregory]

Après quelques recherches, pareil, je ne vois rien qui permettrait de déclencher la correction car il semble que ce soit le clavier qui gère ça et non le contrôle en saisie.

Tente peut-être d'ajouter un espace puis le supprimer en début de texte par l'envoi de touches (SPACE puis BACKSPACE) par messages Windows au composant. C'est moche, très moche même, mais ça doit pouvoir faire le job.

Bonjour pprem,

Effectivement cela ce déclenche bien par le clavier.

C'est vraiment dommage d'avoir développé un correcteur d'orthographe et de ne pas pouvoir mettre à jour l’intégralité du contrôle de saisie.

Je pense que la fonctionnalité SpellChecking est capsulé avec ceci : Vérifier l’orthographe en cours de frappe.

https://support.microsoft.com/fr-fr/...6-061163c8d01a

[XeGregory]

J'ai trouvé une petite parade pour mettre à jour l’intégralité du RichEdit, Ce n'est pas très glamour mais ça fonctionne

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
procedure TForm1.CkSpellCheckingClick(Sender: TObject);
begin
  if CkSpellChecking.Checked then
  begin
    with RichEdit do
    begin
      Lines.BeginUpdate;
      SpellChecking := True;
      SelectAll;
      CutToClipboard;
      SetFocus;
      keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
      keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0);
      keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0);
      keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);
      Lines.EndUpdate;
    end;
  end
  else
    RichEdit.SpellChecking := False;
end;

[XeGregory]

J'ai trouvé une petite parade pour mettre à jour l’intégralité du RichEdit, Ce n'est pas très glamour mais ça fonctionne

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
procedure TForm1.CkSpellCheckingClick(Sender: TObject);
begin
  if CkSpellChecking.Checked then
  begin
    with RichEdit do
    begin
      Lines.BeginUpdate;
      SpellChecking := True;
      SelectAll;
      CutToClipboard;
      SetFocus;
      keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
      keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0);
      keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0);
      keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);
      Lines.EndUpdate;
    end;
  end
  else
    RichEdit.SpellChecking := False;
end;

Ou alors :

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 TForm1.CkSpellCheckingClick(Sender: TObject);
begin
  if CkSpellChecking.Checked then
  begin
    with RichEdit do
    begin
      Lines.BeginUpdate;
      SpellChecking := True;
      SelectAll;
      CopyToClipboard;
      SendMessage(RichEdit.handle, WM_KEYDOWN, VK_DELETE, 0);
      PasteFromClipboard;
      Lines.EndUpdate;
    end;
  end
  else
    RichEdit.SpellChecking := False;
end;

[XeGregory]

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 UpDateSpellChecking(RichEdit : TRichEdit);
var
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
 
  with RichEdit do
  begin
    Lines.BeginUpdate;
    SelectAll;
    Lines.SaveToStream(Stream);
    SendMessage(RichEdit.Handle, WM_KEYDOWN, VK_DELETE, 0);
    Stream.Position := 0;
    Lines.LoadFromStream(Stream);
    FreeAndNil(Stream);
    Lines.EndUpdate;
  end;
end;