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

SynEdit: small refactor (don't hold copy of undolist in syncro plugin)

Browse Source 
git-svn-id: trunk@35954 -
This commit is contained in:
martin 2012-03-13 23:43:51 +00:00
parent 149c8660b0
commit 43a5ae2dff
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/synedit/synpluginsyncronizededitbase.pp
View File

@ -244,8 +244,6 @@ type
private
FLastCell: Integer;
FUndoRealCount, FRedoRealCount: Integer;
FRedoList: TSynEditUndoList;
FUndoList: TSynEditUndoList;
FExternalEditLock: Integer;
protected
procedure SetUndoStart; // Handle undo/redo stuff
@ -1106,9 +1104,9 @@ end;
procedure TSynPluginCustomSyncroEdit.SetUndoStart;
begin
FUndoList.ForceGroupEnd;
FUndoRealCount := FUndoList.RealCount;
FRedoRealCount := FRedoList.RealCount;
ViewedTextBuffer.UndoList.ForceGroupEnd;
FUndoRealCount := ViewedTextBuffer.UndoList.RealCount;
FRedoRealCount := ViewedTextBuffer.RedoList.RealCount;
end;
procedure TSynPluginCustomSyncroEdit.SetEditor(const AValue: TCustomSynEdit);
@ -1116,14 +1114,10 @@ begin
if Editor = AValue then exit;
if Editor <> nil then begin
CaretObj.RemoveChangeHandler(@DoCaretChanged);
FRedoList := nil;
FUndoList := nil;
end;
inherited SetEditor(AValue);
if Editor <> nil then begin
CaretObj.AddChangeHandler(@DoCaretChanged);
FRedoList := ViewedTextBuffer.RedoList;
FUndoList := ViewedTextBuffer.UndoList;
end;
end;
@ -1165,10 +1159,10 @@ var
c1, c2: Integer;
begin
inherited;
if IsUndoing and (FUndoRealCount >= 0) and (FUndoList.RealCount < FUndoRealCount)
if IsUndoing and (FUndoRealCount >= 0) and (ViewedTextBuffer.UndoList.RealCount < FUndoRealCount)
then
Active := false;
if IsRedoing and (FRedoRealCount >= 0) and (FRedoList.RealCount < FUndoRealCount)
if IsRedoing and (FRedoRealCount >= 0) and (ViewedTextBuffer.RedoList.RealCount < FUndoRealCount)
then
Active := false;
if aUndoRedo or not Active then exit;