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

IDEIntf: objectinspector: update popup menu item Show Hints always, bug #18092

Browse Source 
git-svn-id: trunk@28538 -
This commit is contained in:
mattias 2010-11-28 15:35:09 +00:00
parent fed2915490
commit efb3fc218d
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/pascalparsertool.pas
View File

@ -903,6 +903,8 @@ function TPascalParserTool.KeyWordFuncClassIdentifier: boolean;
MyEnum: (MyEnumm1, MyEnumm2 := 2, MyEnummy3); MyEnum: (MyEnumm1, MyEnumm2 := 2, MyEnummy3);
MySet: set of (MyEnummy4 := 4 , MyEnummy5); MySet: set of (MyEnummy4 := 4 , MyEnummy5);
MyRange: 3..5; MyRange: 3..5;
examples for type:
TCompareFunc = function(const Item1, Item2: T): Integer;
} }
begin begin
if CurNode.Desc = ctnClassType then begin if CurNode.Desc = ctnClassType then begin

2
ideintf/objectinspector.pp
View File

@ -5031,6 +5031,7 @@ var
Persistent: TPersistent; Persistent: TPersistent;
begin begin
RemoveComponentEditorMenuItems; RemoveComponentEditorMenuItems;
ShowHintsPopupMenuItem.Checked := PropertyGrid.ShowHint;
// show component editors only for component treeview // show component editors only for component treeview
if MainPopupMenu.PopupComponent = ComponentTree then if MainPopupMenu.PopupComponent = ComponentTree then
begin begin
@ -5098,7 +5099,6 @@ begin
CurRow := GetActivePropertyRow; CurRow := GetActivePropertyRow;
UndoPropertyPopupMenuItem.Visible := True; UndoPropertyPopupMenuItem.Visible := True;
UndoPropertyPopupMenuItem.Enabled := (CurRow<>nil) and (CurRow.Editor.GetVisualValue <> CurGrid.CurrentEditValue); UndoPropertyPopupMenuItem.Enabled := (CurRow<>nil) and (CurRow.Editor.GetVisualValue <> CurGrid.CurrentEditValue);
ShowHintsPopupMenuItem.Checked := PropertyGrid.ShowHint;
if CurRow=nil then begin if CurRow=nil then begin
FindDeclarationPopupmenuItem.Visible := False; FindDeclarationPopupmenuItem.Visible := False;
end end