uareg.pas

基于Midas 技术的多层应用开发包第二版（带开发文档）

unit UAReg;

interface
uses

  Classes,Forms,{$ifdef ver140}DesignIntf,DesignEditors,DesignWindows,{$else}
  DsgnIntf,DsgnWnds,{$endif}ComCtrls,
  UAClientDataSet,UAServiceAdapter,UAServiceClient,
  UAServiceObjectPool,uaSrvObj,UAPublic,UAUnits,uaSrvObjDesi,
  UASrvObjWizard,UAFieldsDesignerEditor,UASystem,UATransactionManager,
  UAWinSocket,UAErrorHandler,uaSrvObjMsgScheduler,UAThread,UADataNav,
  UATPDes;
  
type

  TUAFieldsDesignProperty = class(TClassProperty)
  public
    function GetValue: String; override;
    function GetAttributes: TPropertyAttributes; override;
    procedure Edit; override;
  end;


procedure Register;


implementation
{$R UAWizardGlyphs.res}

uses
{$ifndef LINUX}
   Dialogs,
{$else}
   QForms,
   QDialogs,
{$endif}
   DB,
   Toolsapi;

procedure Register;
begin

  RegisterComponents('Universal Agent',[TUAClientDataSet,TUAServiceAdapter,TUAServiceClient,TUADataNav]);
  // Register wizards.
  RegisterPackageWizard(TUASrvObjWizard.Create);
  RegisterPropertyEditor(TypeInfo(TUAFieldsDesigner), TUAClientDataSet, 'FieldsDesigner', TUAFieldsDesignProperty);

end;


{ TUAFieldsDesignProperty }

procedure TUAFieldsDesignProperty.Edit;
var
  Component: TPersistent;
begin
  Component := GetComponent(0);
  if Component is TUAClientDataSet then
    ShowUAFieldsDesigner(Designer, TUAClientDataSet(Component).FieldsDesigner)

end;

function TUAFieldsDesignProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paSubProperties, paDialog];

end;

function TUAFieldsDesignProperty.GetValue: String;
begin
  Result := '(Fields Designer)';
end;

end.