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

* Add Screen definition

Browse Source
This commit is contained in:
michael 2018-10-31 11:53:09 +00:00
parent 61b2aeb3fe
commit e319c9723c
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/rtl/web.pas
View File

@ -1562,7 +1562,24 @@ Type
TJSPerformance = class external name 'Performance' (TJSObject);
TJSScreen = class external name 'Screen' (TJSObject);
TJSScreen = class external name 'Screen' (TJSObject)
private
FavailHeight: Integer; external name 'availHeight';
FavailWidth: Integer; external name 'availWidth';
FcolorDepth: Integer; external name 'colorDepth';
FPixelDepth: Integer; external name 'pixelDepth';
Fheight: Integer; external name 'height';
Fwidth: Integer; external name 'width';
public
{ Properties declarations }
property availHeight: Integer read FavailHeight;
property availWidth: Integer read FavailWidth;
property colorDepth: Integer read FcolorDepth;
property pixelDepth: Integer read FPixelDepth;
property height: Integer read Fheight;
property width: Integer read Fwidth;
end;
TJSURL = class external name 'URL' (TJSObject);