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

objectinspector: assign some glyphs to popup menu

Browse Source 
git-svn-id: trunk@13075 -
This commit is contained in:
paul 2007-11-29 09:15:55 +00:00
parent 594e79a01d
commit f8c92c994c
1 changed files with 22 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
ideintf/objectinspector.pp
View File

@ -39,7 +39,7 @@ uses
LCLIntf, LCLProc, Controls, ComCtrls, ExtCtrls, TypInfo, LMessages, LCLIntf, LCLProc, Controls, ComCtrls, ExtCtrls, TypInfo, LMessages,
LResources, LazConfigStorage, Menus, Dialogs, ObjInspStrConsts, LResources, LazConfigStorage, Menus, Dialogs, ObjInspStrConsts,
PropEdits, GraphPropEdits, ListViewPropEdit, ImageListEditor, PropEdits, GraphPropEdits, ListViewPropEdit, ImageListEditor,
ComponentTreeView, ComponentEditors; ComponentTreeView, ComponentEditors, IDEImagesIntf;
const const
OIOptionsFileVersion = 2; OIOptionsFileVersion = 2;
@ -3058,11 +3058,12 @@ end;
constructor TObjectInspectorDlg.Create(AnOwner: TComponent); constructor TObjectInspectorDlg.Create(AnOwner: TComponent);
procedure AddPopupMenuItem(var NewMenuItem: TMenuItem; procedure AddPopupMenuItem(var NewMenuItem: TMenuItem;
ParentMenuItem: TMenuItem; const AName, ACaption, AHint: string; ParentMenuItem: TMenuItem; const AName, ACaption, AHint, AResourceName: string;
AnOnClick: TNotifyEvent; CheckedFlag, EnabledFlag, VisibleFlag: boolean); AnOnClick: TNotifyEvent; CheckedFlag, EnabledFlag, VisibleFlag: boolean);
begin begin
NewMenuItem:=TMenuItem.Create(Self); NewMenuItem:=TMenuItem.Create(Self);
with NewMenuItem do begin with NewMenuItem do
begin
Name:=AName; Name:=AName;
Caption:=ACaption; Caption:=ACaption;
Hint:=AHint; Hint:=AHint;
@ -3070,6 +3071,8 @@ constructor TObjectInspectorDlg.Create(AnOwner: TComponent);
Checked:=CheckedFlag; Checked:=CheckedFlag;
Enabled:=EnabledFlag; Enabled:=EnabledFlag;
Visible:=VisibleFlag; Visible:=VisibleFlag;
if AResourceName <> '' then
ImageIndex := IDEImages.LoadImage(16, AResourceName);
end; end;
if ParentMenuItem<>nil then if ParentMenuItem<>nil then
ParentMenuItem.Add(NewMenuItem) ParentMenuItem.Add(NewMenuItem)
@ -3107,47 +3110,49 @@ begin
Caption := oisObjectInspector; Caption := oisObjectInspector;
StatusBar.SimpleText:=oisAll; StatusBar.SimpleText:=oisAll;
MainPopupMenu.Images := IDEImages.Images_16;
AddPopupMenuItem(SetDefaultPopupmenuItem,nil,'SetDefaultPopupMenuItem', AddPopupMenuItem(SetDefaultPopupmenuItem,nil,'SetDefaultPopupMenuItem',
'Set to Default value','Set property value to Default', 'Set to Default value','Set property value to Default', '',
@OnSetDefaultPopupmenuItemClick,false,true,true); @OnSetDefaultPopupmenuItemClick,false,true,true);
AddPopupMenuItem(AddToFavoritesPopupMenuItem,nil,'AddToFavoritePopupMenuItem', AddPopupMenuItem(AddToFavoritesPopupMenuItem,nil,'AddToFavoritePopupMenuItem',
oisAddtofavorites,'Add property to favorites properties', oisAddtofavorites,'Add property to favorites properties', '',
@OnAddToFavoritesPopupmenuItemClick,false,true,true); @OnAddToFavoritesPopupmenuItemClick,false,true,true);
AddPopupMenuItem(RemoveFromFavoritesPopupMenuItem,nil, AddPopupMenuItem(RemoveFromFavoritesPopupMenuItem,nil,
'RemoveFromFavoritesPopupMenuItem', 'RemoveFromFavoritesPopupMenuItem',
oisRemovefromfavorites,'Remove property from favorites properties', oisRemovefromfavorites,'Remove property from favorites properties', '',
@OnRemoveFromFavoritesPopupmenuItemClick,false,true,true); @OnRemoveFromFavoritesPopupmenuItemClick,false,true,true);
AddPopupMenuItem(UndoPropertyPopupMenuItem,nil,'UndoPropertyPopupMenuItem', AddPopupMenuItem(UndoPropertyPopupMenuItem,nil,'UndoPropertyPopupMenuItem',
oisUndo,'Set property value to last valid value', oisUndo,'Set property value to last valid value', '',
@OnUndoPopupmenuItemClick,false,true,true); @OnUndoPopupmenuItemClick,false,true,true);
AddPopupMenuItem(FindDeclarationPopupmenuItem,nil,'FindDeclarationPopupmenuItem', AddPopupMenuItem(FindDeclarationPopupmenuItem,nil,'FindDeclarationPopupmenuItem',
oisFinddeclaration,'Jump to declaration of property', oisFinddeclaration,'Jump to declaration of property', '',
@OnFindDeclarationPopupmenuItemClick,false,true,false); @OnFindDeclarationPopupmenuItemClick,false,true,false);
AddSeparatorMenuItem(nil,'OptionsSeparatorMenuItem',true); AddSeparatorMenuItem(nil,'OptionsSeparatorMenuItem',true);
AddPopupMenuItem(CutPopupMenuItem,nil,'CutPopupMenuItem', AddPopupMenuItem(CutPopupMenuItem,nil,'CutPopupMenuItem',
oisCutComponents,'Cut selected item', oisCutComponents,'Cut selected item', 'menu_edit_cut',
@OnCutPopupmenuItemClick,false,true,true); @OnCutPopupmenuItemClick,false,true,true);
AddPopupMenuItem(CopyPopupMenuItem,nil,'CopyPopupMenuItem', AddPopupMenuItem(CopyPopupMenuItem,nil,'CopyPopupMenuItem',
oisCopyComponents,'Copy selected item', oisCopyComponents,'Copy selected item', 'menu_edit_copy',
@OnCopyPopupmenuItemClick,false,true,true); @OnCopyPopupmenuItemClick,false,true,true);
AddPopupMenuItem(PastePopupMenuItem,nil,'PastePopupMenuItem', AddPopupMenuItem(PastePopupMenuItem,nil,'PastePopupMenuItem',
oisPasteComponents,'Paste selected item', oisPasteComponents,'Paste selected item', 'menu_edit_paste',
@OnPastePopupmenuItemClick,false,true,true); @OnPastePopupmenuItemClick,false,true,true);
AddPopupMenuItem(DeletePopupMenuItem,nil,'DeletePopupMenuItem', AddPopupMenuItem(DeletePopupMenuItem,nil,'DeletePopupMenuItem',
oisDeleteComponents,'Delete selected item', oisDeleteComponents,'Delete selected item', '',
@OnDeletePopupmenuItemClick,false,true,true); @OnDeletePopupmenuItemClick,false,true,true);
AddPopupMenuItem(OptionsSeparatorMenuItem2,nil,'', AddPopupMenuItem(OptionsSeparatorMenuItem2,nil, '',
'-','',nil,false,true,true); '-','','',nil,false,true,true);
AddPopupMenuItem(ShowHintsPopupMenuItem,nil AddPopupMenuItem(ShowHintsPopupMenuItem,nil
,'ShowHintPopupMenuItem',oisShowHints,'Grid hints' ,'ShowHintPopupMenuItem',oisShowHints,'Grid hints', ''
,@OnShowHintPopupMenuItemClick,false,true,true); ,@OnShowHintPopupMenuItemClick,false,true,true);
ShowHintsPopupMenuItem.ShowAlwaysCheckable:=true; ShowHintsPopupMenuItem.ShowAlwaysCheckable:=true;
AddPopupMenuItem(ShowComponentTreePopupMenuItem,nil AddPopupMenuItem(ShowComponentTreePopupMenuItem,nil
,'ShowComponentTreePopupMenuItem',oisShowComponentTree,'' ,'ShowComponentTreePopupMenuItem',oisShowComponentTree, '', ''
,@OnShowComponentTreePopupMenuItemClick,FShowComponentTree,true,true); ,@OnShowComponentTreePopupMenuItemClick,FShowComponentTree,true,true);
ShowComponentTreePopupMenuItem.ShowAlwaysCheckable:=true; ShowComponentTreePopupMenuItem.ShowAlwaysCheckable:=true;
AddPopupMenuItem(ShowOptionsPopupMenuItem,nil AddPopupMenuItem(ShowOptionsPopupMenuItem,nil
,'ShowOptionsPopupMenuItem',oisOptions,'' ,'ShowOptionsPopupMenuItem',oisOptions,'', 'menu_environment_options'
,@OnShowOptionsPopupMenuItemClick,false,true,FOnShowOptions<>nil); ,@OnShowOptionsPopupMenuItemClick,false,true,FOnShowOptions<>nil);
// combobox at top (filled with available persistents) // combobox at top (filled with available persistents)