paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:59:06 +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 // register the dynamic section for the component editor
DesignerMenuSectionComponentEditor:=RegisterIDEMenuSection(DesignerMenuRoot, DesignerMenuSectionComponentEditor:=RegisterIDEMenuSection(DesignerMenuRoot,
'Component editor section'); 'Component editor section');
// register the custom dynamic section
DesignerMenuSectionCustomDynamic:=RegisterIDEMenuSection(DesignerMenuRoot,
'Custom dynamic section');
// register align section // register align section
DesignerMenuSectionAlign:=RegisterIDEMenuSection(DesignerMenuRoot, DesignerMenuSectionAlign:=RegisterIDEMenuSection(DesignerMenuRoot,
'Align section'); 'Align section');

3
ideintf/menuintf.pas
View File

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