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

SynEdit, SourceEditor: refactored Syncro-edit detection

Browse Source 
git-svn-id: trunk@22788 -
This commit is contained in:
martin 2009-11-26 07:42:57 +00:00
parent e1c8b64e3f
commit f7cdfc7494
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/sourceeditor.pp
View File

@ -51,6 +51,7 @@ uses
SynEditHighlighter, SynEditAutoComplete, SynEditKeyCmds, SynCompletion,
SynEditMiscClasses, SynEditMarkupHighAll, SynGutterLineNumber, SynEditMarks,
SynBeautifier, SynEditTextBase, SynPluginTemplateEdit, SynPluginSyncroEdit,
SynPluginSyncronizedEditBase,
// IDE interface
MacroIntf, ProjectIntf, SrcEditorIntf, MenuIntf, LazIDEIntf, PackageIntf,
IDEDialogs, IDEHelpIntf, IDEWindowIntf, IDEImagesIntf,
@ -3480,10 +3481,8 @@ end;
procedure TSourceEditor.UnbindEditor;
// disconnect all events
{$IFDEF SynDualView}
var
i: Integer;
{$ENDIF}
begin
{$IFDEF SynDualView}
for i := 0 to FOtherViewList.Count - 1 do
@ -3505,6 +3504,11 @@ begin
OnMouseLink := nil;
OnKeyDown := nil;
end;
for i := 0 to EditorComponent.PluginCount - 1 do
if EditorComponent.Plugin[i] is TSynPluginSyncronizedEditBase then begin
TSynPluginSyncronizedEditBase(EditorComponent.Plugin[i]).OnActivate := nil;
TSynPluginSyncronizedEditBase(EditorComponent.Plugin[i]).OnDeactivate := nil;
end;
if FEditPlugin<>nil then begin
FEditPlugin.OnLinesInserted := nil;
FEditPlugin.OnLinesDeleted := nil;