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

IdeIntf: Remove update events for ComponentPalette from TLazIDEInterface.

Browse Source 
git-svn-id: trunk@50244 -
This commit is contained in:
juha 2015-11-07 16:37:25 +00:00
parent 8cccad8aad
commit 89738efcb7
1 changed files with 3 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
components/ideintf/lazideintf.pas
View File

@ -181,8 +181,6 @@ type
lihtGetFPCFrontEndPath, // called when the IDE gets the path of the 'fpc' front end tool lihtGetFPCFrontEndPath, // called when the IDE gets the path of the 'fpc' front end tool
lihtShowDesignerFormOfSource, // called after showing a designer form for code editor (AEditor can be nil!) lihtShowDesignerFormOfSource, // called after showing a designer form for code editor (AEditor can be nil!)
lihtShowSourceOfActiveDesignerForm, // called after showing a code of designer form lihtShowSourceOfActiveDesignerForm, // called after showing a code of designer form
lihtUpdateIDEComponentPalette,
lihtUpdateComponentPageControl,
lihtChangeToolStatus//called when IDEToolStatus has changed (e.g. itNone->itBuilder etc.) lihtChangeToolStatus//called when IDEToolStatus has changed (e.g. itNone->itBuilder etc.)
); );
@ -438,16 +436,6 @@ type
procedure RemoveHandlerGetFPCFrontEndPath( procedure RemoveHandlerGetFPCFrontEndPath(
const Handler: TGetFPCFrontEndPath); const Handler: TGetFPCFrontEndPath);
function CallHandlerGetFPCFrontEndPath(Sender: TObject; var Path: string): boolean; function CallHandlerGetFPCFrontEndPath(Sender: TObject; var Path: string): boolean;
procedure AddHandlerOnUpdateIDEComponentPalette(
const OnUpdateIDEComponentPaletteEvent: TNotifyEvent;
AsLast: boolean = false);
procedure RemoveHandlerOnUpdateIDEComponentPalette(
const OnUpdateIDEComponentPaletteEvent: TNotifyEvent);
procedure AddHandlerOnUpdateComponentPageControl(
const OnUpdateComponentPageControlEvent: TNotifyEvent;
AsLast: boolean = false);
procedure RemoveHandlerOnUpdateComponentPageControl(
const OnUpdateComponentPageControlEvent: TNotifyEvent);
procedure AddHandlerOnShowDesignerFormOfSource( procedure AddHandlerOnShowDesignerFormOfSource(
const OnShowDesignerFormOfSourceEvent: TShowDesignerFormOfSourceFunction; const OnShowDesignerFormOfSourceEvent: TShowDesignerFormOfSourceFunction;
AsLast: boolean = false); AsLast: boolean = false);
@ -683,8 +671,7 @@ begin
end; end;
procedure TLazIDEInterface.DoCallBuildingFinishedHandler( procedure TLazIDEInterface.DoCallBuildingFinishedHandler(
HandlerType: TLazarusIDEHandlerType; Sender: TObject; BuildSuccessful: Boolean HandlerType: TLazarusIDEHandlerType; Sender: TObject; BuildSuccessful: Boolean);
);
var var
I: Integer; I: Integer;
xMethod: TLazBuildingFinishedEvent; xMethod: TLazBuildingFinishedEvent;
@ -827,8 +814,7 @@ begin
end; end;
procedure TLazIDEInterface.AddHandlerOnProjectDependenciesCompiled( procedure TLazIDEInterface.AddHandlerOnProjectDependenciesCompiled(
const OnProjDependenciesCompiledEvent: TModalResultFunction; AsLast: boolean const OnProjDependenciesCompiledEvent: TModalResultFunction; AsLast: boolean);
);
begin begin
AddHandler(lihtProjectDependenciesCompiled, AddHandler(lihtProjectDependenciesCompiled,
TMethod(OnProjDependenciesCompiledEvent),AsLast); TMethod(OnProjDependenciesCompiledEvent),AsLast);
@ -886,8 +872,7 @@ begin
end; end;
procedure TLazIDEInterface.AddHandlerOnProjectBuildingFinished( procedure TLazIDEInterface.AddHandlerOnProjectBuildingFinished(
const OnProjBuildingFinishedEvent: TLazBuildingFinishedEvent; AsLast: boolean const OnProjBuildingFinishedEvent: TLazBuildingFinishedEvent; AsLast: boolean);
);
begin begin
AddHandler(lihtProjectBuildingFinished,TMethod(OnProjBuildingFinishedEvent),AsLast); AddHandler(lihtProjectBuildingFinished,TMethod(OnProjBuildingFinishedEvent),AsLast);
end; end;
@ -930,30 +915,6 @@ begin
Result:=true; Result:=true;
end; end;
procedure TLazIDEInterface.AddHandlerOnUpdateIDEComponentPalette(
const OnUpdateIDEComponentPaletteEvent: TNotifyEvent; AsLast: boolean);
begin
AddHandler(lihtUpdateIDEComponentPalette,TMethod(OnUpdateIDEComponentPaletteEvent),AsLast);
end;
procedure TLazIDEInterface.RemoveHandlerOnUpdateIDEComponentPalette(
const OnUpdateIDEComponentPaletteEvent: TNotifyEvent);
begin
RemoveHandler(lihtUpdateIDEComponentPalette,TMethod(OnUpdateIDEComponentPaletteEvent));
end;
procedure TLazIDEInterface.AddHandlerOnUpdateComponentPageControl(
const OnUpdateComponentPageControlEvent: TNotifyEvent; AsLast: boolean);
begin
AddHandler(lihtUpdateComponentPageControl,TMethod(OnUpdateComponentPageControlEvent),AsLast);
end;
procedure TLazIDEInterface.RemoveHandlerOnUpdateComponentPageControl(
const OnUpdateComponentPageControlEvent: TNotifyEvent);
begin
RemoveHandler(lihtUpdateComponentPageControl,TMethod(OnUpdateComponentPageControlEvent));
end;
procedure TLazIDEInterface.AddHandlerOnShowDesignerFormOfSource( procedure TLazIDEInterface.AddHandlerOnShowDesignerFormOfSource(
const OnShowDesignerFormOfSourceEvent: TShowDesignerFormOfSourceFunction; AsLast: boolean); const OnShowDesignerFormOfSourceEvent: TShowDesignerFormOfSourceFunction; AsLast: boolean);
begin begin