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

SynEdit: Fixed ChangeStamp, broken in rev 24476 #02c12b2e82

Browse Source 
git-svn-id: trunk@24684 -
This commit is contained in:
martin 2010-04-17 19:36:55 +00:00
parent a079b030b7
commit 82200be362
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedittextbuffer.pp
View File

@ -534,6 +534,7 @@ begin
ListIndexOutOfBounds(Index);
BeginUpdate;
FList.DeleteRows(Index, 1);
IncreaseTextChangeStamp;
fIndexOfLongestLine := -1;
SendNotification(senrLineCount, self, Index, -1);
EndUpdate;
@ -547,6 +548,7 @@ begin
ListIndexOutOfBounds(Index);
BeginUpdate;
FList.DeleteRows(Index, NumLines);
IncreaseTextChangeStamp;
SendNotification(senrLineCount, self, Index, -NumLines);
EndUpdate;
end;
@ -758,6 +760,7 @@ begin
if Count = Capacity then
Grow;
FList.InsertRows(Index, 1);
IncreaseTextChangeStamp;
fIndexOfLongestLine := -1; //mh 2000-10-19
fList[Index] := S;
FList.Objects[Index] := nil;
@ -777,6 +780,7 @@ begin
if Capacity<Count + NumLines then
SetCapacity(Count + NumLines);
FList.InsertRows(Index, NumLines);
IncreaseTextChangeStamp;
SendNotification(senrLineCount, self, Index, NumLines);
finally
EndUpdate;