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

Was forgotten about dotted units.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2025-02-13 11:28:29 -03:00
parent 2c0404c1e9
commit b2fd1f356f
3 changed files with 19 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl/src/sysutils.pas
View File

@ -3076,7 +3076,7 @@ end;
constructor EJSException.create(aJSError: TJSError); constructor EJSException.create(aJSError: TJSError);
begin begin
Inherited CreateFmt('Javascript %s exception : %s',[JS.JSClassName(aJSError),aJSError.Message]); Inherited CreateFmt('Javascript %s exception : %s',[{$IFDEF FPC_DOTTEDUNITS}JSApi.{$ENDIF}JS.JSClassName(aJSError),aJSError.Message]);
end; end;
Const Const

4
packages/rtl/src/types.pas
View File

@ -441,7 +441,11 @@ function UnionRectF(out Rect: TRectF; const R1, R2: TRectF): Boolean;
implementation implementation
{$IFDEF FPC_DOTTEDUNITS}
uses System.Math;
{$ELSE FPC_DOTTEDUNITS}
uses math; uses math;
{$ENDIF FPC_DOTTEDUNITS}
function RectCenter(var R: TRect; const Bounds: TRect): TRect; function RectCenter(var R: TRect; const Bounds: TRect): TRect;

25
packages/rtl/src/web.pas
View File

@ -124,6 +124,13 @@ Type
TJSPermissions = BrowserApi.WebOrWorker.TJSPermissions; TJSPermissions = BrowserApi.WebOrWorker.TJSPermissions;
TJSRequest = BrowserApi.WebOrWorker.TJSRequest; TJSRequest = BrowserApi.WebOrWorker.TJSRequest;
TJSPerformance = BrowserApi.WebOrWorker.TJSPerformance; TJSPerformance = BrowserApi.WebOrWorker.TJSPerformance;
TCanvasCoordType = BrowserApi.WebOrWorker.TCanvasCoordType;
TJSCanvasGradient = BrowserApi.WebOrWorker.TJSCanvasGradient;
TJSCanvasPattern = BrowserApi.WebOrWorker.TJSCanvasPattern;
TJSPath2D = BrowserApi.WebOrWorker.TJSPath2D;
TJSImageBitmap = BrowserApi.WebOrWorker.TJSImageBitmap;
TJSOffscreenCanvasRenderingContext2D = BrowserApi.WebOrWorker.TJSOffscreenCanvasRenderingContext2D;
TJSHTMLOffscreenCanvasElement = BrowserApi.WebOrWorker.TJSHTMLOffscreenCanvas;
{$ELSE} {$ELSE}
TJSServiceWorker = weborworker.TJSServiceWorker; TJSServiceWorker = weborworker.TJSServiceWorker;
TJSServiceWorkerRegistration = weborworker.TJSServiceWorkerRegistration; TJSServiceWorkerRegistration = weborworker.TJSServiceWorkerRegistration;
@ -197,6 +204,13 @@ Type
TJSRequest = webOrworker.TJSRequest; TJSRequest = webOrworker.TJSRequest;
TJSAbortController = webOrworker.TJSAbortController; TJSAbortController = webOrworker.TJSAbortController;
TJSPerformance = WebOrWorker.TJSPerformance; TJSPerformance = WebOrWorker.TJSPerformance;
TCanvasCoordType = weborworker.TCanvasCoordType;
TJSCanvasGradient = weborworker.TJSCanvasGradient;
TJSCanvasPattern = weborworker.TJSCanvasPattern;
TJSPath2D = weborworker.TJSPath2D;
TJSImageBitmap = weborworker.TJSImageBitmap;
TJSOffscreenCanvasRenderingContext2D = weborworker.TJSOffscreenCanvasRenderingContext2D;
TJSHTMLOffscreenCanvasElement = weborworker.TJSHTMLOffscreenCanvas;
{$ENDIF} {$ENDIF}
TJSMessagePortArray = TJSMessagePortDynArray; TJSMessagePortArray = TJSMessagePortDynArray;
TEventListenerEvent = TJSEvent; TEventListenerEvent = TJSEvent;
@ -2547,11 +2561,6 @@ Type
end; end;
TCanvasCoordType = weborworker.TCanvasCoordType;
TJSCanvasGradient = weborworker.TJSCanvasGradient;
TJSCanvasPattern = weborworker.TJSCanvasPattern;
TJSPath2D = weborworker.TJSPath2D;
TJSCanvasRenderingContext2D = class external name 'CanvasRenderingContext2D' (TJSBaseCanvasRenderingContext2D) TJSCanvasRenderingContext2D = class external name 'CanvasRenderingContext2D' (TJSBaseCanvasRenderingContext2D)
private private
FCanvas: TJSHTMLCanvasElement; external name 'canvas'; FCanvas: TJSHTMLCanvasElement; external name 'canvas';
@ -2562,12 +2571,6 @@ Type
end; end;
TJSImageBitmap = weborworker.TJSImageBitmap;
TJSOffscreenCanvasRenderingContext2D = weborworker.TJSOffscreenCanvasRenderingContext2D;
TJSHTMLOffscreenCanvasElement = weborworker.TJSHTMLOffscreenCanvas;
{ TJSHTMLIFrameElement } { TJSHTMLIFrameElement }
TJSHTMLIFrameElement = Class external name 'HTMLIFrameElement' (TJSHTMLElement) TJSHTMLIFrameElement = Class external name 'HTMLIFrameElement' (TJSHTMLElement)