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

Global loading classes implementation.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2022-02-07 07:36:08 -03:00
parent 2e007b3ee6
commit 54014abb5c
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
packages/rtl/classes.pas
View File

@ -1448,6 +1448,10 @@ Function StringToBuffer(aString : String; aLen : Integer) : TJSArrayBuffer;
// Create buffer from string. aPos,aLen are in bytes, not in characters.
Function BufferToString(aBuffer : TJSArrayBuffer; aPos,aLen : Integer) : String;
procedure BeginGlobalLoading;
procedure NotifyGlobalLoading;
procedure EndGlobalLoading;
Const
// Some aliases
vaSingle = vaDouble;
@ -1469,6 +1473,26 @@ var
IntConstList: TFPList;
GlobalLoadHelper : TLoadHelperClass;
procedure BeginGlobalLoading;
begin
GlobalLoaded := TFPList.Create;
end;
procedure NotifyGlobalLoading;
var
I: Integer;
G: TFPList;
begin
G := GlobalLoaded;
for I := 0 to G.Count - 1 do
TComponent(G[I]).Loaded;
end;
procedure EndGlobalLoading;
begin
GlobalLoaded.Free;
end;
Function SetLoadHelperClass(aClass : TLoadHelperClass) : TLoadHelperClass;
begin