ATSynEdit EControl adapter: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		# Intro
2	2
3	3		[[ATSynEdit]] has adapter for lexers from SynWrite editor. It's EControl lexer engine.
4	4
5	5		- Use repo <https://github.com/Alexey-T/EControl>
6	6		- Use repo <https://github.com/Alexey-T/ATSynEdit_Ex>
7	7
8	8		Unit ATSynEdit_Adapter_EControl contains class TATAdapterEControl. You must create object of this class and assign this object to editor property AdapterHilite.
9	9
10	10		For ex, if you have editor object:
11	11
12	12		``` pascal
13	13		//form's OnCreate
14	14		Adapter:= TATAdapterEControl.Create(Self);
15	15		Edit1.AdapterHilite:= Adapter;
16	16		```
17	17
18	18		For ex, if you have 2 editor objects with the same text-source (see help topic [[ATSynEdit]]):
19	19
20	20		``` pascal
21	21		Adapter:= TATAdapterEControl.Create(Self);
22	22		Adapter.AddEditor(Ed1);
23	23		Adapter.AddEditor(Ed2);
24	24		Ed1.AdapterHilite:= Adapter;
25	25		Ed2.AdapterHilite:= Adapter;
26	26		```
27	27
28	28		# Properties
29	29
30	30		- Lexer: TecSyntAnalyzer. You must set this prop from SyntaxManager object. SyntaxManager is a collection of lexers, which is loaded from .lxl file. After you load SyntaxManager, get its any item and assign it to Lexer prop. Example exists in demo of ATSynEdit. Set to nil to disable adapter.
31	31
32	32		- DynamicHiliteEnabled: boolean. This enables dynamic highlight, ie highlight of tokens depending on caret position. If enabled, adapter reads editor's caret-pos-changed event and recalculates hiliting if needed. Some lexers use this feature: HTML hilites tags with green if caret is inside tag; Pascal hilites "begin"/"end" with green if caret is inside block; rare C-like lexers hilite brackets.
33	33
34		-	~~<figure>~~
35		-	~~<img src="atsynedit_dyn_hilite.png" title="atsynedit_dyn_hilite.png" />~~
36		-	~~<figcaption>atsynedit_dyn_hilite.png</figcaption>~~
37		-	~~</figure>~~
	34	+	![](/wiki-images/5/58/Atsynedit_dyn_hilite.png)
38	35
39	36		- OnParseBegin, OnParseDone: these events called by adapter on analyzing start and after analyzing finish. If big file parsed, OnParseDone will fire after few seconds, during which user may edit/scroll file.
40	37
41	38		- procedure AddEditor(AEdit: TATSynEdit). This adds editor to internal list. This is to support 2+ editors which have single text-source (application has split-tab feature). Pass nil to clear internal list and disable adapter.
42	39
43	40		# Syntax tree
44	41
45	42		Support for syntax tree exists like in SynWrite. Many lexers support tree (most C-based, Pascal, HTML, CSS, Python...). You need to add TTreeView to your form and use it in this API. Set tree read/only.
46	43
47		-	~~<figure>~~
48		-	~~<img src="atsynedit_tree.png" title="atsynedit_tree.png" />~~
49		-	~~<figcaption>atsynedit_tree.png</figcaption>~~
50		-	~~</figure>~~
	44	+	![](/wiki-images/d/d0/Atsynedit_tree.png)
51	45
52	46		``` pascal
53	47		procedure TreeFill(ATree: TTreeView);
54	48		```
55	49
56	50		It fills tree with nodes from adapter. Call it only after parsing is done. On parsing start, better clear the tree.
57	51
58	52		``` pascal
59	53		property TreeBusy: boolean
60	54		```
61	55
62	56		It is true during filling of tree by TreeFill.
63	57
64	58		``` pascal
65	59		procedure TreeShowItemForCaret(Tree: TTreeView; P: TPoint);
66	60		```
67	61
68	62		This focuses tree node, for given caret position. Only if position has a node.
69	63
70	64		``` pascal
71	65		function TreeGetPositionOfRange(R: TecTextRange): TPoint;
72	66		function TreeGetRangeOfPosition(P: TPoint): TecTextRange;
73	67		```
74	68
75	69		These get caret position from a range, or range from caret position. Range is object, it's stored in TTreeNode.Data of nodes. If you want to goto clicked tree item, add OnDblClick event to tree, and use this API. Example:
76	70
77	71		``` pascal
78	72		procedure TfmMain.TreeDblClick(Sender: TObject);
79	73		var
80	74		R: TecTextRange;
81	75		P: TPoint;
82	76		begin
83	77		if Tree.Selected=nil then exit;
84	78		if Tree.Selected.Data=nil then exit;
85	79		R:= TecTextRange(Tree.Selected.Data);
86	80		P:= CurrentFrame.Adapter.TreeGetPositionOfRange(R);
87	81		FTreeClick:= true;
88	82		CurrentEditor.DoGotoPosEx(P);
89	83		CurrentEditor.SetFocus;
90	84		FTreeClick:= false;
91	85		end;
92	86		```
93	87
94	88		# Syntax tree icons
95	89
96	90		Many lexers support icons in tree (e.g. Pascal, C#). To show icons, use for tree ImageList with these 8 icons: folder, parts-1, parts-2, parts-3, box, func, arrow-1, arrow-2. Example of icons from CudaText:
97	91
98		-	~~<figure>~~
99		-	~~<img src="atsynedit_tree_img.png" title="atsynedit_tree_img.png" />~~
100		-	~~<figcaption>atsynedit_tree_img.png</figcaption>~~
101		-	~~</figure>~~
	92	+	![](/wiki-images/b/b9/Atsynedit_tree_img.png)
102	93
103	94		---
104	95		From the Free Pascal wiki, page "ATSynEdit EControl adapter", as it stood on 2020-02-09 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).
105	96		Category: ATSynEdit

Back to history