runfunssreg.pas

Suite of components to add scripting capabilities to your applications, including Pascal & Basic scr

unit RunFunSSReg;

interface

{$IFDEF VER140}
{$DEFINE NEWDSGNINTF}
{$ENDIF}
{$IFDEF VER150}
{$DEFINE NEWDSGNINTF}
{$ENDIF}

uses
  {$IFDEF NEWDSGNINTF}
  DesignIntf, DesignEditors,
  {$ELSE}
  DsgnIntf,
  {$ENDIF}
  Classes, RunFusSS, OIDsgn;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Scripter Studio',[TSSInspector, TSSEventSaver]);
  RegisterPropertyEditor(TypeInfo(TComponent), TSSInspector, 'Root', TOIComponentProperty);
  RegisterPropertyEditor(TypeInfo(TComponent), TSSInspector, 'Instance', TOIComponentProperty);
  RegisterPropertyEditor(TypeInfo(TComponent), TSSInspector, 'DefaultInstance', TOIComponentProperty);
end;

end.