paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 08:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: added AddHandlerFPCSrcDirScanned

Browse Source
This commit is contained in:
mattias 2022-11-28 15:34:16 +01:00
parent 497aa0a34a
commit 84f716a2ff
2 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/ideintf/lazideintf.pas
View File

@ -248,6 +248,7 @@ type
lihtQuickSyntaxCheck, // called when quick syntax check is clicked (menu item or shortcut)
lihtGetFPCFrontEndParams, // called when the IDE gets the parameters of the 'fpc' front end tool
lihtGetFPCFrontEndPath, // called when the IDE gets the path of the 'fpc' front end tool
lihtFPCSrcDirScanned, // called after IDE scanned the FPC source directory
lihtShowDesignerFormOfSource, // called after showing a designer form for code editor (AEditor can be nil!)
lihtShowSourceOfActiveDesignerForm, // called after showing a code of designer form
lihtChangeToolStatus, //called when IDEToolStatus has changed (e.g. itNone->itBuilder etc.)
@ -542,6 +543,10 @@ type
const Handler: TGetFPCFrontEndPath; AsLast: boolean = false);
procedure RemoveHandlerGetFPCFrontEndPath(const Handler: TGetFPCFrontEndPath);
function CallHandlerGetFPCFrontEndPath(Sender: TObject; var Path: string): boolean;
procedure AddHandlerFPCSrcDirScanned(
const Handler: TNotifyEvent; AsLast: boolean = false);
procedure RemoveHandlerGetFPCSrcDirScanned(const Handler: TNotifyEvent);
procedure CallHandlerFPCSrcDirScanned(Sender: TObject);
procedure AddHandlerOnShowDesignerFormOfSource(
const OnShowDesignerFormOfSourceEvent: TShowDesignerFormOfSourceFunction;
AsLast: boolean = false);
@ -1175,6 +1180,23 @@ begin
Result:=true;
end;
procedure TLazIDEInterface.AddHandlerFPCSrcDirScanned(
const Handler: TNotifyEvent; AsLast: boolean);
begin
AddHandler(lihtFPCSrcDirScanned,TMethod(Handler),AsLast);
end;
procedure TLazIDEInterface.RemoveHandlerGetFPCSrcDirScanned(
const Handler: TNotifyEvent);
begin
RemoveHandler(lihtFPCSrcDirScanned,TMethod(Handler));
end;
procedure TLazIDEInterface.CallHandlerFPCSrcDirScanned(Sender: TObject);
begin
FLazarusIDEHandlers[lihtFPCSrcDirScanned].CallNotifyEvents(Sender);
end;
procedure TLazIDEInterface.AddHandlerOnShowDesignerFormOfSource(
const OnShowDesignerFormOfSourceEvent: TShowDesignerFormOfSourceFunction; AsLast: boolean);
begin

4
ide/fpcsrcscan.pas
View File

@ -32,7 +32,7 @@ interface
uses
Classes, SysUtils, FileProcs, LazFileUtils, DefineTemplates, CodeToolManager,
LazarusIDEStrConsts, ProgressWnd, BaseBuildManager;
LazIDEIntf, LazarusIDEStrConsts, ProgressWnd, BaseBuildManager;
type
TFPCSrcScans = class;
@ -91,6 +91,8 @@ begin
debugln(['ApplyFPCSrcFiles BuildBoss.RescanCompilerDefines ...']);
if BuildBoss<>nil then
BuildBoss.RescanCompilerDefines(false,false,false,true);
if LazarusIDE<>nil then
LazarusIDE.CallHandlerFPCSrcDirScanned(LazarusIDE);
end;
FreeAndNil(Files);
end;