paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-28 15:17:11 +01: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); ListIndexOutOfBounds(Index);
BeginUpdate; BeginUpdate;
FList.DeleteRows(Index, 1); FList.DeleteRows(Index, 1);
IncreaseTextChangeStamp;
fIndexOfLongestLine := -1; fIndexOfLongestLine := -1;
SendNotification(senrLineCount, self, Index, -1); SendNotification(senrLineCount, self, Index, -1);
EndUpdate; EndUpdate;
@ -547,6 +548,7 @@ begin
ListIndexOutOfBounds(Index); ListIndexOutOfBounds(Index);
BeginUpdate; BeginUpdate;
FList.DeleteRows(Index, NumLines); FList.DeleteRows(Index, NumLines);
IncreaseTextChangeStamp;
SendNotification(senrLineCount, self, Index, -NumLines); SendNotification(senrLineCount, self, Index, -NumLines);
EndUpdate; EndUpdate;
end; end;
@ -758,6 +760,7 @@ begin
if Count = Capacity then if Count = Capacity then
Grow; Grow;
FList.InsertRows(Index, 1); FList.InsertRows(Index, 1);
IncreaseTextChangeStamp;
fIndexOfLongestLine := -1; //mh 2000-10-19 fIndexOfLongestLine := -1; //mh 2000-10-19
fList[Index] := S; fList[Index] := S;
FList.Objects[Index] := nil; FList.Objects[Index] := nil;
@ -777,6 +780,7 @@ begin
if Capacity<Count + NumLines then if Capacity<Count + NumLines then
SetCapacity(Count + NumLines); SetCapacity(Count + NumLines);
FList.InsertRows(Index, NumLines); FList.InsertRows(Index, NumLines);
IncreaseTextChangeStamp;
SendNotification(senrLineCount, self, Index, NumLines); SendNotification(senrLineCount, self, Index, NumLines);
finally finally
EndUpdate; EndUpdate;