paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 11:24:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

Component palette: Add Options entry to component icon popup menu. It was already in PageControl popup.

Browse Source 
git-svn-id: trunk@48502 -
This commit is contained in:
juha 2015-03-25 14:59:25 +00:00
parent feb46ca59a
commit 3023d4233e
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/componentpalette.pas
View File

@ -753,7 +753,8 @@ begin
PopupMenu:=TPopupMenu.Create(nil);
PopupMenu.OnPopup:=@PopupMenuPopup;
PopupMenu.Name:='ComponentPopupMenu';
PopupMenu.Images:=IDEImages.Images_16;
OpenPackageMenuItem:=TMenuItem.Create(PopupMenu);
with OpenPackageMenuItem do begin
Name:='OpenPackageMenuItem';
@ -779,6 +780,15 @@ begin
OnClick:=@ComponentListClicked;
end;
PopupMenu.Items.Add(MenuItem);
MenuItem:=TMenuItem.Create(PopupMenu);
with MenuItem do begin
Name:='OptionsMenuItem';
Caption:=lisOptions;
OnClick:=@OptionsClicked;
ImageIndex := IDEImages.LoadImage(16, 'menu_environment_options');
end;
PopupMenu.Items.Add(MenuItem);
end;
procedure TComponentPalette.OnPageMouseWheel(Sender: TObject; Shift: TShiftState;