三方控件,通过使用IMPORT TOOL FOR SCRIPTER生成AP_XXX.PAS文件。在下面的例子中,增加对TPrintDBGridEh的支持。
unit myScript;
{$DEFINE PRINTDBGRIDEH}
{$DEFINE XPMAN}
interface
implementation
uses ap_DB, ap_DBGrids, ap_Controls, ap_Forms, ap_Windows, ap_SysUtils,
ap_Messages, ap_Menus, ap_Classes, ap_Variants, ap_Graphics,
ap_Dialogs, ap_ExtCtrls, ap_DBCtrls, ap_Buttons, ap_Grids,
{$IFDEF PRINTDBGRIDEH}
ap_PrnDbgeh,
{$ENDIF}
ap_ADODB,
{$IFDEF XPMAN}
ap_XPMan,
{$ENDIF}
atScript;
initialization
RegisterScripterLibrary(TatDBLibrary);
RegisterScripterLibrary(TatDBGridsLibrary);
RegisterScripterLibrary(TatControlsLibrary);
RegisterScripterLibrary(TatFormsLibrary);
RegisterScripterLibrary(TatWindowsLibrary);
RegisterScripterLibrary(TatSysUtilsLibrary);
RegisterScripterLibrary(TatMenusLibrary);
RegisterScripterLibrary(TatMessagesLibrary);
RegisterScripterLibrary(TatClassesLibrary);
RegisterScripterLibrary(TatVariantsLibrary);
RegisterScripterLibrary(TatGraphicsLibrary);
RegisterScripterLibrary(TatDialogsLibrary);
RegisterScripterLibrary(TatExtCtrlsLibrary);
RegisterScripterLibrary(TatDBCtrlsLibrary);
RegisterScripterLibrary(TatButtonsLibrary);
RegisterScripterLibrary(TatGridsLibrary);
{$IFDEF PRINTDBGRIDEH}
RegisterScripterLibrary(TatPrnDbgehLibrary);
{$ENDIF}
RegisterScripterLibrary(TatADODBLibrary);
{$IFDEF XPMAN}
RegisterScripterLibrary(TatXPManLibrary);
{$ENDIF}
end.