Un éditeur UNICODE léger et à syntaxe soulignée.
Un éditeur de code compact avec une syntaxe mise en évidence utilisant le codage UNICODE.
TCodeEdit est un composant de mon projet lysee pour l'édition des codes pascal et lysee, et il est facile à étendre pour s'adapter à d'autres langages de développement. Dans l'ensemble, TCodeEdit est petit, simple, facile à utiliser et peut être utile à d'autres codeurs, donc. Je l'ai mis ici open source.
TCodeEdit a été initialement développé comme un éditeur de code Pascal/Lysee pour mon projet Lysee, et plus tard j'ai découvert qu'il pouvait être facilement étendu pour éditer d'autres langages de programmation. Dans l'ensemble, TCodeEdit est petit, simple et facile à utiliser, et peut être utile à d'autres programmeurs, je le mets donc ici en tant que code open source que tout le monde peut utiliser.
TCodeEdit est en développement et manque de certaines fonctions utiles.
TCodeEdit est encore en cours de développement et d'amélioration. En plus de la fonction d'édition de coloration syntaxique de base, d'autres fonctions auxiliaires doivent encore être ajoutées :
TCodeEdit a été publié sous licence MIT. Utilisez-le comme vous le souhaitez.
TCodeEdit utilise la licence MIT et peut être utilisé en toute confiance.
Peut-être vient-il de terminer 60 %, donc la version actuelle est la 0.6.0.
Peut-être qu'elle n'est terminée qu'à 60 %, donc la version est provisoirement 0.6.0.
Obtenez TCodeEdit et ajoutez-le à votre projet Lazarus/Delphi.
Téléchargez TCodeEdit et ajoutez-le à votre projet de développement.
Utilisez codeedit.pas dans votre unité de formulaire et déclarez le champ de classe pour contenir TCodeEdit
Ajoutez codeedit.pas à l'unité de fenêtre qui doit utiliser TCodeEdit et déclarer les variables membres de la classe.
uses codeedit;
type
TMainForm = class (TForm)
private
FEdit: TCodeEdit ;
procedure EditStatus (Sender: TObject);
end ;
Placez un TCodeEdit là où vous le souhaitez en appelant PlaceACodeEdit().
Appelez la fonction PlaceACodeEdit pour placer TCodeEdit à l'emplacement requis.
procedure TMainForm.FormCreate (Sender: TObject);
begin
FEdit := PlaceACodeEdit(Self);
FEdit.OnStatus := @EditStatus;
end ;
Répond à l'événement OnStatus pour afficher l'état de l'éditeur et activer/désactiver le menu ou les boutons.
Répondez à l'événement OnStatus pour afficher l'état de l'éditeur et modifier les propriétés des menus, boutons et autres composants associés.
procedure TMainForm.EditStatus (Sender: TObject);
begin
EditUndoMenu.Enabled := (FEdit.Undos.Last <> nil );
EditRedoMenu.Enabled := (FEdit.Redos.Last <> nil );
EditCutMenu.Enabled := FEdit.Selection.Selected;
EditCopyMenu.Enabled := FEdit.Selection.Selected;
EditPasteMenu.Enabled := HasTextFormat;
StatusBar.Panels[ 0 ].Text := Format( ' %d, %d ' , [FEdit.Caret.LineIndex + 1 , FEdit.Caret.TextIndex]);
if FEdit.Modified then
StatusBar.Panels[ 1 ].Text := ' Changed ' else
StatusBar.Panels[ 1 ].Text := ' ' ;
StatusBar.Panels[ 2 ].Text := FEdit.Syntax.Language;
end ;
Comment ouvrir un fichier.
Comment ouvrir un fichier.
procedure TMainForm.FileOpenMenuClick (Sender: TObject);
begin
CloseDialogs;
if OpenDialog.Execute then
FEdit.Lines.LoadFromFile(OpenDialog.FileName);
end ;
En fonction de l'extension du fichier, TCodeEdit choisira automatiquement la syntaxe de langue préférée.
Après avoir ouvert le fichier, TCodeEdit sélectionne automatiquement la classe de coloration syntaxique correspondante en fonction du suffixe du fichier.
Comment utiliser la classe de syntaxe manuellement.
Comment définir manuellement les classes de coloration syntaxique.
FEdit.Syntax.SyntaxClass := TPascalSyntax;
FEdit.Syntax.SyntaxClass := FindSyntax( ' Pascal ' );
FEdit.Syntax.SyntaxClass := FindSyntaxByFileExt( ' .pas ' );
FEdit.Syntax.SyntaxClass := FindFileSyntax( ' ~/editor/frmmain.pas ' );