TRichEdit property SpellChecking Delphi 11

Version imprimable

1 pièce(s) jointe(s)

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.

Pièce jointe 640227

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:

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:

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

18/06/2023, 08h39
pprem

Bonjour.
C'est un composant Windows, la solution se trouve probablement dans leur doc.
02/07/2023, 14h24
XeGregory

Citation:

Envoyé par pprem

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
03/07/2023, 08h59
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.
03/07/2023, 11h49
anapurna

salut

j'aurais deja pris ces options là

Code:

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:

SendMessage(Handle,EM_SETEVENTMASK, 0, ENM_CHANGE);
08/07/2023, 09h44
XeGregory

Citation:

Envoyé par 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.

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

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

Code:

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;

Citation:

Envoyé par XeGregory

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

Code:

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:

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;

Code:

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;

:resolu: