From 3c7a01e5e9308f8f7a34f6d94eef468a7bd55fdb Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 29 Nov 2007 08:36:21 +0000
Subject: [PATCH] designer: assign some glyphs to popup menu

git-svn-id: trunk@13073 -
---
 designer/designer.pp | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/designer/designer.pp b/designer/designer.pp
index 06b2b4ec35..4e0c8a3236 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -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.