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

SynEdit Design: Fixed the property editor did not close, if the SynEdit was deleted.

Browse Source 
git-svn-id: trunk@18365 -
This commit is contained in:
martin 2009-01-20 23:49:15 +00:00
parent 3fe186c1da
commit 8f53ab61e2
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/design/synpropertyeditobjectlist.pas
View File

@ -388,10 +388,12 @@ begin
if ClassComboBox.Items.Count >0 then
ClassComboBox.ItemIndex := 0;
if (assigned(NewOwnerPersistent)) and (NewOwnerPersistent is TSynObjectList) then
FOwnerPersistent := (NewOwnerPersistent as TSynObjectList).Owner
// Can not use NewOwnerPersistent since it points to the SynGutter
if NewSynObjectPartList <> nil then
FOwnerPersistent := NewSynObjectPartList.Owner // The SynEdit
else
FOwnerPersistent := NewOwnerPersistent;
FOwnerPersistent := nil;
FPropertyName := NewPropName;
//debugln('TSynObjectPartListPropertyEditorForm.SetSynObjectPartList A SynObjectPartList=',dbgsName(FSynObjectPartList),' OwnerPersistent=',dbgsName(OwnerPersistent),' PropName=',PropertyName);
if GlobalDesignHook <> nil then