paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 08:39:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

Designer -> Change Class opens a dilaog, add 3 dots to the menuitem

Browse Source 
git-svn-id: trunk@37665 -
This commit is contained in:
juha 2012-06-16 11:13:05 +00:00
parent 21622f66e7
commit 6814f6a1f8
2 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
designer/designer.pp
View File

@ -521,8 +521,7 @@ begin
'Custom dynamic section'); 'Custom dynamic section');
// register align section // register align section
DesignerMenuSectionAlign:=RegisterIDEMenuSection(DesignerMenuRoot, DesignerMenuSectionAlign:=RegisterIDEMenuSection(DesignerMenuRoot,'Align section');
'Align section');
DesignerMenuAlign:=RegisterIDEMenuCommand(DesignerMenuSectionAlign, DesignerMenuAlign:=RegisterIDEMenuCommand(DesignerMenuSectionAlign,
'Align',fdmAlignMenu, nil, nil, nil, 'align'); 'Align',fdmAlignMenu, nil, nil, nil, 'align');
DesignerMenuMirrorHorizontal:=RegisterIDEMenuCommand(DesignerMenuSectionAlign, DesignerMenuMirrorHorizontal:=RegisterIDEMenuCommand(DesignerMenuSectionAlign,
@ -552,8 +551,7 @@ begin
'Move z order backwards one',fdmOrderBackOne, nil, nil, nil, 'Order_back_one'); 'Move z order backwards one',fdmOrderBackOne, nil, nil, nil, 'Order_back_one');
// register clipboard section // register clipboard section
DesignerMenuSectionClipboard:=RegisterIDEMenuSection(DesignerMenuRoot, DesignerMenuSectionClipboard:=RegisterIDEMenuSection(DesignerMenuRoot,'Clipboard section');
'Clipboard section');
DesignerMenuCut:=RegisterIDEMenuCommand(DesignerMenuSectionClipboard, DesignerMenuCut:=RegisterIDEMenuCommand(DesignerMenuSectionClipboard,
'Cut',lisCut, nil, nil, nil, 'laz_cut'); 'Cut',lisCut, nil, nil, nil, 'laz_cut');
DesignerMenuCopy:=RegisterIDEMenuCommand(DesignerMenuSectionClipboard, DesignerMenuCopy:=RegisterIDEMenuCommand(DesignerMenuSectionClipboard,
@ -566,10 +564,9 @@ begin
'Select All',fdmSelectAll, nil, nil, nil, 'menu_select_all'); 'Select All',fdmSelectAll, nil, nil, nil, 'menu_select_all');
// register miscellaneous section // register miscellaneous section
DesignerMenuSectionMisc:=RegisterIDEMenuSection(DesignerMenuRoot, DesignerMenuSectionMisc:=RegisterIDEMenuSection(DesignerMenuRoot,'Miscellaneous section');
'Miscellaneous section');
DesignerMenuChangeClass:=RegisterIDEMenuCommand(DesignerMenuSectionMisc, DesignerMenuChangeClass:=RegisterIDEMenuCommand(DesignerMenuSectionMisc,
'Change class',lisChangeClass); 'Change class',lisDlgChangeClass);
DesignerMenuChangeParent:=RegisterIDEMenuSection(DesignerMenuSectionMisc, DesignerMenuChangeParent:=RegisterIDEMenuSection(DesignerMenuSectionMisc,
'Change parent'); 'Change parent');
DesignerMenuChangeParent.ChildsAsSubMenu:=true; DesignerMenuChangeParent.ChildsAsSubMenu:=true;
@ -582,8 +579,7 @@ begin
'Center form', lisCenterForm); 'Center form', lisCenterForm);
// register options section // register options section
DesignerMenuSectionOptions:=RegisterIDEMenuSection(DesignerMenuRoot, DesignerMenuSectionOptions:=RegisterIDEMenuSection(DesignerMenuRoot,'Options section');
'Options section');
DesignerMenuSnapToGridOption:=RegisterIDEMenuCommand(DesignerMenuSectionOptions, DesignerMenuSnapToGridOption:=RegisterIDEMenuCommand(DesignerMenuSectionOptions,
'Snap to grid',fdmSnapToGridOption); 'Snap to grid',fdmSnapToGridOption);
DesignerMenuSnapToGuideLinesOption:=RegisterIDEMenuCommand(DesignerMenuSectionOptions, DesignerMenuSnapToGuideLinesOption:=RegisterIDEMenuCommand(DesignerMenuSectionOptions,

1
ide/lazarusidestrconsts.pas
View File

@ -2482,6 +2482,7 @@ resourcestring
fdmDeleteSelection='Delete Selection'; fdmDeleteSelection='Delete Selection';
fdmSelectAll='Select All'; fdmSelectAll='Select All';
lisChangeClass = 'Change Class'; lisChangeClass = 'Change Class';
lisDlgChangeClass = 'Change Class ...';
fdmSnapToGridOption='Option: Snap to grid'; fdmSnapToGridOption='Option: Snap to grid';
fdmSnapToGuideLinesOption='Option: Snap to guide lines'; fdmSnapToGuideLinesOption='Option: Snap to guide lines';
lisViewSourceLfm = 'View Source (.lfm)'; lisViewSourceLfm = 'View Source (.lfm)';