paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Designer: formatting + add icon for AnchorEditor popup menu caption

Browse Source 
git-svn-id: trunk@30337 -
This commit is contained in:
juha 2011-04-17 10:10:24 +00:00
parent dae43d9750
commit da0e5e00ab
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
designer/designer.pp
View File

@ -514,46 +514,46 @@ begin
DesignerMenuSectionAlign:=RegisterIDEMenuSection(DesignerMenuRoot, DesignerMenuSectionAlign:=RegisterIDEMenuSection(DesignerMenuRoot,
'Align section'); 'Align section');
DesignerMenuAlign:=RegisterIDEMenuCommand(DesignerMenuSectionAlign, DesignerMenuAlign:=RegisterIDEMenuCommand(DesignerMenuSectionAlign,
'Align',fdmAlignWord, nil, nil, nil, 'align'); 'Align',fdmAlignWord, nil, nil, nil, 'align');
DesignerMenuMirrorHorizontal:=RegisterIDEMenuCommand(DesignerMenuSectionAlign, DesignerMenuMirrorHorizontal:=RegisterIDEMenuCommand(DesignerMenuSectionAlign,
'Mirror horizontal',fdmMirrorHorizontal, nil, nil, nil, 'mirror_horizontal'); 'Mirror horizontal',fdmMirrorHorizontal, nil, nil, nil, 'mirror_horizontal');
DesignerMenuMirrorVertical:=RegisterIDEMenuCommand(DesignerMenuSectionAlign, DesignerMenuMirrorVertical:=RegisterIDEMenuCommand(DesignerMenuSectionAlign,
'Mirror vertical',fdmMirrorVertical, nil, nil, nil, 'mirror_vertical'); 'Mirror vertical',fdmMirrorVertical, nil, nil, nil, 'mirror_vertical');
DesignerMenuScale:=RegisterIDEMenuCommand(DesignerMenuSectionAlign, DesignerMenuScale:=RegisterIDEMenuCommand(DesignerMenuSectionAlign,
'Scale',fdmScaleWord, nil, nil, nil, 'scale'); 'Scale',fdmScaleWord, nil, nil, nil, 'scale');
DesignerMenuSize:=RegisterIDEMenuCommand(DesignerMenuSectionAlign, DesignerMenuSize:=RegisterIDEMenuCommand(DesignerMenuSectionAlign,
'Size',fdmSizeWord, nil, nil, nil, 'size'); 'Size',fdmSizeWord, nil, nil, nil, 'size');
// register tab and z-order section // register tab and z-order section
DesignerMenuSectionOrder:=RegisterIDEMenuSection(DesignerMenuRoot,'Order section'); DesignerMenuSectionOrder:=RegisterIDEMenuSection(DesignerMenuRoot,'Order section');
DesignerMenuAnchorEditor:=RegisterIDEMenuCommand(DesignerMenuSectionOrder, DesignerMenuAnchorEditor:=RegisterIDEMenuCommand(DesignerMenuSectionOrder,
'Anchor Editor',lisMenuViewAnchorEditor); 'Anchor Editor',lisMenuViewAnchorEditor, nil, nil, nil, 'menu_view_anchor_editor');
DesignerMenuTabOrder:=RegisterIDEMenuCommand(DesignerMenuSectionOrder, DesignerMenuTabOrder:=RegisterIDEMenuCommand(DesignerMenuSectionOrder,
'Tab order',lisMenuViewTabOrderEditor); 'Tab order',lisMenuViewTabOrderEditor);
DesignerMenuSectionZOrder:=RegisterIDESubMenu(DesignerMenuSectionOrder, DesignerMenuSectionZOrder:=RegisterIDESubMenu(DesignerMenuSectionOrder,
'ZOrder section', fdmZOrder); 'ZOrder section', fdmZOrder);
DesignerMenuOrderMoveToFront:=RegisterIDEMenuCommand(DesignerMenuSectionZOrder, DesignerMenuOrderMoveToFront:=RegisterIDEMenuCommand(DesignerMenuSectionZOrder,
'Move to z order front',fdmOrderMoveTofront, nil, nil, nil, 'Order_move_front'); 'Move to z order front',fdmOrderMoveTofront, nil, nil, nil, 'Order_move_front');
DesignerMenuOrderMoveToBack:=RegisterIDEMenuCommand(DesignerMenuSectionZOrder, DesignerMenuOrderMoveToBack:=RegisterIDEMenuCommand(DesignerMenuSectionZOrder,
'Move to z order back',fdmOrderMoveToBack, nil, nil, nil, 'Order_move_back'); 'Move to z order back',fdmOrderMoveToBack, nil, nil, nil, 'Order_move_back');
DesignerMenuOrderForwardOne:=RegisterIDEMenuCommand(DesignerMenuSectionZOrder, DesignerMenuOrderForwardOne:=RegisterIDEMenuCommand(DesignerMenuSectionZOrder,
'Move z order forward one',fdmOrderForwardOne, nil, nil, nil, 'Order_forward_one'); 'Move z order forward one',fdmOrderForwardOne, nil, nil, nil, 'Order_forward_one');
DesignerMenuOrderBackOne:=RegisterIDEMenuCommand(DesignerMenuSectionZOrder, DesignerMenuOrderBackOne:=RegisterIDEMenuCommand(DesignerMenuSectionZOrder,
'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',lisMenuCut, nil, nil, nil, 'laz_cut'); 'Cut',lisMenuCut, nil, nil, nil, 'laz_cut');
DesignerMenuCopy:=RegisterIDEMenuCommand(DesignerMenuSectionClipboard, DesignerMenuCopy:=RegisterIDEMenuCommand(DesignerMenuSectionClipboard,
'Copy',lisMenuCopy, nil, nil, nil, 'laz_copy'); 'Copy',lisMenuCopy, nil, nil, nil, 'laz_copy');
DesignerMenuPaste:=RegisterIDEMenuCommand(DesignerMenuSectionClipboard, DesignerMenuPaste:=RegisterIDEMenuCommand(DesignerMenuSectionClipboard,
'Paste',lisMenuPaste, nil, nil, nil, 'laz_paste'); 'Paste',lisMenuPaste, nil, nil, nil, 'laz_paste');
DesignerMenuDeleteSelection:=RegisterIDEMenuCommand(DesignerMenuSectionClipboard, DesignerMenuDeleteSelection:=RegisterIDEMenuCommand(DesignerMenuSectionClipboard,
'Delete Selection',fdmDeleteSelection, nil, nil, nil, 'delete_selection'); 'Delete Selection',fdmDeleteSelection, nil, nil, nil, 'delete_selection');
DesignerMenuSelectAll:=RegisterIDEMenuCommand(DesignerMenuSectionClipboard, DesignerMenuSelectAll:=RegisterIDEMenuCommand(DesignerMenuSectionClipboard,
'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,
@ -579,7 +579,7 @@ begin
DesignerMenuSnapToGuideLinesOption:=RegisterIDEMenuCommand(DesignerMenuSectionOptions, DesignerMenuSnapToGuideLinesOption:=RegisterIDEMenuCommand(DesignerMenuSectionOptions,
'Snap to guide lines',fdmSnapToGuideLinesOption); 'Snap to guide lines',fdmSnapToGuideLinesOption);
DesignerMenuShowOptions:=RegisterIDEMenuCommand(DesignerMenuSectionOptions, DesignerMenuShowOptions:=RegisterIDEMenuCommand(DesignerMenuSectionOptions,
'Show options',dlgFROpts, nil, nil, nil, 'menu_environment_options'); 'Show options',dlgFROpts, nil, nil, nil, 'menu_environment_options');
end; end;
constructor TDesigner.Create(TheDesignerForm: TCustomForm; constructor TDesigner.Create(TheDesignerForm: TCustomForm;