paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-22 01:29:28 +01: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); Dec(Result);
end; end;
// Called with (0, 0) => to invalidate all lines => redraw
procedure TCustomSynEdit.LineCountChanged(Sender: TSynEditStrings; AIndex, ACount: Integer); procedure TCustomSynEdit.LineCountChanged(Sender: TSynEditStrings; AIndex, ACount: Integer);
begin begin
ScanFrom(AIndex - 1, Min(AIndex, AIndex + ACount)); 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); procedure TSynEditFoldedView.LinesInsertedAtTextIndex(AStartIndex, ALineCount : Integer; SkipFixFolding : Boolean);
var top : Integer; var top : Integer;
begin begin
if ALineCount = 0 then exit;
top := TopTextIndex; top := TopTextIndex;
fFoldTree.AdjustForLinesInserted(AStartIndex+1, ALineCount); fFoldTree.AdjustForLinesInserted(AStartIndex+1, ALineCount);
if AStartIndex < top then if AStartIndex < top then

2
components/synedit/synedittextbuffer.pp
View File

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