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

SynEdit, gutter-part property editor: fixed crash, when closing unit/form while g-part selected

Browse Source 
git-svn-id: trunk@22501 -
This commit is contained in:
martin 2009-11-09 12:55:10 +00:00
parent 204becc357
commit d52294f627
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/synedit/synpropertyeditobjectlist.pas
View File

@ -288,15 +288,16 @@ end;
procedure TSynObjectPartListPropertyEditorForm.PersistentDeleting(APersistent: TPersistent);
var
OldSynObjectPartList: TSynObjectList;
I: Integer;
begin
debugln(['TSynObjectPartListPropertyEditorForm.PersistentDeleting ']);
if APersistent = OwnerPersistent then
begin
debugln('xxxxxxx');
OldSynObjectPartList := SynObjectPartList;
SetSynObjectPartList(nil, nil, nil, '');
SelectInObjectInspector(True);
GlobalDesignHook.Unselect(OldSynObjectPartList); // XXX unselect all the individual parts
GlobalDesignHook.Unselect(OldSynObjectPartList);
for I := 0 to OldSynObjectPartList.Count - 1 do
GlobalDesignHook.Unselect(OldSynObjectPartList.BaseItems[I]);
if GlobalDesignHook.LookupRoot = OldSynObjectPartList then
GlobalDesignHook.LookupRoot := nil;
Hide;
@ -426,11 +427,11 @@ end;
function TSynPropertyEditObjectList.ReadElementCount: integer;
var
SynObjectList: TSynObjectList;
SynObjectList: TObject;
begin
SynObjectList := TSynObjectList(GetObjectValue);
SynObjectList := GetObjectValue;
if (SynObjectList <> nil) and (SynObjectList is TSynObjectList) then
Result:=SynObjectList.Count
Result := TSynObjectList(SynObjectList).Count
else
Result:=0;
end;