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

SynEdit: minor changes for DualView

Browse Source 
git-svn-id: trunk@23065 -
This commit is contained in:
martin 2009-12-10 12:22:53 +00:00
parent f6e06bdcc8
commit d9ccb124f5
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/synedit/synedit.pp
View File

@ -4981,11 +4981,14 @@ begin
// TODO: all plugins SetEditor = nil => release all flines
Plugins := TList.Create; // remmeber them
for i := 0 to FPlugins.Count - 1 do begin
for i := FPlugins.Count - 1 downto 0 do begin
Plugins.Add(FPlugins[i]);
TSynEditPlugin(FPlugins[i]).Editor := nil;
end;
if FHighlighter <> nil then
FHighlighter.DetachFromLines(FLines);
OldLines := TSynEditStringList(FLines);
if AValue = nil then begin
FLines := TSynEditStringList.Create;
@ -4995,6 +4998,9 @@ begin
end;
TSynEditStringsLinked(FTopLinesView).NextLines := FLines;
if FHighlighter <> nil then
FHighlighter.AttachToLines(FLines);
// Todo: copy events (have a list of all event owners)
TSynEditStringList(FLines).CopyHanlders(OldLines, self);
LView := FTheLinesView;
@ -5021,7 +5027,7 @@ begin
// TOdo: highlighter
for i := 0 to Plugins.Count - 1 do begin
FPlugins.Add(FPlugins[i]);
FPlugins.Add(Plugins[i]);
end;
Plugins.Free;
@ -8451,7 +8457,7 @@ procedure TSynEditPlugin.SetEditor(const AValue: TCustomSynEdit);
begin
if AValue = FriendEdit then exit;
if (FriendEdit <> nil) and (Editor.fPlugins <> nil) then
Editor.fPlugins.Remove(FriendEdit);
Editor.fPlugins.Remove(Self);
FriendEdit := AValue;
if FriendEdit <> nil then
Editor.fPlugins.Add(Self);