如何在 Inno Setup 中为控件滚动设置动画

How to animate a control roll out in Inno Setup

我想为我的安装程序中的控件滚动设置动画。

您可以观看此视频。


您可以使用计时器来为控件设置动画。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
[Code]

function SetTimer(hWnd: longword; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord):
  LongWord; external '[email protected] stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord;
  external '[email protected] stdcall';

var
  MainPanelAnimated: Boolean;
  AnimationTimer: LongWord;

procedure AnimationTimerProc(
  H: LongWord; Msg: LongWord; IdEvent: LongWord; Time: LongWord);
var
  L: Integer;
begin
  L := WizardForm.MainPanel.Left + ScaleX(5);
  if L > 0 then
  begin
    L := 0;
    KillTimer(0, AnimationTimer);
  end;
  WizardForm.MainPanel.Left := L;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if WizardForm.OuterNotebook.ActivePage = WizardForm.InnerPage then
  begin
    if not MainPanelAnimated then
    begin
      AnimationTimer := SetTimer(0, 0, 5, CreateCallback(@AnimationTimerProc));
      WizardForm.MainPanel.Left := -WizardForm.MainPanel.Width;
      MainPanelAnimated := True;
    end;
  end;
end;

对于 CreateCallback 函数,你需要 Inno Setup 6。如果你被 Inno Setup 5 卡住,你可以使用 InnoTools InnoCallback 库中的 WrapCallback 函数。

enter

(动画实际上比图片显示的更流畅)

对于从右到左的动画,请参阅 Inno 设置 - 在确定的页面中动画控制从右滚出。