Discussion :

[AbeBar27]

Bonjour,

Je vous propose un nouvel élément à utiliser : TSyntaxMemo un mémo à coloration syntaxique très simple (VCL)

Un composant qui permet la coloration syntaxique dans un descendant de TCustomMemo.

TSyntaxMemo permet de distinguer de manière paramétrable les mise en forme de :

•

Des mots-clés comme par exemple "Begin", "End" etc.

•

Des caractères spéciaux comme ";" , "=" etc.

•

Des commentaires mono ou multi-lignes symbole de délimitation paramétrable.

•

Des nombres entiers en représentation décimale, hexadécimal, octal, binaire. Préfixe non paramétrable.

•

D’autre part TSyntaxMemo permet de gérer :

•

La taille des tabulations.

•

Des marges gauche et droite (imperfection pour la marge droite)

•

Le numéro de la première ligne affichée.

•

Le numéro de ligne courante.

•

Les évènements OnVScroll (scrolling vertical) et OnMouseWheel.

Il reste quelques petites imperfections que je n’ai pas (encore) réussi à éliminer mais le fonctionnement est globalement satisfaisant compte tenu du fait que ce n’est pas un traitement de texte et que je n’ai pas la prétention d’offrir un éditeur aussi sophistiqué que Notepad++ ou l’EDI de Delphi.

D’autant plus que tout ça tiens dans une seule unité de 550 lignes / 17 Ko.

Des nombres réels en virgule fixe ou flottante (avec une petite imperfection peu gênante)

•

Des caractères entre quotes (chaînes par exemple) mono ou multi-lignes, le symbole de délimitation étant paramétrable



Qu'en pensez-vous ?

[ALWEBER]

J'ai voulu tester sur Delphi XE11 mais j'ai un petit probleme avec la propriété Color

[AbeBar27]

J'ai voulu tester sur Delphi XE11 mais j'ai un petit probleme avec la propriété Color

Quel est le problème ? S'agit-il de la propriété Color du SyntaxMemo ?
Il est bien possible que la version XE11 ne gère pas les symboles de couleur tels que clAntiqueWhite...

[Invité]

Bonjour,
J'ai fait un simple test pour créer le contrôle sans installation, le programme entre en boucle infinie:

Code :

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

1
2
3
4
5
6
7
8
var
 SyntaxMemo: TSyntaxMemo;
begin
     SyntaxMemo:= TSyntaxMemo.Create(Self);
     SyntaxMemo.Parent := self;
     SyntaxMemo.Align := alClient;
     SyntaxMemo.Text := 'test'
end;

[SergioMaster]

Bonjour,

Testé avec D12.2

Pour moi plusieurs points sont à soulever.
il manque le bpl, donc impossible de tester directement le projet, AMHA il faudrait créer un groupe de projets pour proposer de créer et installer le composants
quelque chose comme ça

mais en prenant compte du problème de noms


Une fois le composant "brut" installé, je ne me suis pas amusé à créer la procédure register, j'arrive à quelque chose

Mais en cours de saisie le comportement est assez étrange la coloration n'est pas toujours gardée, il faut sortir du composant pour retrouver un affichage correct.
je n'avais pas cocher l'option repeindre sur frappe

Tout ce qui est initialisation me fait tiquer

A mon avis, il devrait être possible d'en faire des propriétés du composant.

enfin, seules les {} sont considérées comme commentaires (cf image plus haut)
adieu les formes comme // un commentaire ou (* un autre commentaire *), quid des /// un commentaire de documentation


Du coup, comme il n'est que VCL l'utilisation de bibliothèque déjà existante comme SynEdit, ne serait-ce pas, quelque part, réinventer une roue en bois pleine alors que l'on a la possibilité d'un truc plus complet (selon mes souvenirs)?

[AbeBar27]

Bonjour,

Testé avec D12.2

Pour moi plusieurs points sont à soulever.
il manque le bpl, donc impossible de tester directement le projet,

Le Bpl se trouve dans le fichier zip, répertoire Bpl.

Tout ce qui est initialisation me fait tiquer
A mon avis, il devrait être possible d'en faire des propriétés du composant.

C'est mon choix de ne pas en faire des propriétés. Une grammaire n'a pas besoin d'être changée fréquemment.

enfin, seules les {} sont considérées comme commentaires (cf image plus haut)
adieu les formes comme // un commentaire ou (* un autre commentaire *), quid des /// un commentaire de documentation

Non non... On peut très bien avoir des commentaires // un commentaire
On peu même choisir le caractère et s'il faut ou non le doubler comme ; uncommentaire de fichier .ini

Du coup, comme il n'est que VCL l'utilisation de bibliothèque déjà existante comme SynEdit, ne serait-ce pas, quelque part, réinventer une roue en bois pleine alors que l'on a la possibilité d'un truc plus complet (selon mes souvenirs)?

Je connais Synedit, mais comme je le dis en introduction dans ma doc :
J’ai essayé plusieurs composants (SynEdit, PlusMemo, TextEditor…) qui sont assez complets et performants mais que je trouve un peu lourd de mise en oeuvre.
Il me semble que c'est plus simple non ???

[AbeBar27]

Bonjour,
J'ai fait un simple test pour créer le contrôle sans installation, le programme entre en boucle infinie:

Code :

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

1
2
3
4
5
6
7
8
var
 SyntaxMemo: TSyntaxMemo;
begin
     SyntaxMemo:= TSyntaxMemo.Create(Self);
     SyntaxMemo.Parent := self;
     SyntaxMemo.Align := alClient;
     SyntaxMemo.Text := 'test'
end;

Désolé une erreur de ma part, j'ai mis dans les sources une mauvaise version des fichiers dans lesquels il manquait la ligne :
kEndText := kSeparateurs+[#10]+kKeyChars;
dans le constructeur TSyntaxMemo.Create.
Du coup, kEndText est vide quand on créé un nouveau composant, ce qui fait entrer dans une boucle sans infine à la fin de la méthode TexteSuivant.
Ca devrait mieux marcher maintenant.

[Andnotor]

Loaded n'est appelé que si lecture depuis le dfm pour traiter les données stockées, ce n'est pas fait pour de l'initialisation. Ce qui figure dans cette méthode doit être réparti entre le constructeur d'une part et une surcharge de CreateWnd pour ce qui nécessite un handle (tabulations, couleurs).

Sinon ça fonctionne mais ces constantes modifiables...
Procéder ainsi limite aussi la mise en évidence à un seul langage par application. Pas possible par exemple de comparer Delphi et du C.
A la place des classes dérivées de TPersistent pour des réglages par l'inspecteur d'objets.

Et il ne faut pas qu'un commentaire multilignes ait plus de FStartOffset lignes masquées sinon c'est cuit.

Le but est-il de supporter des versions antérieures à XE7 ? Sinon un parser à base d'expressions régulières simplifierait grandement le code.