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

SynEdit: Fix Lines.SetCapacity

Browse Source 
git-svn-id: trunk@25676 -
This commit is contained in:
martin 2010-05-26 23:07:13 +00:00
parent 67b7304389
commit f2d9c5841d
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/synedittextbuffer.pp
View File

@ -1005,7 +1005,10 @@ end;
procedure TSynEditStringList.SetCapacity(NewCapacity: integer); procedure TSynEditStringList.SetCapacity(NewCapacity: integer);
begin begin
if NewCapacity < Count then
fList.Count := NewCapacity;
fList.SetCapacity(NewCapacity); fList.SetCapacity(NewCapacity);
IncreaseTextChangeStamp;
end; end;
procedure TSynEditStringList.SetUpdateState(Updating: Boolean; Sender: TObject); procedure TSynEditStringList.SetUpdateState(Updating: Boolean; Sender: TObject);