From 0feb94742e4491518f8942a76b97bbe63656e5f5 Mon Sep 17 00:00:00 2001 From: martin Date: Fri, 27 Feb 2009 20:11:23 +0000 Subject: [PATCH] SynEdit, update LineChangeMarkers (yellow/green) for user applications that use SynEdit.Lines.SaveToFile git-svn-id: trunk@18842 - --- components/synedit/synedit.pp | 1 + components/synedit/syneditfoldedview.pp | 1 + components/synedit/synedittextbuffer.pp | 2 ++ 3 files changed, 4 insertions(+) diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp index e53f7e3966..b9c0f3c557 100644 --- a/components/synedit/synedit.pp +++ b/components/synedit/synedit.pp @@ -4287,6 +4287,7 @@ begin Dec(Result); end; +// Called with (0, 0) => to invalidate all lines => redraw procedure TCustomSynEdit.LineCountChanged(Sender: TSynEditStrings; AIndex, ACount: Integer); begin ScanFrom(AIndex - 1, Min(AIndex, AIndex + ACount)); diff --git a/components/synedit/syneditfoldedview.pp b/components/synedit/syneditfoldedview.pp index 6bbf6c2b30..93fb881972 100644 --- a/components/synedit/syneditfoldedview.pp +++ b/components/synedit/syneditfoldedview.pp @@ -1438,6 +1438,7 @@ end; procedure TSynEditFoldedView.LinesInsertedAtTextIndex(AStartIndex, ALineCount : Integer; SkipFixFolding : Boolean); var top : Integer; begin + if ALineCount = 0 then exit; top := TopTextIndex; fFoldTree.AdjustForLinesInserted(AStartIndex+1, ALineCount); if AStartIndex < top then diff --git a/components/synedit/synedittextbuffer.pp b/components/synedit/synedittextbuffer.pp index e96d21bb62..6b27df67cf 100644 --- a/components/synedit/synedittextbuffer.pp +++ b/components/synedit/synedittextbuffer.pp @@ -969,6 +969,8 @@ begin finally Writer.Free; end; + MarkSaved; + FLineRangeNotificationList.CallRangeNotifyEvents(self, 0, 0); end; {$IFDEF SYN_LAZARUS}