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.
|