var
  PageIndex:integer;

procedure ShowPage(aIndex:integer);
begin
  if aIndex=PageIndex then exit;
  BeginUpdate;
  case aIndex of
    1:
      begin
        lblTitle.caption:='欢迎使用八戒桌面小工具';
        lblDesc.caption:='感谢您安装八戒桌面小工具(DeskWidget)。'#13#10#13#10'在接下来的几分钟内，我们将告诉您如何快速学会使用八戒桌面小工具的诀窍以及一些您需要知道的重要信息。';
      end;
    2:
      begin
        lblTitle.left:=120;
        lblDesc.width:=330;
        lblDesc.left:=lblTitle.left;
        imgLogo.width:=40;
        imgLogo.Height:=40;
        imgLogo.left:=20;
        imgLogo.Top:=270;
        imgbg.NeedRefresh:=true;
        lblTitle.caption:='我们将为您安装了一些Widget工具';
        lblDesc.caption:='我们将为您安装了一些Widget工具，希望这些工具会对您有所帮助。'#13#10#13#10'您可以通过点击系统托盘或边栏上的“+”号按钮打开小工具列表，并通过双击或拖拽的方式打开这些小工具。'#13#10#13#10'强烈建议您安装“微软雅黑”字体，以得到最佳的视觉效果!';
      end;
    3:
      begin
        ShowWidgetToDock('Vista Clock');
        ShowWidgetToDock('vista weather');
        ShowWidgetToDock('Search');
        ShowWidgetToDock('8jie CPU Meter');
        ShowWidgetToDock('8jie HDD Multi');
        ShowWidgetToDock('8jie Stocks');
        ShowWidget('calendar desk');
        lblTitle.caption:='丰富的桌面';
        lblDesc.caption:='哇！您看到了吗？我们刚刚打开了一些Widget工具，让您马上体验它们的奇妙之处。'#13#10#13#10'您可以随意拖动它们，放到您喜欢的桌面位置或者边栏中。如果您想隐藏、获取更多信息或者进行设置，只需用鼠标右键点击它就可以了。';
      end;
    4:
      begin
        lblTitle.caption:='爱上DeskWidget!';
        lblDesc.caption:='八戒桌面小工具(DeskWidget)是不是你要找的呢？。'#13#10#13#10'我们还有更多的Widget哦！八戒桌面引擎包含了很多免费的Widget，让您的桌面不再单调。'#13#10#13#10'点击下面的按钮，查看更多的Widget。';
      end;
    5:
      begin
        img.left:=350;
        img.top:=145;
        img.FileName:=WidgetPath+'TrayMenu.png';
        img.visible:=true;
        lblTitle.caption:='DeskWidget托盘菜单';
        lblDesc.width:=240;
        lblDesc.caption:='您注意到右下角出现了一个新的图标了么？这就是好用的八戒小工具系统托盘图标菜单。'#13#10#13#10'使用这个菜单，您可以快速的打开Widget工具，对全部或某个工具进行设置，也可以打开或者隐藏边栏。';
      end;
    6:
      begin
        img.visible:=false;
        lblTitle.caption:='欢迎下载Widget工具';
        lblDesc.width:=330;
        lblDesc.caption:='您想要更多的Widget工具吗？没问题，我们有很多。'#13#10#13#10'欢迎登录http://www.8-jie.com亲自去看看吧！'#13#10#13#10'再次感谢您使用八戒桌面小工具(DeskWidget)。'#13#10'现在就开始享受它所带来的乐趣吧！';
        btnNext.caption:='点击这里关闭';
      end;
  end;
  EndUpdate;
  PageIndex:=aIndex;
end;

procedure NextPage;
begin
  if PageIndex<6 then
    ShowPage(PageIndex+1)
  else
    CloseWidget(WidgetName);
end;

//--- Widget初始化事件，当打开Widget时会触发此事件 ---
procedure OnWidgetInit;
begin
  BeginUpdate;
  btnNext.FileName:=WidgetPath+'btn.png';
  ShowPage(1);
  EndUpdate;
  Widget.left:=(screen.Width-Widget.Width) div 2;
  Widget.top:=(screen.Height-Widget.Height) div 2;
  
end;
