RealICQClient/Interfaces/UIHandler.pas

unit UIHandler;

interface

uses
  InterfaceUI, mybean.core.objects;

type
  TUIHandler = class(TMyBeanInterfacedObject, IUIHandler)
  private
    FIViewManager: IViewManager;
    FTalkFormFactory: ITalkFormFactory;
  public
    constructor Create; override;
    destructor Destroy; override;

    procedure SetViewManager(AViewManager: IViewManager);
    procedure SetTalkFormFactory(ATalkFormFactory: ITalkFormFactory);
    function GetViewManager: IViewManager;
    function GetTalkFormFactory: ITalkFormFactory;

    property ViewManager: IViewManager read FIViewManager;
    property TalkFormFactory: ITalkFormFactory read FTalkFormFactory;
  end;

implementation

{ TUIHandler }

constructor TUIHandler.Create;
begin
  inherited;
end;

destructor TUIHandler.Destroy;
begin
  inherited;
end;

function TUIHandler.GetTalkFormFactory: ITalkFormFactory;
begin
  Result := FTalkFormFactory;
end;

function TUIHandler.GetViewManager: IViewManager;
begin
  Result := FIViewManager;
end;

procedure TUIHandler.SetTalkFormFactory(ATalkFormFactory: ITalkFormFactory);
begin
  FTalkFormFactory := ATalkFormFactory;
end;

procedure TUIHandler.SetViewManager(AViewManager: IViewManager);
begin
  FIViewManager := AViewManager;
end;

end.