Rectangle

rectangle.pas

type
  TRectangle = class(TNativeObject)
    class procedure InitializeInstance(AInstance: JsValueRef; Args: PJsValueRef; ArgCount: Word); override;
    class function InitializePrototype(AConstructor: JsValueRef): JsValueRef; override;
  end;

class procedure TRectangle.InitializeInstance(AInstance: JsValueRef; Args: PJsValueRef; ArgCount: Word);
var
  ArgsArray: PJsValueRefArray absolute Args;
  ShapeCtr: JsValueRef;
begin
  // Shape.call(x, y);
  ShapeCtr := JsGetProperty(JsGlobal, 'Shape');
  JsCallFunction(ShapeCtr, [AInstance, ArgsArray^[0], ArgsArray^[1]]);

  // this.w = w;
  JsSetProperty(AInstance, UnicodeString('w'), ArgsArray^[2]);
  // this.h = h;
  JsSetProperty(AInstance, UnicodeString('h'), ArgsArray^[3]);
end;

class function TRectangle.InitializePrototype(AConstructor: JsValueRef): JsValueRef;
var
  ShapeCtr, ShapePrototype: JsValueRef;
begin
  ShapeCtr := JsGetProperty(JsGlobal, 'Shape');
  ShapePrototype := JsGetProperty(ShapeCtr, 'prototype');
  // Rectangle.prototype = Object.create(Shape.prototype);
  Result := JsCreateObject(ShapePrototype);
end;