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

* Complete TJSPath2D, add ellipse

Browse Source
This commit is contained in:
michael 2019-11-02 17:33:28 +00:00
parent 551b7e9911
commit 7d531e888c
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
packages/rtl/web.pas
View File

@ -2888,6 +2888,8 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
property Result : JSValue Read FResult; property Result : JSValue Read FResult;
end; end;
TCanvasCoordType = double; // Is in fact a number.
// Opaque objects // Opaque objects
TJSCanvasGradient = class external name 'CanvasGradient' (TJSObject) TJSCanvasGradient = class external name 'CanvasGradient' (TJSObject)
end; end;
@ -2896,6 +2898,22 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
end; end;
TJSPath2D = class external name 'Path2D' (TJSObject) TJSPath2D = class external name 'Path2D' (TJSObject)
Public
constructor new; overload;
constructor new(aPath : TJSPath2D); overload;
constructor new(SVGPath : String); overload;
Procedure addPath(aPath : TJSPath2D);
procedure arc(x,y, radius,startAngle,endAngle : TCanvasCoordType); overload;
procedure arc(x,y, radius,startAngle,endAngle : TCanvasCoordType; antiClockWise : boolean); overload;
procedure arcTo(x1,y1,x2,y2,radius : TCanvasCoordType); overload;
procedure bezierCurveTo(cp1x,cp1y,cp2x,cp2y,x,y : TCanvasCoordType); overload;
Procedure closePath;
procedure ellipse(x, y, radiusX, radiusY : TCanvasCoordType; rotation, startAngle, endAngle : Double); overload;
procedure ellipse(x, y, radiusX, radiusY : TCanvasCoordType; rotation, startAngle, endAngle : Double; anticlockwise : Boolean); overload;
Procedure lineTo(X,Y : TCanvasCoordType);
Procedure moveTo(X,Y : TCanvasCoordType);
procedure quadraticCurveTo(cpx,cpy,x,y : TCanvasCoordType);
procedure rect(x,y,awidth,aheight: TCanvasCoordType); overload;
end; end;
{ TJSImageData } { TJSImageData }
@ -2913,7 +2931,6 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
property width : Integer Read FWidth; property width : Integer Read FWidth;
end; end;
TCanvasCoordType = double; // Is in fact a number.
TJSTextMetrics = class external name 'TextMetrics' (TJSObject) TJSTextMetrics = class external name 'TextMetrics' (TJSObject)
width : TCanvasCoordType; width : TCanvasCoordType;
@ -2977,6 +2994,8 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
procedure drawImage(image : TJSObject; dx,dy : TCanvasCoordType); overload; procedure drawImage(image : TJSObject; dx,dy : TCanvasCoordType); overload;
procedure drawImage(image : TJSObject; dx,dy,dwidth,dheight : TCanvasCoordType); overload; procedure drawImage(image : TJSObject; dx,dy,dwidth,dheight : TCanvasCoordType); overload;
procedure drawImage(image : TJSObject; sx,sy,sWidth,sHeight,dx,dy,dwidth,dheight : TCanvasCoordType); overload; procedure drawImage(image : TJSObject; sx,sy,sWidth,sHeight,dx,dy,dwidth,dheight : TCanvasCoordType); overload;
procedure ellipse(x, y, radiusX, radiusY : TCanvasCoordType; rotation, startAngle, endAngle : Double); overload;
procedure ellipse(x, y, radiusX, radiusY : TCanvasCoordType; rotation, startAngle, endAngle : Double; anticlockwise : Boolean); overload;
procedure fill; overload; procedure fill; overload;
procedure fill(aRule : String); overload; procedure fill(aRule : String); overload;
procedure fill(aPath : TJSPath2D); overload; procedure fill(aPath : TJSPath2D); overload;