fs_ireg.pas

来自「这个是功能强大的报表软件」· PAS 代码 · 共 74 行

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

unit fs_ireg;

{$i fs.inc}

interface


procedure Register;

implementation
uses
  Classes
{$IFNDEF FPC}
  {$IFNDEF Delphi6}
  , DsgnIntf
  {$ELSE}
  , DesignIntf
  {$ENDIF}
{$ELSE}
  ,PropEdits
  ,LazarusPackageIntf
  ,LResources
{$ENDIF}
, fs_iinterpreter, fs_iclassesrtti, fs_igraphicsrtti, fs_iformsrtti,
  fs_iextctrlsrtti, fs_idialogsrtti, fs_iinirtti, fs_imenusrtti,
  fs_ipascal, fs_icpp, fs_ijs, fs_ibasic, fs_tree
{$IFNDEF CLX}
, fs_synmemo
{$ENDIF}
;

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

{$ifdef FPC}
procedure RegisterUnitfs_ireg;
{$else}
procedure Register;
{$endif}
begin
  RegisterComponents('FastScript', 
    [TfsScript, TfsPascal, TfsCPP, TfsJScript, TfsBasic,
    TfsClassesRTTI, TfsGraphicsRTTI, TfsFormsRTTI, TfsExtCtrlsRTTI, 
    TfsDialogsRTTI, TfsMenusRTTI, TfsIniRTTI,
    TfsTree
{$IFNDEF CLX}
  , TfsSyntaxMemo
{$ENDIF}
    ]);
end;

{$ifdef FPC}
procedure Register;
begin
  RegisterUnit('fs_ireg', @RegisterUnitfs_ireg);
end;
{$endif}

initialization
{$IFDEF FPC}
  {$INCLUDE fs_ireg.lrs}
{$ENDIF}
end.