paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-07 03:50:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: object inspector: hide jump to declaration menu item if no row selected

Browse Source 
git-svn-id: trunk@26549 -
This commit is contained in:
mattias 2010-07-09 17:49:23 +00:00
parent 662e9519a7
commit 9eab130917
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ideintf/objectinspector.pp
View File

@ -5088,7 +5088,16 @@ begin
UndoPropertyPopupMenuItem.Visible := True;
UndoPropertyPopupMenuItem.Enabled := (CurRow<>nil) and (CurRow.Editor.GetVisualValue <> CurGrid.CurrentEditValue);
ShowHintsPopupMenuItem.Checked := PropertyGrid.ShowHint;
FindDeclarationPopupmenuItem.Visible := True;
if CurRow=nil then begin
FindDeclarationPopupmenuItem.Visible := False;
end
else begin
FindDeclarationPopupmenuItem.Visible := true;
FindDeclarationPopupmenuItem.Caption:=Format(oisJumpToDeclarationOf, [
CurRow.Name]);
FindDeclarationPopupmenuItem.Hint:=Format(oisJumpToDeclarationOf, [CurRow.
Editor.GetPropertyPath(0)]);
end;
ViewRestrictedPropertiesPopupMenuItem.Visible := True;
OptionsSeparatorMenuItem.Visible := True;
end
@ -5102,6 +5111,7 @@ begin
ViewRestrictedPropertiesPopupMenuItem.Visible := False;
OptionsSeparatorMenuItem.Visible := False;
end;
//debugln(['TObjectInspectorDlg.OnMainPopupMenuPopup ',FindDeclarationPopupmenuItem.Visible]);
end;
procedure TObjectInspectorDlg.DoUpdateRestricted;

1
ideintf/objinspstrconsts.pas
View File

@ -71,6 +71,7 @@ resourcestring
oisRemoveFromFavorites = 'Remove from Favorites';
oisUndo = 'Undo';
oisFinddeclaration = 'Jump to declaration';
oisJumpToDeclarationOf = 'Jump to declaration of %s';
oisCutComponents = 'Cu&t';
oisCopyComponents = '&Copy';
oisPasteComponents = '&Paste';