SynEdit/es
│
Deutsch (de) │
English (en) │
español (es) │
français (fr) │
日本語 (ja) │
polski (pl) │
русский (ru) │
中文(中国大陆) (zh_CN) │
SynEdit es un paquete que contiene un componente editor de código fuente llamado TSynEdit, varios resaltadores de sintaxis y otros componentes utilizados para la edición de código fuente. Está basado en SynEdit 1.3 a partir del cual fué adaptado y extendido con características tales como soporte UTF-8 y plegado de código (code folding).
SynEdit en el IDE
El componente SynEdit es un paquete que ya viene integrado con Lazarus debido a que lo utiliza el propio IDE. Es por ello que no existe un fichero .lpk. Estos componentes se pueden encontrar dentro de la paleta de componentes en la solapa 'SynEdit'.
Ejemplos
Se puede encontrar un ejemplo en lazarus/examples/synedit1.lpi.
Como añadir soporte para Copy, Paste, Cut, Undo, Redo, etc
Estas características se pueden implementar utilizando mandatos SynEdit.
<delphi> uses
... SynEdit, SynEditKeyCmds;
procedure TfrmPrincipal.HandleCodigoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Shift = [ssCtrl]) then begin case Key of VK_C: synCodigo.CommandProcessor(TSynEditorCommand(ecCopy), ' ', nil); VK_V: synCodigo.CommandProcessor(TSynEditorCommand(ecPaste), ' ', nil); VK_X: synCodigo.CommandProcessor(TSynEditorCommand(ecCut), ' ', nil); end; end; end;</delphi>
Menú con Deshacer y Rehacer
<delphi> procedure TForm1.MenuRehacer(Sender: TObject);
begin SynEdit1.Redo; end;
procedure TForm1.MenuDeshacer(Sender: TObject); begin SynEdit1.Undo; end;</delphi>
Menus con Duplicar e intercambiar líneas
<delphi> //Duplicar Línea
procedure TForm1.MenuDuplicarLinea(Sender: TObject); begin SynEdit1.Lines.Insert(CustSynEdit().CaretY,CustSynEdit().LineText); end;
//Intercambiar Línea hacia Arriba procedure TForm1.MenuLineaArriba(Sender: TObject); begin if CustSynEdit.CaretY -1 >= 1 then begin CustSynEdit.Lines.Exchange(CustSynEdit.CaretY -1 ,CustSynEdit.CaretY-2); CustSynEdit.CaretY:=CustSynEdit.CaretY-1; end; end;
//Intercambiar Línea hacia Abajo procedure TForm1.MenuLineaAbajo(Sender: TObject); begin if ( CustSynEdit.CaretY + 1 <= CustSynEdit.Lines.Count) then begin CustSynEdit.Lines.Exchange(CustSynEdit.CaretY-1,CustSynEdit.CaretY); CustSynEdit.CaretY:=CustSynEdit.CaretY+1; end; end;</delphi>
Insertar caracteres en la posición actual
<delphi> procedure TForm1.Button1Click(Sender: TObject);
begin SynEdit1.CommandProcessor(ecChar,'a', nil); //Inserta a SynEdit1.SetFocus; end;</delphi>
Completamiento de Código con SynCompletion
<delphi> Uses
... ... LCLType,//Para poder usar VK_SPACE syncompletion;
... ... .... var Completion:TSynCompletion; begin Completion:=TSynCompletion.Create(Self); Completion.Editor:=SynEdit; Completion.ShortCut:=Menus.ShortCut(VK_SPACE, [ssCtrl]); Completion.ItemList.add('Arc( )'); Completion.ItemList.add('Axes( )'); Completion.ItemList.add('Bezier( )'); Completion.ItemList.add('Cercle( )'); end;</delphi>
Desplegar TSynCompletion en la posición actual
<delphi> procedure TForm1.Button1Click(Sender: TObject);
var p:TPoint; begin with SynEdit1 do begin P := Point(CaretXPix,CaretYPix + LineHeight); P.X:=Max(0,Min(P.X,ClientWidth-Completion.Width)); P := ClientToScreen(p); end; Completion.Execute(,p.x,p.y); end;</delphi>
Documentación
El usuario bubulemaster ha realizado un documento sobre SynEdit disponible aquí
Está en francés, no se si más adelante lo traducirá al inglés.
Más desarrollos, discusiones
- RTL (de derecha a izquierda (Right-To-Left)): comenzado por Mazen
- Selección automática de fuente monoespacio: Por el momento SynEdit comienza con el tipo de fuente 'courier'. Pero sería mejor, si SynEdit comenzara con una tipografía monoespaciada (es decir: todos los caracteres tienen la misma anchura). Por ahora el LCL TFont no aporta tal propiedad y el usuario tiene que escoger la fuente correcta.
- Selección automática de fuente UTF-8: Igual que el caso anterior de monoespaciado, pero con una cadena UTF-8 de fuente, de modo que por ejemplo umlaute se muestra correctamente. Por ahora el usuario tiene que elegir la fuente correcta.
- Teclas muertas. La mayoría de los teclados soportan pulsar una o más teclas para crear un carácter especial (como en los caracteres acentuados (á,é,í,...) o con el umlaut).
- Rediseño del componente SynEdit. El objetivo principal es una presentación y un navegación por el texto más fiable. Un enfoque más modular para permitir una mejor integración de las extensiones, y por controles especializados, para su utilización fuera de Lazarus.