paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 08:58:15 +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;
function GetActiveProject: TLazProject; virtual; abstract;
procedure DoCallNotifyHandler(HandlerType: TLazarusIDEHandlerType); overload;
function DoCallModalFunctionHandler(HandlerType: TLazarusIDEHandlerType
): TModalResult;
function DoCallModalHandledHandler(HandlerType: TLazarusIDEHandlerType;
var Handled: boolean): TModalResult;
procedure DoCallNotifyHandler(HandlerType: TLazarusIDEHandlerType); overload;
procedure DoCallNotifyHandler(HandlerType: TLazarusIDEHandlerType;
Sender: TObject); overload;
procedure DoCallShowDesignerFormOfSourceHandler(Sender: TObject;
@ -678,12 +678,6 @@ begin
end;
end;
procedure TLazIDEInterface.DoCallNotifyHandler(
HandlerType: TLazarusIDEHandlerType);
begin
FLazarusIDEHandlers[HandlerType].CallNotifyEvents(Self);
end;
function TLazIDEInterface.DoCallModalFunctionHandler(
HandlerType: TLazarusIDEHandlerType): TModalResult;
var
@ -736,7 +730,13 @@ begin
Result:=mrOk;
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
FLazarusIDEHandlers[HandlerType].CallNotifyEvents(Sender);
end;