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

IDE: ComponentPalette cleanup. Move MainBase reference from implementation to interface.

Browse Source 
git-svn-id: trunk@47274 -
This commit is contained in:
juha 2014-12-31 20:36:26 +00:00
parent 9676758e82
commit c7510d07b7
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/componentpalette.pas
View File

@ -43,7 +43,7 @@ uses
{$IFDEF CustomIDEComps}
CustomIDEComps,
{$ENDIF}
LazarusIDEStrConsts, ComponentReg, DesignerProcs, PackageDefs, EnvironmentOpts;
MainBase, LazarusIDEStrConsts, ComponentReg, DesignerProcs, PackageDefs, EnvironmentOpts;
const
CompPalSelectionToolBtnPrefix = 'PaletteSelectBtn';
@ -156,7 +156,6 @@ type
function GetSelectButtonIcon: TCustomBitmap;
function SelectAButton(Button: TComponent): boolean;
protected
procedure DoBeginUpdate; override;
procedure DoEndUpdate(Changed: boolean); override;
procedure OnPageAddedComponent(Component: TRegisteredComponent); override;
procedure OnPageRemovedComponent(Page: TBaseComponentPage;
@ -198,8 +197,6 @@ implementation
{$R ../images/components_images.res}
{$DEFINE USE_PageIndex}
uses
MainBase;
const
OVERVIEW_PANEL_WIDTH = 20;
@ -884,11 +881,6 @@ begin
PopupMenu.Items.Add(MenuItem);
end;
procedure TComponentPalette.DoBeginUpdate;
begin
inherited DoBeginUpdate;
end;
procedure TComponentPalette.DoEndUpdate(Changed: boolean);
begin
if Changed or fNoteBookNeedsUpdate then begin