RealICQClient/Interfaces/InterfaceUI.pas

unit InterfaceUI;

interface

uses
  Graphics, superobject;

type
  TTalkingCategory = (tcNormal, tcTeam);

  IChangeUIColor = interface
    ['{CB440044-CA3F-42AD-B699-AA4A45501039}']
    procedure ChangeUIColor(AColor: TColor);
  end;

  IUIForm = interface
    ['{55B05A36-58CC-4591-8A12-F60364E340E7}']
    procedure Show;
    procedure Hide;
    procedure SetFormInfo(AJson: WideString); overload;
    procedure SetFormInfo(AJo: ISuperObject); overload;
    function GetAutoFree: Boolean;
    procedure SetAutoFree(const Value: Boolean);
    function GetIdentify: Cardinal;
  end;

  IUIIDForm = interface(IUIForm)
    ['{16AD8F78-9E1B-430C-A4A0-0BE79FC7FF6E}']
    function GetFormID: string;
    procedure SetFormID(const Value: string);
  end;

  IUIUserCardView = interface(IUIForm)
    ['{6060B214-C93D-4762-8E9A-F49AA9318D2A}']
    procedure SetTargetTop(const Value: Integer);
    procedure TriggerHide;
    procedure CloseTrigger;
  end;

  IUITalkForm = interface(IUIForm)
    ['{12DB6762-C1AA-42FD-B3F5-B593A86C1250}']
    function GetFormID: string;
  end;

  TUIMainViewState = (mvsLogin, mvsLogining, mvsLogined);

  IUIMainForm = interface(IUIForm)
    ['{302B6A23-1093-4759-93E0-82202A552210}']
    function SetViewState(AState: TUIMainViewState): Boolean;
  end;

  ITalkFormFactory = interface
    ['{E61E858E-E4FE-40FE-BB55-E45407C7C5EF}']
    function GetTalkForm(AFormID: string; ACategory: TTalkingCategory): IUITalkForm;
  end;

  IViewManager = interface
    ['{0E08CB03-A2F6-4549-89C7-98A69337EF6C}']
    procedure GetViewByName(AFormName: string; const IID: TGUID; out AForm);
    procedure GetSingleViewByName(AFormName: string; const IID: TGUID; out AForm);
    procedure GetIDViewByName(AFormName, AFormID: string; const IID: TGUID; out AForm);
    procedure FreeIDViewByName(AFormName, AFormID: string);

    procedure GetView(AClassName: string; const IID: TGUID; out AForm);
    procedure GetSingleView(AClassName: string; const IID: TGUID; out AForm);
    procedure GetIDView(AClassName, AFormID: string; const IID: TGUID; out AForm);
    procedure FreeIDView(AClassName, AFormID: string);
  end;

  IUIHandler = interface
    ['{D534DA92-0417-4305-B9EE-FCC34C1A87CA}']
    procedure SetViewManager(AViewManager: IViewManager);
    procedure SetTalkFormFactory(ATalkFormFactory: ITalkFormFactory);
    function GetViewManager: IViewManager;
    function GetTalkFormFactory: ITalkFormFactory;
  end;

  IMainUIHandler = interface(IUIHandler)
  ['{037185BE-4300-4D8E-B85D-864AA086B29F}']
    function GetUserCardView(ALoginName: string = ''): IUIUserCardView;
    function GetUserCardDetailView(ALoginName: string; Show: Boolean = True): IUIForm;
  end;

implementation

end.