Browse Source

* Correct HTMLImageElement, space key

michael 6 years ago
parent
commit
f76abc2f8d
1 changed files with 3 additions and 2 deletions
  1. 3 2
      packages/rtl/web.pas

+ 3 - 2
packages/rtl/web.pas

@@ -2322,7 +2322,7 @@ Type
 
 
   { TJSHTMLImageElement }
   { TJSHTMLImageElement }
 
 
-  TJSHTMLImageElement = class external name 'HTMLImageElement' (TJSHTMLElement)
+  TJSHTMLImageElement = class external name 'Image' (TJSHTMLElement)
   Private
   Private
     FComplete: boolean; external name 'complete';
     FComplete: boolean; external name 'complete';
     FCurrentSrc: String; external name 'currentSrc';
     FCurrentSrc: String; external name 'currentSrc';
@@ -2331,6 +2331,7 @@ Type
     FX: NativeInt; external name 'x';
     FX: NativeInt; external name 'x';
     FY: NativeInt; external name 'y';
     FY: NativeInt; external name 'y';
   Public
   Public
+    constructor New(x,y : Cardinal);
     alt: String;
     alt: String;
     crossOrigin: String;
     crossOrigin: String;
     decoding: String;
     decoding: String;
@@ -3026,7 +3027,7 @@ Type
     SymbolLock = 'SymbolLock';
     SymbolLock = 'SymbolLock';
     Enter = 'Enter';
     Enter = 'Enter';
     Tab = 'Tab';
     Tab = 'Tab';
-    Space = ' ';
+    Space = 'Space';
     ArrowDown = 'ArrowDown';
     ArrowDown = 'ArrowDown';
     ArrowLeft = 'ArrowLeft';
     ArrowLeft = 'ArrowLeft';
     ArrowRight = 'ArrowRight';
     ArrowRight = 'ArrowRight';