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

* Fix error in async handling

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-08-28 12:14:23 +02:00
parent 65d5d05d67
commit 0b325c5195
1 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
packages/rtl/Rtl.TemplateLoader.pas
View File

@ -75,6 +75,7 @@ Type
procedure SetTemplate(const aName : String; const AValue: String);
procedure SetPreload(AValue: TPreLoadTemplateItemList);
Protected
procedure NotifyEvents(aName: string);
function CheckTemplateResource(const aName: string): string; virtual;
Procedure TemplateLoaded(const aName,aTemplate : String); virtual;
Procedure Loaded; override;
@ -138,7 +139,10 @@ Function GlobalTemplates : TCustomTemplateLoader;
begin
if _loader=Nil then
begin
_loader:=TCustomTemplateLoader.Create(Nil);
_loader.Name:='GlobalTemplates';
end;
Result:=_Loader;
end;
@ -288,13 +292,20 @@ end;
procedure TCustomTemplateLoader.TemplateLoaded(const aName, aTemplate: String);
Var
Idx : Integer;
begin
FTemplates[LowerCase(aName)]:=aTemplate;
if Assigned(FOnLoad) then
FOnLoad(Self,aName);
NotifyEvents(aName);
end;
procedure TCustomTemplateLoader.NotifyEvents(aName : string);
Var
Idx : Integer;
begin
Idx:=IndexOfTemplateEvent(aName);
While Idx<>-1 do
begin
@ -356,11 +367,14 @@ begin
if Templates[aName]<>'' then
aEvent(Self,aName)
else
begin
N.Name:=aname;
N.Event:=aEvent;
FNotifications:=Concat(FNotifications,[N]);
end;
begin
N.Name:=aName;
N.Event:=aEvent;
FNotifications:=Concat(FNotifications,[N]);
// Can happen
if Templates[aName]<>'' then
NotifyEvents(aName)
end;
end;
procedure TCustomTemplateLoader.RemoveRemplate(const aName: String);