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

IDE: less hints

Browse Source 
git-svn-id: trunk@52294 -
This commit is contained in:
mattias 2016-05-10 10:03:17 +00:00
parent b16d3fe006
commit 8179e96878
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/main.pp
View File

@ -8811,7 +8811,7 @@ procedure TMainIDE.OnDesignerPersistentDeleted(Sender: TObject; APersistent: TPe
// important: APersistent was freed, do not access its content, only the pointer // important: APersistent was freed, do not access its content, only the pointer
begin begin
if dfDestroyingForm in TDesigner(Sender).Flags then exit; if dfDestroyingForm in TDesigner(Sender).Flags then exit;
//if APersistent=nil then ; if APersistent=nil then ;
if ObjectInspector1<>nil then if ObjectInspector1<>nil then
ObjectInspector1.FillComponentList; ObjectInspector1.FillComponentList;
end; end;
@ -12619,6 +12619,7 @@ end;
procedure TMainIDE.OnPropHookModified(Sender: TObject; PropName: ShortString); procedure TMainIDE.OnPropHookModified(Sender: TObject; PropName: ShortString);
begin begin
// ToDo: Should designer be marked as modified with PropName? // ToDo: Should designer be marked as modified with PropName?
if PropName='' then ;
if Assigned(ObjectInspector1) then if Assigned(ObjectInspector1) then
// Any change of property can cause a change of a display name // Any change of property can cause a change of a display name
ObjectInspector1.ComponentTree.UpdateComponentNodesValues; ObjectInspector1.ComponentTree.UpdateComponentNodesValues;