RealICQClient/Client/Views/GuideView.pas

unit GuideView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseChromeView, cefvcl, GIFImage, ExtCtrls, RealICQRoundBorderPanel,
  StdCtrls, Buttons, RealICQButton;

type
  TGuideViewForm = class(TBaseChromeViewForm)
    rndContent: TRealICQRoundBorderPanel;
    pnlClient: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure ChangeUIColor(AColor: TColor); override;
  end;

var
  AGuideViewForm: TGuideViewForm;

implementation

uses
  ConditionConfig;

{$R *.dfm}

procedure TGuideViewForm.ChangeUIColor(AColor: TColor);
begin
  inherited;
  rndContent.ChangeUIColor(AColor);
  pnlClient.Color := FormColor;
end;

procedure TGuideViewForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  if TCustomerConfig.GetConfig.ShowGuideView then
    TCustomerConfig.GetConfig.ShowGuideView := not MessageBox(Self.Handle, PChar('下次登录不再显示？'), PChar('引导页显示设置'), MB_YESNO or MB_ICONQUESTION or MB_SYSTEMMODAL) = IDYES;
end;

procedure TGuideViewForm.FormCreate(Sender: TObject);
begin
  inherited;
//  Chrome.Parent := rndContent;
  Chrome.BringToFront;
  ChangeUIColor($EADEBA);
  rndContent.Left := 7;
  rndContent.Top := 7;
  rndContent.Width := ClientWidth - 14;
  rndContent.Height := ClientHeight - 14;
  AutoFree := True;
end;

end.