Discussion :

[patrice@]

Bonjour à tous
Je cherche un correcteur grammatical mais impossible de trouver quoi que ce soit.
Le correcteur orthographique est intégré maintenant aux TRichEdit mais rien du coté grammatical.
Auriez vous une solution ?

J'ai pensé à utiliser celui de Word mais l’excellent tuto fait par Nono40 (https://nono40.developpez.com/tutori...rd/correction/) date un peu (2005) et je ne sais pas comment l'implémenter dans Delphi
Là aussi si vous avez une solution, je suis preneur

J'ai vu aussi l'utilitaire LanguageTool, mais il ne semble pas possible de l'utiliser dans les applications

[ShaiLeTroll]

On avait eu un sujet sur le SpellChecking , il y a tout pile un an !
Le même auteur semble toujours sur le sujet TRichEdit CHARFORMAT2A CFU_UNDERLINEWAVE
Peut-être que vous avez des projets convergents ?


Le Tuto de Nono40, as-tu essayé de le compiler ?
Surement du EarlyBinding à récrire en LateBinding (sans faire l'import de la TLB)

Ayant plutôt travaillé sur un éditeur de XML, seulement le Highligth, on ne m'a pas demandé en plus de détecter les blocs mal formés, j'aurais été bien en difficulté, la majeure partie des erreurs se voit avec la coloration qui déconne
J'ai un peu l'impression que la correction grammatical est proche de l'analyse logique d'un code source ou XML/JSON avec des séquences attendues, tu fais bien de partir sur une lib externe, le temps de développement serait bien trop long.

[Papy214]

https://github.com/coderserdar/Delph...ther/NHunSpell

ce composant est fait pour, je crois

[patrice@]

On avait eu un sujet sur le SpellChecking , il y a tout pile un an !

Bonjour ShaiLeTroll, ce post a été l'une de mes bases de départ à partir de quoi j'ai fais pas mal de recherche (à partir du moment où tu te dis "tiens c'est pas bête ça, comment on fait ...")
Le nouveau TRichEdit de la VCL (nouveau parce qu'avec mes recherches j'ai découvert cette semaine la propriété SpellChecking du TRichEdit) propose en natif la correction orthographique mais absolument pas la correction grammaticale.

Ce composant est fait pour, je crois

J'ai testé aussi, mais une classe est absente de la distribution "TAddictSpell" (impossible à trouver) pour pouvoir faire des tests. Donc impossible de mener à bien des vérifs et des tests plus complet.
J'ai trouvé pas mal de site qui reprennent Hunspell mais cela ne fait que de la correction orthographique, pas mieux d’ailleurs et en plus lent en plus que le nouveau TRichEdit que l'on a en natif dans la VCL.

Nono40 travaillait avec la bibliothèque de type "Microsoft Word 11.0 Object Library", mais avec les nouveaux environnement Office, cette bibliothèque ne semble plus exister. Et je n'ai trouvé aucun tuto permettant de travailler avec des MS Office "moderne"

Mais au delà de ça, ma recherche va vers la correction grammaticale. La correction orthographique étant déjà prise en charge par RichEdit.

D'où l'idée de regarder vers une lib extérieure. Je suis tombé sur ce post https://forum.languagetool.org/t/patchwork/504, qui m'a renvoyé vers ceci https://github.com/languagetool-org/languagetool mais là, je ne sais pas quoi en faire !

Voilà, si l'envie vous prends de vous pencher dessus, je serai preneur de vos solutions.

[XeGregory]

Correcteur orthographique TMS
https://www.tmssoftware.com/site/tmsspellcheck.asp

Lmd RichPack inclut les composants TLMDSpellChecker
https://www.lmdinnovative.com/products/vcl/lmdrichpack
https://files.lmd.de/downloads/tutor..._component.htm

THunSpell
https://github.com/edwinyzh/THunSpell

TRichEdit property SpellChecking Delphi 11

Voici un petit exemple de la correction orthographique capsulée d'un dictionnaire :

[Invité]

le seul que je connais est grammalecte malheureusement en js

Pièce jointe 656362

[patrice@]

XeGregory, je viens de poster une question concernant un de tes codes sur le forum en lien avec a rechercher (tu déclares

Code :

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

var Format2A: CHARFORMAT2A;

et le compilo me dit : "Identificateur non déclaré : CHARFORMAT2A" et je galère
Tu ne veut pas poster ton code en entier en tant que tuto ? ce serait super sympa

Ok, je vais regarder tous les liens

... TMS : ouah le prix, pour un logiciel perso ...

[XeGregory]

XeGregory, je viens de poster une question concernant un de tes codes sur le forum en lien avec a rechercher (tu déclares

Code :

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

var Format2A: CHARFORMAT2A;

et le compilo me dit : "Identificateur non déclaré : CHARFORMAT2A" et je galère
Tu ne veut pas poster ton code en entier en tant que tuto ? ce serait super sympa

Ok, je vais regarder tous les liens

... TMS : ouah le prix, pour un logiciel perso ...

Il faut que tu déclare l'unit

Code :

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

uses Winapi.RichEdit

https://www.developpez.net/forums/d2...underlinewave/
Comme tu pourra le constaté je n'est pas réussi a intercepté les lignes ondulés du SpellChecking, donc j'avais trouvé une autre solution pour géré les TPopUpMenu.

J'ai trouvé cette solution-là , vu que le SpellChecking se présente avant la demande d'ouverture du PopUpMenu1 on lui laisse la place, s'il se présente pas ont réattribue le PopUpMenu1 au Control.

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
 
type
  TCustomRE = class(TCustomRichEdit);
 
procedure TForm1.RichEditMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  case Button of
    mbRight:
      begin
        if (Screen.ActiveControl is TCustomRichEdit) and
          not Assigned(TCustomRE(Screen.ActiveControl).PopupMenu) then
          TCustomRE(Screen.ActiveControl).PopupMenu := PopupMenu1
        else
          TCustomRE(Screen.ActiveControl).PopupMenu := nil;
      end;
  end;
end;

Pièce jointe 654047

[XeGregory]

... TMS : ouah le prix, pour un logiciel perso ...

Non, ça va, le prix est abordable.
TMS VCL UI Pack 375€ c'est la pack complet avec les 600 composants VCL.