RealICQClient/Client/Views/EmbeddedView.pas

unit EmbeddedView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cefvcl, InterfaceUI, RealICQSkinFrm, BaseChromeView;

type
  TEmbeddedViewForm = class(TBaseChromeViewForm)
  private
    FAutoFree: Boolean;
  public
    destructor Destroy; override;
    property AutoFree: Boolean read FAutoFree write FAutoFree;
  end;

implementation

uses
  superobject, ViewManager;

{$R *.dfm}

{ TEmbeddedViewForm }

//procedure TEmbeddedViewForm.CMRelease(var Message: TMessage);
//begin
//  if FAutoFree then
//  begin
//    TViewManager.Current.FreeView(Self);
//  end;
//end;

destructor TEmbeddedViewForm.Destroy;
begin

  inherited;
end;

initialization
  TViewManager.Current.RegisterClass(TEmbeddedViewForm);

end.