34 lines
1.3 KiB
ObjectPascal
34 lines
1.3 KiB
ObjectPascal
unit uROIdeOnly;
|
|
|
|
{----------------------------------------------------------------------------}
|
|
{ RemObjects SDK Library - Core Library }
|
|
{ }
|
|
{ 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. }
|
|
{----------------------------------------------------------------------------}
|
|
|
|
{$I RemObjects.inc}
|
|
|
|
interface
|
|
|
|
implementation
|
|
{$IFNDEF FPC}
|
|
{$IFDEF WINDOWS}
|
|
uses Forms, Dialogs;
|
|
|
|
initialization
|
|
if (not Assigned(Application)) or
|
|
(not Assigned(Application.MainForm)) or
|
|
(Application.MainForm.ClassName <> 'TAppBuilder') then begin
|
|
ShowMessage('The RemObjects SDK Packages may only be used at designtime.');
|
|
Application.Terminate;
|
|
end;
|
|
{$ENDIF WINDOWS}
|
|
{$ENDIF FPC}
|
|
end.
|