Un editor UNICODE ligero y con sintaxis destacada.
Un editor de código compacto con sintaxis resaltada que utiliza codificación UNICODE.
TCodeEdit es un componente de mi proyecto lysee para editar códigos pascal y lysee, y es fácil de ampliar para adaptarse a otros lenguajes en desarrollo. En general, TCodeEdit es pequeño, simple, fácil de usar y puede resultar útil para otros codificadores, por lo que. Lo puse aquí de código abierto.
TCodeEdit se desarrolló originalmente como un editor de código Pascal/Lysee para mi proyecto Lysee y luego descubrí que se puede ampliar fácilmente para editar otros lenguajes de programación. En general, TCodeEdit es pequeño, simple y fácil de usar, y puede ser útil para otros programadores, así que lo pongo aquí como un código fuente abierto para que todos lo usen.
TCodeEdit está en desarrollo y carece de algunas funciones útiles.
TCodeEdit aún está en desarrollo y mejora. Además de la función básica de edición de resaltado de sintaxis, aún se deben agregar algunas otras funciones auxiliares:
TCodeEdit fue lanzado bajo la licencia MIT. Úselo como quiera.
TCodeEdit utiliza la licencia MIT y puede usarse con confianza.
Quizás acaba de completar el 60%, por lo que la versión actual es 0.6.0.
Quizás solo esté completo al 60%, por lo que la versión es tentativamente 0.6.0.
Obtenga TCodeEdit y agréguelo a su proyecto Lazarus/Delphi.
Descarga TCodeEdit y agrégalo a tu proyecto de desarrollo.
Utilice codeedit.pas en su unidad de formulario y declare el campo de clase para contener TCodeEdit
Agregue codeedit.pas a la unidad de ventana que necesita usar TCodeEdit y declarar variables miembro de clase.
uses codeedit;
type
TMainForm = class (TForm)
private
FEdit: TCodeEdit ;
procedure EditStatus (Sender: TObject);
end ;
Coloque un TCodeEdit en el lugar que desee llamando a PlaceACodeEdit().
Llame a la función PlaceACodeEdit para colocar TCodeEdit en la ubicación requerida.
procedure TMainForm.FormCreate (Sender: TObject);
begin
FEdit := PlaceACodeEdit(Self);
FEdit.OnStatus := @EditStatus;
end ;
Responde al evento OnStatus para mostrar el estado del editor y habilitar/deshabilitar el menú o los botones.
Responda al evento OnStatus para mostrar el estado del editor y modificar las propiedades de menús, botones y otros componentes relacionados.
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 ;
Cómo abrir un archivo.
Cómo abrir un archivo.
procedure TMainForm.FileOpenMenuClick (Sender: TObject);
begin
CloseDialogs;
if OpenDialog.Execute then
FEdit.Lines.LoadFromFile(OpenDialog.FileName);
end ;
Según la extensión del archivo, TCodeEdit elegirá automáticamente la sintaxis del idioma preferido.
Después de abrir el archivo, TCodeEdit selecciona automáticamente la clase de resaltado de sintaxis coincidente según el sufijo del archivo.
Cómo utilizar la clase de sintaxis manualmente.
Cómo configurar manualmente clases de resaltado de sintaxis.
FEdit.Syntax.SyntaxClass := TPascalSyntax;
FEdit.Syntax.SyntaxClass := FindSyntax( ' Pascal ' );
FEdit.Syntax.SyntaxClass := FindSyntaxByFileExt( ' .pas ' );
FEdit.Syntax.SyntaxClass := FindFileSyntax( ' ~/editor/frmmain.pas ' );