
{******************************************}
{                                          }
{             FastScript v1.9              }
{            Registration unit             }
{                                          }
{  (c) 2003-2007 by Alexander Tzyganenko,  }
{             Fast Reports Inc             }
{                                          }
{******************************************}

unit fs_idbreg;

{$i fs.inc}

interface


procedure Register;

implementation

uses
  Classes
{$IFNDEF Delphi6}
, DsgnIntf
{$ELSE}
, DesignIntf
{$ENDIF}
{$IFDEF DELPHI16}
, Controls
{$ENDIF}
, fs_idbrtti, fs_idbctrlsrtti;

{-----------------------------------------------------------------------}

procedure Register;
begin
{$IFDEF DELPHI16}
  GroupDescendentsWith(TfsDBRTTI, TControl);
  GroupDescendentsWith(TfsDBCtrlsRTTI, TControl);
{$ENDIF}
  RegisterComponents('FastScript', [TfsDBRTTI, TfsDBCtrlsRTTI]);
end;

end.
