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

Object Inspector: Formatting.

Browse Source 
git-svn-id: trunk@59804 -
This commit is contained in:
juha 2018-12-12 13:51:55 +00:00
parent c8545b8956
commit 7b640a0f3c
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/ideintf/objectinspector.pp
View File

@ -4978,10 +4978,7 @@ begin
for i:=0 to ComponentTree.Selection.Count - 1 do begin for i:=0 to ComponentTree.Selection.Count - 1 do begin
persistent := ComponentTree.Selection[i]; persistent := ComponentTree.Selection[i];
if persistent.GetInterface(GUID_ObjInspInterface, intf) and not intf.AllowDelete then if persistent.GetInterface(GUID_ObjInspInterface, intf) and not intf.AllowDelete then
begin exit(false);
Result := false;
exit;
end;
end; end;
end; end;
@ -5994,7 +5991,7 @@ end;
function TObjectInspectorDlg.GetComponentPanelHeight: integer; function TObjectInspectorDlg.GetComponentPanelHeight: integer;
begin begin
Result := ComponentPanel.Height Result := ComponentPanel.Height;
end; end;
function TObjectInspectorDlg.GetInfoBoxHeight: integer; function TObjectInspectorDlg.GetInfoBoxHeight: integer;