unit Unit1; {$mode objfpc}{$H+} interface uses Forms, Graphics, Dialogs, SynEdit, Menus, LazUTF8, SynHighlighterPosition, SynEditHighlighter; type { TForm1 } TForm1 = class(TForm) MainMenu1: TMainMenu; FileMenuItem: TMenuItem; ExitMenuItem: TMenuItem; OpenMenuItem: TMenuItem; MenuItem2: TMenuItem; OpenDialog1: TOpenDialog; SynEdit1: TSynEdit; procedure FormCreate(Sender: TObject); procedure OpenMenuItemClick(Sender: TObject); private public Highlighter: TSynPositionHighlighter; end; var Form1: TForm1; implementation {$R unit1.lfm} { TForm1 } procedure TForm1.OpenMenuItemClick(Sender: TObject); begin if not OpenDialog1.Execute then exit; SynEdit1.Lines.LoadFromFile(UTF8ToSys(OpenDialog1.FileName)); end; procedure TForm1.FormCreate(Sender: TObject); var Attr1, Attr2: TtkTokenKind; begin // create highlighter Highlighter:=TSynPositionHighlighter.Create(Self); // add some attributes Attr1:=Highlighter.CreateTokenID('Attr1',clRed,clNone,[]); Attr2:=Highlighter.CreateTokenID('Attr2',clBlue,clNone,[fsBold]); // define highlighted areas // Line 0, from start of line to pos 3 (3 chars) highlighted as Attr1 Highlighter.AddToken(0,3,Attr1); // Line 1, keep the first 3 chars as default Highlighter.AddToken(1,3,tkText); // Line 1, from pos 3 (end of prev token) to pos 5 (2 chars) highlighted as Attr2 Highlighter.AddToken(1,5,Attr2); // use highlighter SynEdit1.Highlighter:=Highlighter; // set some example text SynEdit1.Lines.Text:= 'This is some'+LineEnding +'example text.'+LineEnding; end; end.