Inno setup Inno设置-如何在调整大小向导中居中放置动画gif 我想把我的动画GIF放在我的安装程序中的所有页面中间( WiZrsisiZ%=150 < /COD>),不使用值。< /P>

Inno setup Inno设置-如何在调整大小向导中居中放置动画gif 我想把我的动画GIF放在我的安装程序中的所有页面中间( WiZrsisiZ%=150 < /COD>),不使用值。< /P>,inno-setup,pascalscript,Inno Setup,Pascalscript,这是我的密码: var 父形式:TSetupForm; 开始 TimerID:=0; slided:=0; ContentHeight:=ParentForm.Top+ParentForm.Height; 提取临时文件('Image1.bmp'); 提取临时文件('Image2.bmp'); 提取临时文件('Image3.bmp'); 提取临时文件('Image4.bmp'); 提取临时文件('Image5.bmp'); 提取临时文件('Image6.bmp'); Panel:=TPanel.C

这是我的密码:

var
父形式:TSetupForm;
开始
TimerID:=0;
slided:=0;
ContentHeight:=ParentForm.Top+ParentForm.Height;
提取临时文件('Image1.bmp');
提取临时文件('Image2.bmp');
提取临时文件('Image3.bmp');
提取临时文件('Image4.bmp');
提取临时文件('Image5.bmp');
提取临时文件('Image6.bmp');
Panel:=TPanel.Create(父窗体);
Panel.Parent:=父窗体;
面板左:=185;
Panel.Top:=ParentForm.Top+130;
面板宽度:=1000;
面板高度:=380;
面板可见:=真;
BackImage:=TBitmapImage.Create(父窗体);
BackImage.Parent:=面板;
背景图像。宽度:=1000;
背景图像。高度:=380;
BackImage.Left:=(Panel.Height-BackImage.Height)div 2;
BackImage.Top:=(Panel.Height-BackImage.Height)div 2;
BackImage.Bitmap.LoadFromFile(ExpandConstant({tmp}\Image1.bmp');
启动滑动计时器;
结束;

如何更改
ContentHeight
Panel
BackImage
的值?

仅在应用后创建图像。因此,例如,在中,而不是在
InitializeWizard

或者更好的方法是,有一个更强大的解决方案,它甚至可以通过更新图像坐标(或者更确切地说是
面板
坐标,响应
向导表单.OnResize
,尽管我不明白它的用途)。有关示例,请参见


还要注意,不能使用常量坐标。您的图像在高DPI显示器上无法正确居中。或者缩放坐标–例如,对于该检查。或者在您的情况下,如果您根据图像和窗口大小以编程方式计算居中坐标,则会更好–为此,请检查