paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 21:09:23 +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, SynEditHighlighter, SynEditAutoComplete, SynEditKeyCmds, SynCompletion,
SynEditMiscClasses, SynEditMarkupHighAll, SynGutterLineNumber, SynEditMarks, SynEditMiscClasses, SynEditMarkupHighAll, SynGutterLineNumber, SynEditMarks,
SynBeautifier, SynEditTextBase, SynPluginTemplateEdit, SynPluginSyncroEdit, SynBeautifier, SynEditTextBase, SynPluginTemplateEdit, SynPluginSyncroEdit,
SynPluginSyncronizedEditBase,
// IDE interface // IDE interface
MacroIntf, ProjectIntf, SrcEditorIntf, MenuIntf, LazIDEIntf, PackageIntf, MacroIntf, ProjectIntf, SrcEditorIntf, MenuIntf, LazIDEIntf, PackageIntf,
IDEDialogs, IDEHelpIntf, IDEWindowIntf, IDEImagesIntf, IDEDialogs, IDEHelpIntf, IDEWindowIntf, IDEImagesIntf,
@ -3480,10 +3481,8 @@ end;
procedure TSourceEditor.UnbindEditor; procedure TSourceEditor.UnbindEditor;
// disconnect all events // disconnect all events
{$IFDEF SynDualView}
var var
i: Integer; i: Integer;
{$ENDIF}
begin begin
{$IFDEF SynDualView} {$IFDEF SynDualView}
for i := 0 to FOtherViewList.Count - 1 do for i := 0 to FOtherViewList.Count - 1 do
@ -3505,6 +3504,11 @@ begin
OnMouseLink := nil; OnMouseLink := nil;
OnKeyDown := nil; OnKeyDown := nil;
end; 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 if FEditPlugin<>nil then begin
FEditPlugin.OnLinesInserted := nil; FEditPlugin.OnLinesInserted := nil;
FEditPlugin.OnLinesDeleted := nil; FEditPlugin.OnLinesDeleted := nil;