paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

ideintf: fix removal of collection item from the collection editor (bug #0015570)

Browse Source 
git-svn-id: trunk@23774 -
This commit is contained in:
paul 2010-02-24 08:30:38 +00:00
parent 51487a0dd5
commit e3398afbb6
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ideintf/collectionpropeditform.pas
View File

@ -8,7 +8,7 @@ uses
Classes, SysUtils, Forms, ComCtrls, StdCtrls;
type
{ TCollectionPropertyEditor }
{ TCollectionPropertyEditorForm }
TCollectionPropertyEditorForm = class(TForm)
CollectionListBox: TListBox;
@ -221,8 +221,8 @@ end;
procedure TCollectionPropertyEditorForm.PersistentDeleting(APersistent: TPersistent);
var
OldCollection: TCollection;
AIndex, I: Integer;
begin
//debugln('TCollectionPropertyEditorForm.PersistentDeleting A APersistent=',dbgsName(APersistent),' OwnerPersistent=',dbgsName(OwnerPersistent));
if APersistent = OwnerPersistent then
begin
OldCollection := Collection;
@ -232,6 +232,22 @@ begin
GlobalDesignHook.LookupRoot := nil;
Hide;
end
else
if Assigned(Collection) and (APersistent is TCollectionItem) and
(TCollectionItem(APersistent).Collection = Collection) then
begin
// persistent is still alive
AIndex := CollectionListBox.ItemIndex;
CollectionListBox.Items.BeginUpdate;
CollectionListBox.Items.Delete(TCollectionItem(APersistent).Index);
for I := TCollectionItem(APersistent).Index to CollectionListBox.Items.Count - 1 do
CollectionListBox.Items[I] := IntToStr(I) + ' - ' + Collection.Items[I + 1].DisplayName;
CollectionListBox.Items.EndUpdate;
if AIndex < CollectionListBox.Items.Count then
CollectionListBox.ItemIndex := AIndex
else
CollectionListBox.ItemIndex := CollectionListBox.Items.Count - 1;
end;
end;