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

IDE: show more popup menuitems in Object Inspector.

Browse Source 
git-svn-id: trunk@41367 -
This commit is contained in:
juha 2013-05-23 11:37:34 +00:00
parent 202b33fcb8
commit 40c7d580c7
2 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/ideintf/objectinspector.pp
View File

@ -665,13 +665,13 @@ type
FOnAddAvailablePersistent: TOnAddAvailablePersistent; FOnAddAvailablePersistent: TOnAddAvailablePersistent;
FOnSelectPersistentsInOI: TNotifyEvent; FOnSelectPersistentsInOI: TNotifyEvent;
FOnModified: TNotifyEvent; FOnModified: TNotifyEvent;
FShowComponentTree: boolean; FShowComponentTree: Boolean;
FShowFavorites: Boolean; FShowFavorites: Boolean;
FShowInfoBox: Boolean; FShowInfoBox: Boolean;
FShowRestricted: Boolean; FShowRestricted: Boolean;
FShowStatusBar: Boolean; FShowStatusBar: Boolean;
FUpdateLock: integer; FUpdateLock: integer;
FUpdatingAvailComboBox: boolean; FUpdatingAvailComboBox: Boolean;
FComponentEditor: TBaseComponentEditor; FComponentEditor: TBaseComponentEditor;
function GetGridControl(Page: TObjectInspectorPage): TOICustomPropertyGrid; function GetGridControl(Page: TObjectInspectorPage): TOICustomPropertyGrid;
procedure SetComponentEditor(const AValue: TBaseComponentEditor); procedure SetComponentEditor(const AValue: TBaseComponentEditor);
@ -735,7 +735,7 @@ type
procedure EndUpdate; procedure EndUpdate;
function GetActivePropertyGrid: TOICustomPropertyGrid; function GetActivePropertyGrid: TOICustomPropertyGrid;
function GetActivePropertyRow: TOIPropertyGridRow; function GetActivePropertyRow: TOIPropertyGridRow;
function GetCurRowDefaultValue(var DefaultStr: string): boolean; function GetCurRowDefaultValue(var DefaultStr: string): Boolean;
procedure HookRefreshPropertyValues; procedure HookRefreshPropertyValues;
procedure ActivateGrid(Grid: TOICustomPropertyGrid); procedure ActivateGrid(Grid: TOICustomPropertyGrid);
procedure FocusGrid(Grid: TOICustomPropertyGrid = nil); procedure FocusGrid(Grid: TOICustomPropertyGrid = nil);
@ -745,7 +745,7 @@ type
write SetComponentTreeHeight; write SetComponentTreeHeight;
property DefaultItemHeight: integer read FDefaultItemHeight property DefaultItemHeight: integer read FDefaultItemHeight
write SetDefaultItemHeight; write SetDefaultItemHeight;
property EnableHookGetSelection: boolean read FEnableHookGetSelection property EnableHookGetSelection: Boolean read FEnableHookGetSelection
write SetEnableHookGetSelection; write SetEnableHookGetSelection;
property Favorites: TOIFavoriteProperties read FFavorites write SetFavorites; property Favorites: TOIFavoriteProperties read FFavorites write SetFavorites;
property GridControl[Page: TObjectInspectorPage]: TOICustomPropertyGrid property GridControl[Page: TObjectInspectorPage]: TOICustomPropertyGrid
@ -780,7 +780,7 @@ type
property RestrictedProps: TOIRestrictedProperties read FRestricted write SetRestricted; property RestrictedProps: TOIRestrictedProperties read FRestricted write SetRestricted;
property Selection: TPersistentSelectionList property Selection: TPersistentSelectionList
read FSelection write SetSelection; read FSelection write SetSelection;
property ShowComponentTree: boolean read FShowComponentTree property ShowComponentTree: Boolean read FShowComponentTree
write SetShowComponentTree; write SetShowComponentTree;
property ShowFavorites: Boolean read FShowFavorites write SetShowFavorites; property ShowFavorites: Boolean read FShowFavorites write SetShowFavorites;
property ShowInfoBox: Boolean read FShowInfoBox write SetShowInfoBox; property ShowInfoBox: Boolean read FShowInfoBox write SetShowInfoBox;
@ -3911,6 +3911,7 @@ begin
oisFinddeclaration,'Jump to declaration of property', '', oisFinddeclaration,'Jump to declaration of property', '',
@OnFindDeclarationPopupmenuItemClick,false,true,false); @OnFindDeclarationPopupmenuItemClick,false,true,false);
OptionsSeparatorMenuItem := AddSeparatorMenuItem(nil, 'OptionsSeparatorMenuItem', true); OptionsSeparatorMenuItem := AddSeparatorMenuItem(nil, 'OptionsSeparatorMenuItem', true);
AddPopupMenuItem(CutPopupMenuItem,nil,'CutPopupMenuItem', AddPopupMenuItem(CutPopupMenuItem,nil,'CutPopupMenuItem',
oisCutComponents,'Cut selected item', 'laz_cut', oisCutComponents,'Cut selected item', 'laz_cut',
@OnCutPopupmenuItemClick,false,true,true); @OnCutPopupmenuItemClick,false,true,true);
@ -3924,16 +3925,29 @@ begin
oisDeleteComponents,'Delete selected item', 'delete_selection', oisDeleteComponents,'Delete selected item', 'delete_selection',
@OnDeletePopupmenuItemClick,false,true,true); @OnDeletePopupmenuItemClick,false,true,true);
OptionsSeparatorMenuItem2 := AddSeparatorMenuItem(nil, 'OptionsSeparatorMenuItem2', true); OptionsSeparatorMenuItem2 := AddSeparatorMenuItem(nil, 'OptionsSeparatorMenuItem2', 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(ShowInfoBoxPopupMenuItem,nil
,'ShowInfoBoxPopupMenuItem',oisShowInfoBox, '', ''
,@OnShowInfoBoxPopupMenuItemClick,FShowInfoBox,true,true);
ShowInfoBoxPopupMenuItem.ShowAlwaysCheckable:=true;
AddPopupMenuItem(ShowStatusBarPopupMenuItem,nil
,'ShowStatusBarPopupMenuItem',oisShowStatusBar, '', ''
,@OnShowStatusBarPopupMenuItemClick,FShowStatusBar,true,true);
ShowStatusBarPopupMenuItem.ShowAlwaysCheckable:=true;
AddPopupMenuItem(ShowOptionsPopupMenuItem,nil AddPopupMenuItem(ShowOptionsPopupMenuItem,nil
,'ShowOptionsPopupMenuItem',oisOptions,'', 'oi_options' ,'ShowOptionsPopupMenuItem',oisOptions, '', 'oi_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)

2
components/ideintf/objinspstrconsts.pas
View File

@ -86,6 +86,8 @@ resourcestring
rscdOK = 'OK'; rscdOK = 'OK';
oisShowHints = 'Show Hints'; oisShowHints = 'Show Hints';
oisShowComponentTree = 'Show Component Tree'; oisShowComponentTree = 'Show Component Tree';
oisShowInfoBox = 'Show Information Box';
oisShowStatusBar = 'Show StatusBar';
oisOptions = 'Options'; oisOptions = 'Options';