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.