david
397cad2594
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@2 b6239004-a887-0f4b-9937-50029ccdca16
52 lines
1.4 KiB
ObjectPascal
52 lines
1.4 KiB
ObjectPascal
unit RemObjects_DataSnap_Reg;
|
|
|
|
{----------------------------------------------------------------------------}
|
|
{ RemObjects SDK Library - CodeGen
|
|
{
|
|
{ compiler: Delphi 5 and up, Kylix 2 and up
|
|
{ platform: Win32, Linux
|
|
{
|
|
{ (c)opyright RemObjects Software. all rights reserved.
|
|
{
|
|
{ Using this code requires a valid license of the RemObjects SDK
|
|
{ which can be obtained at http://www.remobjects.com.
|
|
{----------------------------------------------------------------------------}
|
|
|
|
{$IFDEF LINUX}
|
|
{$I ../RemObjects.inc}
|
|
{$ELSE}
|
|
{$I ..\RemObjects.inc}
|
|
{$ENDIF LINUX}
|
|
|
|
{$R RemObjects_DataSnap_Glyphs.res}
|
|
|
|
interface
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
uses Classes, uROClasses,
|
|
{$IFNDEF DELPHI5}DesignIntf, DesignEditors, DMForm, {$ELSE} DsgnIntf, DmDesigner, {$ENDIF}
|
|
uRORes,
|
|
uRODataSnapModule,
|
|
uRODataSnapConnection, uRODataSnapProviderPublisher;
|
|
|
|
procedure Register;
|
|
begin
|
|
RegisterComponents(str_ProductName,[TRODataSnapConnection,
|
|
TRODataSnapProviderPublisher]);
|
|
|
|
{ if we don't register this, we get a property editor registered for
|
|
TCustomRemoteServer that's useless to us. }
|
|
RegisterPropertyEditor(TypeInfo(string), TRODataSnapConnection, 'ServerName', TStringProperty);
|
|
|
|
{$IFDEF DELPHI5}
|
|
RegisterCustomModule(TRODataSnapModule,TDataModuleDesignerCustomModule);
|
|
{$ELSE}
|
|
RegisterCustomModule(TRODataSnapModule,TCustomModule);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
end.
|