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

LCL: delete also ItemProps when deleting strings.

Browse Source 
git-svn-id: trunk@40195 -
This commit is contained in:
juha 2013-02-06 14:43:25 +00:00
parent 9ce1fac44c
commit 218c95590c
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/valedit.pas
View File

@ -431,10 +431,18 @@ begin
end; end;
procedure TValueListStrings.Delete(Index: Integer); procedure TValueListStrings.Delete(Index: Integer);
var
i: Integer;
begin begin
Changing; Changing;
inherited Delete(Index); inherited Delete(Index);
// ToDo: Delete also ItemProps // Delete also ItemProps
if Index<=Count then begin
FItemProps[Index].Free;
for i := Index to Length(FItemProps)-1 do
FItemProps[i] := FItemProps[i+1];
SetLength(FItemProps, Count);
end;
Changed; Changed;
end; end;