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

SynEdit: fixed group-undo. Group-Undo would prevent the editor from being marked as "changed" in some cases if editing was continued after saving.

Browse Source 
git-svn-id: trunk@19102 -
This commit is contained in:
martin 2009-03-25 20:41:06 +00:00
parent 9acc18a2ba
commit c612f1e4e1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedittextbase.pas
View File

@ -706,7 +706,7 @@ begin
if (not FUndoGroup.Items[FUndoGroup.Count - 1].IsCaretInfo) if (not FUndoGroup.Items[FUndoGroup.Count - 1].IsCaretInfo)
and assigned(FOnNeedCaretUndo) then and assigned(FOnNeedCaretUndo) then
FUndoGroup.Add(FOnNeedCaretUndo()); FUndoGroup.Add(FOnNeedCaretUndo());
if (fItems.Count > 0) and FGroupUndo and if (fItems.Count > 0) and FGroupUndo and (not IsTopMarkedAsUnmodified) and
FUndoGroup.CanMergeWith(TSynEditUndoGroup(fItems[fItems.Count - 1])) then FUndoGroup.CanMergeWith(TSynEditUndoGroup(fItems[fItems.Count - 1])) then
begin begin
FUndoGroup.MergeWith(TSynEditUndoGroup(fItems[fItems.Count - 1])); FUndoGroup.MergeWith(TSynEditUndoGroup(fItems[fItems.Count - 1]));