unit uGUIRegister;

interface

procedure Register;

implementation

uses
   Windows, DesignIntf, DesignEditors,
   uCustomEditor, uCustomView;

procedure Register;
var
  delphivclide: THandle;
  TFrameModule: TCustomModuleClass;
begin
  // Registrar la vista
  delphivclide := GetModuleHandle('delphivclide100.bpl');
  if delphivclide <> 0 then
  begin
    TFrameModule := GetProcAddress(delphivclide, '@Vclformcontainer@TFrameModule@');
    if Assigned(TFrameModule) then
      RegisterCustomModule(TCustomView, TFrameModule);
  end;

  // Registrar el editor
  RegisterCustomModule(TCustomEditor, TCustomModule);
end;

end.