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

designer: assign some glyphs to popup menu

Browse Source 
git-svn-id: trunk@13073 -
This commit is contained in:
paul 2007-11-29 08:36:21 +00:00
parent 3249ea4306
commit 3c7a01e5e9
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
designer/designer.pp
View File

@ -38,7 +38,7 @@ interface
uses
Classes, SysUtils, Math, LCLProc, LCLType, LResources, LCLIntf, LMessages,
Forms, Controls, GraphType, Graphics, Dialogs, ExtCtrls, Menus, ClipBrd,
PropEdits, ComponentEditors, MenuIntf,
PropEdits, ComponentEditors, MenuIntf, IDEImagesIntf,
LazarusIDEStrConsts, EnvironmentOpts, IDECommands, ComponentReg,
NonControlDesigner, AlignCompsDlg, SizeCompsDlg, ScaleCompsDlg, TabOrderDlg,
DesignerProcs, CustomFormEditor,
@ -408,11 +408,11 @@ begin
DesignerMenuSectionClipboard:=RegisterIDEMenuSection(DesignerMenuRoot,
'Clipboard section');
DesignerMenuCut:=RegisterIDEMenuCommand(DesignerMenuSectionClipboard,
'Cut',lisMenuCut);
'Cut',lisMenuCut, 'menu_edit_cut');
DesignerMenuCopy:=RegisterIDEMenuCommand(DesignerMenuSectionClipboard,
'Copy',lisMenuCopy);
'Copy',lisMenuCopy, 'menu_edit_copy');
DesignerMenuPaste:=RegisterIDEMenuCommand(DesignerMenuSectionClipboard,
'Paste',lisMenuPaste);
'Paste',lisMenuPaste, 'menu_edit_paste');
DesignerMenuDeleteSelection:=RegisterIDEMenuCommand(DesignerMenuSectionClipboard,
'Delete selection',fdmDeleteSelection);
@ -438,7 +438,7 @@ begin
DesignerMenuSnapToGuideLinesOption:=RegisterIDEMenuCommand(DesignerMenuSectionOptions,
'Snap to guide lines',fdmSnapToGuideLinesOption);
DesignerMenuShowOptions:=RegisterIDEMenuCommand(DesignerMenuSectionOptions,
'Show options',fdmShowOptions);
'Show options',fdmShowOptions, 'menu_environment_options');
end;
constructor TDesigner.Create(TheDesignerForm: TCustomForm;
@ -2683,9 +2683,11 @@ begin
if DesignerPopupMenu<>nil then exit;
DesignerPopupMenu:=TPopupMenu.Create(nil);
with DesignerPopupMenu do begin
Name:='DesignerPopupmenu';
OnPopup :=@DesignerPopupMenuPopup;
with DesignerPopupMenu do
begin
Name := 'DesignerPopupmenu';
OnPopup := @DesignerPopupMenuPopup;
Images := IDEImages.Images_16;
end;
// assign the root TMenuItem to the registered menu root.