paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 21:57:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

Examples: improve position highlighter example

Browse Source 
git-svn-id: trunk@27657 -
This commit is contained in:
martin 2010-10-11 22:56:04 +00:00
parent 577c3c2d8b
commit 719ee2d1ad
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
examples/SynEdit/SynPositionHighlighter/unit1.pas
View File

@ -51,9 +51,15 @@ begin
Attr1:=Highlighter.CreateTokenID('Attr1',clRed,clNone,[]); Attr1:=Highlighter.CreateTokenID('Attr1',clRed,clNone,[]);
Attr2:=Highlighter.CreateTokenID('Attr2',clBlue,clNone,[fsBold]); Attr2:=Highlighter.CreateTokenID('Attr2',clBlue,clNone,[fsBold]);
// define // define highlighted areas
// Line 0, from start of line to pos 3 (3 chars) highlighted as Attr1
Highlighter.AddToken(0,3,Attr1); Highlighter.AddToken(0,3,Attr1);
Highlighter.AddToken(1,2,Attr2);
// 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 // use highlighter
SynEdit1.Highlighter:=Highlighter; SynEdit1.Highlighter:=Highlighter;