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

IDEIntf: OI: show delete only for components

Browse Source 
git-svn-id: trunk@39099 -
This commit is contained in:
mattias 2012-10-16 10:08:20 +00:00
parent 367c370cb7
commit 29f2e1409d
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ideintf/objectinspector.pp
View File

@ -5140,6 +5140,8 @@ var
CurGrid: TOICustomPropertyGrid;
CurRow: TOIPropertyGridRow;
Persistent: TPersistent;
AtLeastOneComponent: Boolean;
CanBeDeleted: Boolean;
begin
RemoveComponentEditorMenuItems;
ShowHintsPopupMenuItem.Checked := PropertyGrid.ShowHint;
@ -5166,11 +5168,13 @@ begin
if (Selection.Count = 1) and (Selection[0] is TControl) then
AddZOrderMenuItems;
CutPopupMenuItem.Visible := (Selection.Count > 0) and (Selection[0] is TComponent);
CopyPopupMenuItem.Visible := (Selection.Count > 0) and (Selection[0] is TComponent);
PastePopupMenuItem.Visible := (Selection.Count > 0) and (Selection[0] is TComponent);
DeletePopupMenuItem.Visible := True;
OptionsSeparatorMenuItem2.Visible := True;
AtLeastOneComponent:=(Selection.Count > 0) and (Selection[0] is TComponent);
CanBeDeleted:=AtLeastOneComponent;
CutPopupMenuItem.Visible := CanBeDeleted;
CopyPopupMenuItem.Visible := AtLeastOneComponent;
PastePopupMenuItem.Visible := AtLeastOneComponent;
DeletePopupMenuItem.Visible := CanBeDeleted;
OptionsSeparatorMenuItem2.Visible := AtLeastOneComponent;
end
else
begin