Browse Source

* Add Screen definition

michael 6 years ago
parent
commit
e319c9723c
1 changed files with 18 additions and 1 deletions
  1. 18 1
      packages/rtl/web.pas

+ 18 - 1
packages/rtl/web.pas

@@ -1562,7 +1562,24 @@ Type
 
 
   TJSPerformance = class external name 'Performance' (TJSObject);
   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);
   TJSURL = class external name 'URL' (TJSObject);