paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: fixed menu items with enabled state

Browse Source 
git-svn-id: trunk@9946 -
This commit is contained in:
mattias 2006-09-20 12:26:16 +00:00
parent 0793d0ffb3
commit 776e097c46
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
designer/designer.pp
View File

@ -367,6 +367,11 @@ begin
// register the dynamic section for the component editor
DesignerMenuSectionComponentEditor:=RegisterIDEMenuSection(DesignerMenuRoot,
'Component editor section');
// register the custom dynamic section
DesignerMenuSectionCustomDynamic:=RegisterIDEMenuSection(DesignerMenuRoot,
'Custom dynamic section');
// register align section
DesignerMenuSectionAlign:=RegisterIDEMenuSection(DesignerMenuRoot,
'Align section');

3
ideintf/menuintf.pas
View File

@ -402,6 +402,8 @@ var
DesignerMenuRoot: TIDEMenuSection = nil;
// Designer: Dynamic section for component editor
DesignerMenuSectionComponentEditor: TIDEMenuSection;
// Designer: custom dynamic section
DesignerMenuSectionCustomDynamic: TIDEMenuSection;
// Designer: align section
DesignerMenuSectionAlign: TIDEMenuSection;
// Designer: tab and order section
@ -615,6 +617,7 @@ begin
MenuItem.Hint:=Hint;
MenuItem.ImageIndex:=ImageIndex;
MenuItem.Visible:=Visible;
MenuItem.Enabled:=Enabled;
MenuItem.OnClick:=@MenuItemClick;
end;
end;