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

SynEdit, update LineChangeMarkers (yellow/green) for user applications that use SynEdit.Lines.SaveToFile

Browse Source 
git-svn-id: trunk@18842 -
This commit is contained in:
martin 2009-02-27 20:11:23 +00:00
parent bac2b22c0c
commit 0feb94742e
3 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/synedit/synedit.pp
View File

@ -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));

1
components/synedit/syneditfoldedview.pp
View File

@ -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

2
components/synedit/synedittextbuffer.pp
View File

@ -969,6 +969,8 @@ begin
finally
Writer.Free;
end;
MarkSaved;
FLineRangeNotificationList.CallRangeNotifyEvents(self, 0, 0);
end;
{$IFDEF SYN_LAZARUS}