0
A
回答
0
可以使用一个计时器来使用动画InnoTools InnoCallback DLL library
[Files]
Source: InnoCallback.dll; Flags: dontcopy
[Code]
type
TTimerProc = procedure(H: LongWord; Msg: LongWord; IdEvent: LongWord; Time: LongWord);
function SetTimer(hWnd: longword; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord):
LongWord; external '[email protected] stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord;
external '[email protected] stdcall';
function WrapTimerProc(Callback: TTimerProc; ParamCount: Integer): LongWord;
external '[email protected]:innocallback.dll 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);
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;
的控制(动画实际上比图像显示更加光滑)
对于从右到左侧动画,请参见Inno Setup - Animate a control roll out from right in a determinate page。
+0
如何让先生更快? –
+0
只需减少'SetTimer'调用的时间间隔和/或增加'ScaleX'调用中的步骤。 –
+0
你让它工作吗? –
相关问题
- 1. Inno Setup [设置] 64bit条件
- 2. 仅在UIBarButtonItem中设置动画效果
- 3. 在Raphael.js中设置动画效果
- 4. 如何在Inno-Setup中设置卸载退出代码?
- 5. 如何为以前的Inno Setup安装自动设置DefaultDirName?
- 6. WizardImageFile在Inno Setup中无效5.5.8
- 7. 如何中止Inno Setup的
- 8. 如何在javascript/css中为日志流设置动画效果
- 9. 如何在NSImageView中为内容切换设置动画效果?
- 10. 如何在UIView中设置动画效果
- 11. 如何在UITableView中为UIButton设置动画效果?
- 12. 如何在Android中设置两个硬币的动画效果
- 13. 如何在iPhone上手动设置动画效果?
- 14. Inno Setup的Unistall图标默认设置
- 15. Inno Setup如何更新多个位置?
- 16. Inno Setup:如何在InitializeWizard中使用WizardForm.TasksList.Items?
- 17. 如何在“使用CSS或jQuery之后”设置动画效果
- 18. 如何为SVG中的一组对象设置动画效果?
- 19. 如何使用jQuery为背景位置设置动画效果?
- 20. 如何在HTML5画布中为多边形大小设置动画效果?
- 21. Inno Setup:如何查看Inno Setup Preprocessor的输出(翻译)?
- 22. 如何移动位图并为其设置动画效果
- 23. Inno Setup GetExceptionMessage在Inno Setup脚本中返回空消息
- 24. Inno Setup:如何设置Orger向导页面?
- 25. Inno Setup的:在TInputQueryWizardPage
- 26. Inno Setup在[代码]
- 27. 在Inno Setup中执行UninstallString
- 28. 在android中重置动画效果
- 29. 在Inno Setup中设置“RUNASADMIN”应用程序兼容性标志
- 30. 在Inno Setup isl文件中设置文本格式的选项
1)您必须用文字解释您的问题,而不是使用指向外部网站的链接。 2)如果您无法用言语表达自己,请至少将视频上传到某个值得信赖的网站。 –
我无法解释我的计划。我应该在哪里上传我的视频? –
所以你需要一个安装程序中的按钮,当点击时它会展开一个菜单? –