RealICQClient/Client/Views/TalkViews/UITalkFormBase.pas

unit UITalkFormBase;

interface

uses
  Classes, Graphics, RealICQModel, InterfaceUI;

type
  PImageInfo = ^TImageInfo;
  TImageInfo = record
    Name: string;
    iFlag: Integer;
  end;
  
  TUITalkFormBase = class(TInterfacedObject, IUITalkForm)
  private
    FImages: TList;
    FLastSendInputtingMessageTicket: Cardinal;
    FAutoFree:Boolean;
    function GetMe: TRealICQUser;
  protected
    FCategory: TTalkingCategory;
  public
    constructor Create(AOwner: TComponent; AID: string); virtual;
    destructor Destroy; override;
    procedure InsertImage(AFileName:string; AFlag:Integer);
    procedure ClearImages;
    procedure SetFormInfo(AJson: WideString);
    function GetIdentify: Cardinal;
    function GetAutoFree: Boolean;
    procedure SetAutoFree(const Value: Boolean);

    procedure SendMessage(AMsg, AFont: string; AFaces: TStringList); virtual;
    procedure OnRecvMessage(AMsg: string); virtual;
    procedure SendInputing; virtual;
    procedure ChangeUIColor(AColor: TColor); virtual;
    procedure Show; virtual;
    procedure Hide; virtual;
    function GetFormID: string; virtual;

    property Category: TTalkingCategory read FCategory;
    property Me: TRealICQUser read GetMe;
  end;

implementation

uses
  SysUtils, CurrentContentService;

{ TUITalkFormBase }

procedure TUITalkFormBase.ChangeUIColor(AColor: TColor);
begin

end;

procedure TUITalkFormBase.ClearImages;
begin
  while(FImages.Count > 0) do
  begin
    dispose(FImages.First);
    FImages.Delete(0);
  end;
end;

constructor TUITalkFormBase.Create(AOwner: TComponent; AID: string); 
begin
  FImages := TList.Create;
end;

destructor TUITalkFormBase.Destroy;
begin
  ClearImages;
  FreeAndNil(FImages);
  inherited;
end;

function TUITalkFormBase.GetAutoFree: Boolean;
begin
  Result := FAutoFree;
end;

function TUITalkFormBase.GetFormID: string;
begin

end;

function TUITalkFormBase.GetIdentify: Cardinal;
begin

end;

function TUITalkFormBase.GetMe: TRealICQUser;
begin
  Result := TCurrentContentService.GetService.Me;
end;

procedure TUITalkFormBase.Hide;
begin

end;

procedure TUITalkFormBase.InsertImage(AFileName: string; AFlag: Integer);
var
  tempImgInfo:PImageInfo;
begin
  tempImgInfo := new(PImageInfo);
  tempImgInfo.Name := AFileName;
  tempImgInfo.iFlag := AFlag;
  FImages.Add(tempImgInfo);
end;

procedure TUITalkFormBase.OnRecvMessage(AMsg: string);
begin

end;

procedure TUITalkFormBase.SendInputing;
begin

end;

procedure TUITalkFormBase.SendMessage(AMsg, AFont: string; AFaces: TStringList);
begin
  
end;

procedure TUITalkFormBase.SetAutoFree(const Value: Boolean);
begin
  FAutoFree := Value;
end;

procedure TUITalkFormBase.SetFormInfo(AJson: WideString);
begin

end;

procedure TUITalkFormBase.Show;
begin

end;

end.