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

fixed TCollection editor to select last added

Browse Source 
git-svn-id: trunk@7609 -
This commit is contained in:
mattias 2005-08-31 08:47:01 +00:00
parent 373eba5ee6
commit 59c432b6ce
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ideintf/propedits.pp
View File

@ -3338,6 +3338,9 @@ begin
if Collection=nil then exit;
Collection.Add;
FillCollectionListBox;
if CollectionListBox.Items.Count>0 then
CollectionListBox.ItemIndex := CollectionListBox.Items.Count-1;
SelectInObjectInspector(true);
UpdateCaption;
Modified;
end;