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

IdeIntf: Collect procedures TLazIDEInterface.DoCallNotifyHandler together.

Browse Source
This commit is contained in:
Juha 2022-01-17 14:44:01 +02:00
parent 3fd8904d8d
commit e210c73735
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/ideintf/lazideintf.pas
View File

@ -298,11 +298,11 @@ type
procedure SetToolStatus(const AToolStatus: TLazToolStatus); virtual; procedure SetToolStatus(const AToolStatus: TLazToolStatus); virtual;
function GetActiveProject: TLazProject; virtual; abstract; function GetActiveProject: TLazProject; virtual; abstract;
procedure DoCallNotifyHandler(HandlerType: TLazarusIDEHandlerType); overload;
function DoCallModalFunctionHandler(HandlerType: TLazarusIDEHandlerType function DoCallModalFunctionHandler(HandlerType: TLazarusIDEHandlerType
): TModalResult; ): TModalResult;
function DoCallModalHandledHandler(HandlerType: TLazarusIDEHandlerType; function DoCallModalHandledHandler(HandlerType: TLazarusIDEHandlerType;
var Handled: boolean): TModalResult; var Handled: boolean): TModalResult;
procedure DoCallNotifyHandler(HandlerType: TLazarusIDEHandlerType); overload;
procedure DoCallNotifyHandler(HandlerType: TLazarusIDEHandlerType; procedure DoCallNotifyHandler(HandlerType: TLazarusIDEHandlerType;
Sender: TObject); overload; Sender: TObject); overload;
procedure DoCallShowDesignerFormOfSourceHandler(Sender: TObject; procedure DoCallShowDesignerFormOfSourceHandler(Sender: TObject;
@ -678,12 +678,6 @@ begin
end; end;
end; end;
procedure TLazIDEInterface.DoCallNotifyHandler(
HandlerType: TLazarusIDEHandlerType);
begin
FLazarusIDEHandlers[HandlerType].CallNotifyEvents(Self);
end;
function TLazIDEInterface.DoCallModalFunctionHandler( function TLazIDEInterface.DoCallModalFunctionHandler(
HandlerType: TLazarusIDEHandlerType): TModalResult; HandlerType: TLazarusIDEHandlerType): TModalResult;
var var
@ -736,7 +730,13 @@ begin
Result:=mrOk; Result:=mrOk;
end; end;
procedure TLazIDEInterface.DoCallNotifyHandler(HandlerType: TLazarusIDEHandlerType; Sender: TObject); procedure TLazIDEInterface.DoCallNotifyHandler(HandlerType: TLazarusIDEHandlerType);
begin
FLazarusIDEHandlers[HandlerType].CallNotifyEvents(Self);
end;
procedure TLazIDEInterface.DoCallNotifyHandler(HandlerType: TLazarusIDEHandlerType;
Sender: TObject);
begin begin
FLazarusIDEHandlers[HandlerType].CallNotifyEvents(Sender); FLazarusIDEHandlers[HandlerType].CallNotifyEvents(Sender);
end; end;