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

IDE: Remove FindPaletteComp from Component Palette's popup menu. Was earlier replaced with Component List.

Browse Source 
git-svn-id: trunk@36429 -
This commit is contained in:
juha 2012-03-29 11:04:21 +00:00
parent d4097cbcda
commit 98d07d051d
2 changed files with 1 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/componentpalette.pas
View File

@ -42,8 +42,7 @@ uses
{$IFDEF CustomIDEComps}
CustomIDEComps,
{$ENDIF}
LazarusIDEStrConsts, ComponentReg, DesignerProcs, PackageDefs,
FindPaletteComp, EnvironmentOpts;
LazarusIDEStrConsts, ComponentReg, DesignerProcs, PackageDefs, EnvironmentOpts;
type
TComponentSelectionMode = (
@ -63,7 +62,6 @@ type
procedure OpenPackageClicked(Sender: TObject);
procedure OpenUnitClicked(Sender: TObject);
procedure ComponentListClicked(Sender: TObject);
procedure FindComponentClicked(Sender: TObject);
procedure PalettePopupMenuPopup(Sender: TObject);
procedure PopupMenuPopup(Sender: TObject);
private
@ -207,14 +205,6 @@ begin
MainIDE.DoShowComponentList(true);
end;
procedure TComponentPalette.FindComponentClicked(Sender: TObject);
var
AComponent: TRegisteredComponent;
begin
if ShowFindPaletteComponentDlg(AComponent)<>mrOk then exit;
Selected:=AComponent;
end;
procedure TComponentPalette.PalettePopupMenuPopup(Sender: TObject);
begin
;
@ -272,14 +262,6 @@ begin
OnClick:=@ComponentListClicked;
end;
PalettePopupMenu.Items.Add(MenuItem);
// Find Component
MenuItem:=TMenuItem.Create(PalettePopupMenu);
with MenuItem do begin
Name:='FindComponentMenuItem';
Caption:=lisCompPalFindComponent;
OnClick:=@FindComponentClicked;
end;
PalettePopupMenu.Items.Add(MenuItem);
end;
FPageControl.PopupMenu:=PalettePopupMenu;
end;

1
ide/lazarusidestrconsts.pas
View File

@ -3485,7 +3485,6 @@ resourcestring
lisCPOpenUnit = 'Open Unit %s';
lisCompPalOpenUnit = 'Open unit';
lisCompPalComponentList = 'View All';
lisCompPalFindComponent = 'Find component (to be removed)';
// macro promp dialog
lisMacroPromptEnterData = 'Enter data';