paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 00:47: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);
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;
Const

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

@ -441,7 +441,11 @@ function UnionRectF(out Rect: TRectF; const R1, R2: TRectF): Boolean;
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses System.Math;
{$ELSE FPC_DOTTEDUNITS}
uses math;
{$ENDIF FPC_DOTTEDUNITS}
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;
TJSRequest = BrowserApi.WebOrWorker.TJSRequest;
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}
TJSServiceWorker = weborworker.TJSServiceWorker;
TJSServiceWorkerRegistration = weborworker.TJSServiceWorkerRegistration;
@ -197,6 +204,13 @@ Type
TJSRequest = webOrworker.TJSRequest;
TJSAbortController = webOrworker.TJSAbortController;
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}
TJSMessagePortArray = TJSMessagePortDynArray;
TEventListenerEvent = TJSEvent;
@ -2547,11 +2561,6 @@ Type
end;
TCanvasCoordType = weborworker.TCanvasCoordType;
TJSCanvasGradient = weborworker.TJSCanvasGradient;
TJSCanvasPattern = weborworker.TJSCanvasPattern;
TJSPath2D = weborworker.TJSPath2D;
TJSCanvasRenderingContext2D = class external name 'CanvasRenderingContext2D' (TJSBaseCanvasRenderingContext2D)
private
FCanvas: TJSHTMLCanvasElement; external name 'canvas';
@ -2562,12 +2571,6 @@ Type
end;
TJSImageBitmap = weborworker.TJSImageBitmap;
TJSOffscreenCanvasRenderingContext2D = weborworker.TJSOffscreenCanvasRenderingContext2D;
TJSHTMLOffscreenCanvasElement = weborworker.TJSHTMLOffscreenCanvas;
{ TJSHTMLIFrameElement }
TJSHTMLIFrameElement = Class external name 'HTMLIFrameElement' (TJSHTMLElement)