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

IDEIntf: clean up

Browse Source 
git-svn-id: trunk@48360 -
This commit is contained in:
mattias 2015-03-15 10:28:40 +00:00
parent 287df6d51b
commit 0b151780ec
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/ideintf/componentreg.pas
View File

@ -156,7 +156,7 @@ type
protected protected
FIndex: Integer; // Index in the Pages container. FIndex: Integer; // Index in the Pages container.
procedure SetVisible(const AValue: boolean); virtual; procedure SetVisible(const AValue: boolean); virtual;
procedure OnComponentVisibleChanged(AComponent: TRegisteredComponent); virtual; procedure OnComponentVisibleChanged({%H-}AComponent: TRegisteredComponent); virtual;
public public
constructor Create(const ThePageName: string); constructor Create(const ThePageName: string);
destructor Destroy; override; destructor Destroy; override;
@ -241,7 +241,7 @@ type
procedure RemoveComponent(AComponent: TRegisteredComponent); procedure RemoveComponent(AComponent: TRegisteredComponent);
function FindComponent(const CompClassName: string): TRegisteredComponent; function FindComponent(const CompClassName: string): TRegisteredComponent;
function CreateNewClassName(const Prefix: string): string; function CreateNewClassName(const Prefix: string): string;
procedure Update(ForceUpdateAll: Boolean); virtual; procedure Update({%H-}ForceUpdateAll: Boolean); virtual;
procedure IterateRegisteredClasses(Proc: TGetComponentClassEvent); procedure IterateRegisteredClasses(Proc: TGetComponentClassEvent);
// Registered handlers // Registered handlers
procedure DoAfterComponentAdded; procedure DoAfterComponentAdded;
@ -646,8 +646,7 @@ end;
procedure TBaseComponentPage.OnComponentVisibleChanged(AComponent: TRegisteredComponent); procedure TBaseComponentPage.OnComponentVisibleChanged(AComponent: TRegisteredComponent);
begin begin
//if FPalette<>nil then
// FPalette.OnComponentVisibleChanged(AComponent);
end; end;
{ TBaseComponentPalette } { TBaseComponentPalette }
@ -1024,8 +1023,6 @@ procedure TBaseComponentPalette.Update(ForceUpdateAll: Boolean);
begin begin
fUserOrder.SortPagesAndCompsUserOrder; fUserOrder.SortPagesAndCompsUserOrder;
CreatePagesFromUserOrder; CreatePagesFromUserOrder;
//for Viewer in Viewers do
// Viewer.Update(ForceUpdateAll);
end; end;
procedure TBaseComponentPalette.IterateRegisteredClasses(Proc: TGetComponentClassEvent); procedure TBaseComponentPalette.IterateRegisteredClasses(Proc: TGetComponentClassEvent);