Inno Setup - 在确定页面中从右侧动画控件

Question

我正在尝试使用此代码（使用InnoCallback DLL库）：

[Code]

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);
var
  HoverTimerCallback: LongWord;
begin
  if WizardForm.OuterNotebook.ActivePage = WizardForm.InnerPage then
  begin
    if not MainPanelAnimated then
    begin
      HoverTimerCallback := WrapTimerProc(@AnimationTimerProc, 4);
      AnimationTimer := SetTimer(0, 0, 5, HoverTimerCallback);
      WizardForm.MainPanel.Left := -WizardForm.MainPanel.Width;
      MainPanelAnimated := True;
    end;
  end;
end;

来自How to animate a control roll out in Inno Setup（Martin Prikryl的答案），以显示相同的效果，但是从右到左，在确定的设置页面中。怎么做？

Answer 1

使用Using sw = System.IO.File.AppendText(file) sw.WriteLine(inputCode) sw.WriteLine(inputDescription) sw.WriteLine(inputPrice) End Using 中的Console.Write("Enter the product code: ") Dim userInput as String = Console.ReadLine() If Not Int32.TryParse(userInput, inputCode) Then Console.WriteLine("Please type an integer number") Application.Exit() End If 选择要显示动画的页面。

CurPageID

代码使用InnoTools InnoCallback DLL library。