runfunssreg.pas

来自「Suite of components to add scripting cap」· PAS 代码 · 共 33 行

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.