zdbasereg.~pas

来自「控件名称：WINZEOS.ZIP 2002年08月03日 作者：Capell」· ~PAS 代码 · 共 48 行

{********************************************************}
{                                                        }
{                 Zeos Database Objects                  }
{            Database components registration            }
{                                                        }
{       Copyright (c) 1999-2001 Sergey Seroukhov         }
{    Copyright (c) 1999-2001 Zeos Development Group      }
{                                                        }
{********************************************************}

unit ZDBaseReg;

interface

{$IFNDEF LINUX}
{$INCLUDE ..\Zeos.inc}
{$ELSE}
{$INCLUDE ../Zeos.inc}
{$ENDIF}

procedure Register;

implementation

uses Classes, ZTransact, ZUpdateSql, ZQuery
{$IFDEF WITH_PROPEDIT},ZProperty, ZLinkProp,
{$IFNDEF VERCLX}DsgnIntf{$ELSE}DesignIntf{$ENDIF}
{$ENDIF};

{ Register component in a component pallette }
procedure Register;
begin
  RegisterComponents(ZEOS_DB_PALETTE, [TZBatchSql]);
  RegisterComponents(ZEOS_DB_PALETTE, [TZMonitor]);
  RegisterComponents(ZEOS_DB_PALETTE, [TZUpdateSql]);

{$IFDEF WITH_PROPEDIT}
  RegisterPropertyEditor(TypeInfo(string), TZDataset, 'IndexFieldNames',
    TZIndexFieldNamesProperty);
  RegisterPropertyEditor(TypeInfo(string), TZDataset, 'IndexName',
    TZIndexNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TZDataset, 'LinkFields',
    TZLinkFieldsProperty);
{$ENDIF}
end;

end.