How to setup text sharing between two or more synedits?

[Pascal]

Hello,

how can i setup two or more synedits which share the same textbuffer?

Regards
Pascal

[Thaddy]

Do you mean fully synchronized including the caret, or just the same buffer? (Look for the assign method for the same buffer)

[Blaazen]

Alternatively, there's package from one member which can split Source Editor into two (horizontally or vertically).
It's a few years old but when I tested it last time it worked well.
http://forum.lazarus.freepascal.org/index.php?topic=19769.0

[Pascal]

I want to edit one textbuffer with two different tsynedits. So no syncronized carets.

[Martin_fr]

use the following.

Code: Pascal  [Select][+][-]

1.     procedure ShareTextBufferFrom(AShareEditor: TCustomSynEdit);
2.     procedure UnShareTextBuffer;
3.     property ShareOptions: TSynEditorShareOptions read FShareOptions write SetShareOptions
4.       default SYNEDIT_DEFAULT_SHARE_OPTIONS; experimental;
5.  

This can only be done in code, not in the designer.

[Pascal]

use the following.

Code: Pascal  [Select][+][-]

1.     procedure ShareTextBufferFrom(AShareEditor: TCustomSynEdit);
2.     procedure UnShareTextBuffer;
3.     property ShareOptions: TSynEditorShareOptions read FShareOptions write SetShareOptions
4.       default SYNEDIT_DEFAULT_SHARE_OPTIONS; experimental;
5.  

This can only be done in code, not in the designer.

Okay. Thanks. I will try it.

[Pascal]

Does destroying one of the connected synedits automaticaly UnShareTextBuffer
or do i have to do it in Destroy of my synedit? As i have seen calling
UnShareTextBuffer on an unshared synedit doesn't do anything with the TextBuffer.

[Martin_fr]

It should automatically detach on destroy.

[Pascal]

TextBuffer sharing doesn't work with my decendant of SynEdit. It uses TSourceLazSynSurfaceManager and
crashes (AV) when painting (FOriginalManager.Paint). Has something to do with gutter marks.

See callstack:

Code: Pascal  [Select][+][-]

1. #0 GETMARKLINE(0x0, 1) at ..\..\laz\components\synedit\syneditmarks.pp:893
2. #1 PAINTMARKS(0xb9693d0, 0, 0x1f05d6e0, {LEFT = 5, TOP = 0, RIGHT = 29, BOTTOM = 16, TOPLEFT = {X = 5, Y = 0}, BOTTOMRIGHT = {X = 29, Y = 16}}, 1) at ..\..\laz\components\synedit\synguttermarks.pp:129
3. #2 PAINTLINE(0xb9693d0, 0, 0x1f05d6e0, {LEFT = 5, TOP = 0, RIGHT = 29, BOTTOM = 16, TOPLEFT = {X = 5, Y = 0}, BOTTOMRIGHT = {X = 29, Y = 16}}) at ..\..\laz\components\synedit\synguttermarks.pp:181
4. #3 PAINT(0xb9693d0, 0x1f05d6e0, {LEFT = 5, TOP = 0, RIGHT = 29, BOTTOM = 581, TOPLEFT = {X = 5, Y = 0}, BOTTOMRIGHT = {X = 29, Y = 581}}, 0, 36) at ..\..\laz\components\synedit\synguttermarks.pp:211
5. #4 PAINT(0xfcec230, 0x1f05d6e0, 0xfc356d0, {LEFT = 0, TOP = 0, RIGHT = 67, BOTTOM = 581, TOPLEFT = {X = 0, Y = 0}, BOTTOMRIGHT = {X = 67, Y = 581}}, 0, 36) at ..\..\laz\components\synedit\syngutter.pp:281
6. #5 DOPAINT(0xfc356d0, 0x1f05d6e0, {LEFT = 0, TOP = 0, RIGHT = 67, BOTTOM = 581, TOPLEFT = {X = 0, Y = 0}, BOTTOMRIGHT = {X = 67, Y = 581}}) at ..\..\laz\components\synedit\syngutter.pp:136
7. #6 PAINT(0xfc356d0, 0x1f05d6e0, {LEFT = 0, TOP = 0, RIGHT = 67, BOTTOM = 581, TOPLEFT = {X = 0, Y = 0}, BOTTOMRIGHT = {X = 67, Y = 581}}) at ..\..\laz\components\synedit\syneditmiscclasses.pp:1304
8. #7 DOPAINT(0x104b0a20, 0x1f05d6e0, {LEFT = 0, TOP = 0, RIGHT = 672, BOTTOM = 581, TOPLEFT = {X = 0, Y = 0}, BOTTOMRIGHT = {X = 672, Y = 581}}) at ..\..\laz\components\synedit\lazsyntextarea.pp:1062
9. #8 PAINT(0x104b0a20, 0x1f05d6e0, {LEFT = 0, TOP = 0, RIGHT = 672, BOTTOM = 581, TOPLEFT = {X = 0, Y = 0}, BOTTOMRIGHT = {X = 672, Y = 581}}) at ..\..\laz\components\synedit\syneditmiscclasses.pp:1304
10. #9 DOPAINT(0x10509988, 0x1f05d6e0, {LEFT = 0, TOP = 0, RIGHT = 672, BOTTOM = 581, TOPLEFT = {X = 0, Y = 0}, BOTTOMRIGHT = {X = 672, Y = 581}}) at primeedit.pas:1053
11. #10 PAINT(0x10509988, 0x1f05d6e0, {LEFT = 0, TOP = 0, RIGHT = 672, BOTTOM = 581, TOPLEFT = {X = 0, Y = 0}, BOTTOMRIGHT = {X = 672, Y = 581}}) at ..\..\laz\components\synedit\syneditmiscclasses.pp:1304
12. #11 PAINT(0xbb5b830) at ..\..\laz\components\synedit\synedit.pp:3848
13. #12 PAINTWINDOW(0xbb5b830, 453053116) at ..\..\laz\lcl\include\customcontrol.inc:126
14. #13 PAINTHANDLER(0xbb5b830, {MSG = 15, DC = 453053116, PAINTSTRUCT = 0x4beef34, RESULT = 0}) at ..\..\laz\lcl\include\wincontrol.inc:4801
15. #14 WMPAINT(0xbb5b830, {MSG = 15, DC = 453053116, PAINTSTRUCT = 0x4beef34, RESULT = 0}) at ..\..\laz\lcl\include\wincontrol.inc:6754
16. #15 WMPAINT(0xbb5b830, {MSG = 15, DC = 453053116, PAINTSTRUCT = 0x4beef34, RESULT = 0}) at ..\..\laz\lcl\include\customcontrol.inc:106
17. #16 SYSTEM$_$TOBJECT_$__$$_DISPATCH$formal at :0
18. #17 VMT_$CONTROLS_$$_TCUSTOMCONTROL at :0
19. #18 ?? at :0
20. #19 WNDPROC(0xbb5b830, {MSG = 15, WPARAM = 453053116, LPARAM = 79621940, RESULT = 0, WPARAMLO = 2748, WPARAMHI = 6913, WPARAMFILLER = {}, LPARAMLO = 61236, LPARAMHI = 1214, LPARAMFILLER = {}, RESULTLO = 0, RESULTHI = 0, RESULTFILLER = {}}) at ..\..\laz\lcl\include\wincontrol.inc:5386
21. #20 WNDPROC(0xbb5b830, {MSG = 15, WPARAM = 453053116, LPARAM = 79621940, RESULT = 0, WPARAMLO = 2748, WPARAMHI = 6913, WPARAMFILLER = {}, LPARAMLO = 61236, LPARAMHI = 1214, LPARAMFILLER = {}, RESULTLO = 0, RESULTHI = 0, RESULTFILLER = {}}) at ..\..\laz\components\synedit\synedit.pp:5969
22. #21 DELIVERMESSAGE(0xbb5b830, 0) at ..\..\laz\lcl\lclmessageglue.pas:112
23. #22 WIN32INT$_$TWINDOWPROCHELPER_$__$$_SENDPAINTMESSAGE$LONGWORD at :0
24. #23 WIN32INT$_$TWINDOWPROCHELPER_$__$$_DOWINDOWPROC$$LONGINT at :0
25. #24 WIN32INT_$$_WINDOWPROC$LONGWORD$LONGWORD$LONGINT$LONGINT$$LONGINT at :0
26. #25 ?? at :0
27. #26 ?? at :0
28. #27 ?? at :0
29. #28 ?? at :0
30. #29 ?? at :0
31. #30 ?? at :0
32. #31 ?? at :0
33. #32 ?? at :0
34. #33 ?? at :0
35. #34 ?? at :0
36. #35 ?? at :0
37. #36 WIN32INT_$$_CALLDEFAULTWINDOWPROC$LONGWORD$LONGWORD$LONGINT$LONGINT$$LONGINT at :0
38. #37 WIN32INT$_$TWIN32WIDGETSET_$__$$_CALLDEFAULTWNDHANDLER$TOBJECT$formal at :0
39. #38 WSCONTROLS$_$TWSWINCONTROL_$__$$_DEFAULTWNDHANDLER$TWINCONTROL$formal at :0
40. #39 DEFAULTHANDLER(0xd35d090, 0) at ..\..\laz\lcl\include\wincontrol.inc:3610
41. #40 SYSTEM$_$TOBJECT_$__$$_DISPATCH$formal at :0
42. #41 ?? at :0
43.  

[Martin_fr]

Can the original SynEdit draw the guttermarks in your app?

Can you test with/without the mark-share option? (in ShareOptions)
I think in the IDE it shares marks (both synedit have the same marks and keep them in sync), and that works. It is possible that is broken without mark-sharing, but it needs to be tested with the synedit as it is, not a subclass.

If you can reproduce with the original SynEdit then please report on mantis, with details how to reproduce.

You can check in TCustomSynEdit.RecreateMarkList
The trace looks like maybe FMarkList is not re-created. Or something, somewhere keeps a pointer to a deleted FMarkList.