unit CICButton;

interface

uses
  System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls, JS, Web,
  WEBLib.Controls,WEBLib.StdCtrls;

type
{$IFNDEF Pas2js}
  [ComponentPlatforms(TMSWebPlatform)]
{$ENDIF}
  TCICWebButton = class(TWebButton)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;

{$IFNDEF Pas2js}
procedure Register;
{$ENDIF}

implementation

{$IFNDEF Pas2js}
procedure Register;
begin
  RegisterComponents('Samples-Stratsims', [TCICWebButton]);
end;
{$ENDIF}

end.