www.WinOs.vip 发表于 2022-9-4 13:41:26

Inno Setup自定义右上角的图片和左边的图片




;右上角图片背景颜色
WizardSmallImageBackColor=clBlue
;右边图片背景颜色
WizardImageBackColor=clBlue
;左边图片是否拉伸 – yes;no
WizardImageStretch=no
;左边图片
WizardImageFile=C:\Documents and Settings\Administrator\桌面\smqh\Left.bmp
;右上角图片
WizardSmallImageFile=C:\Documents and Settings\Administrator\桌面\smqh\topsmall.bmp

var
PageName, PageDescription: TLabel;
procedure InitializeWizard();
begin
PageName := TLabel.Create(WizardForm.MainPanel);
PageName.Parent := WizardForm.MainPanel;
PageName.Top := WizardForm.PageNameLabel.Top;
PageName.Left := WizardForm.PageNameLabel.Left;
PageName.Width := WizardForm.PageNameLabel.Width;
PageName.Height := WizardForm.PageNameLabel.Height;
PageName.Font := WizardForm.PageNameLabel.Font;
PageName.Transparent := true;
//PageName.Caption :=’测试’;
PageName.Font.Color:=clRed;
PageDescription := TLabel.Create(WizardForm.MainPanel);
PageDescription.Parent := WizardForm.MainPanel;
PageDescription.Top := WizardForm.PageDescriptionLabel.Top;
PageDescription.Left := WizardForm.PageDescriptionLabel.Left;
PageDescription.Width := WizardForm.PageDescriptionLabel.Width;
PageDescription.Height := WizardForm.PageDescriptionLabel.Height;
PageDescription.Font := WizardForm.PageDescriptionLabel.Font;
PageDescription.Transparent := true;
//PageDescription.Caption :=’测试’;
PageDescription.Font.Color:=clPurple;
WizardForm.WizardSmallBitmapImage.Top := ScaleY(0);
WizardForm.WizardSmallBitmapImage.Left := ScaleX(0);
WizardForm.WizardSmallBitmapImage.Width := WizardForm.MainPanel.Width;
WizardForm.WizardSmallBitmapImage.Height := WizardForm.MainPanel.Height;
WizardForm.PageNameLabel.Visible := false;
WizardForm.PageDescriptionLabel.Visible := false;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
PageName.Caption := WizardForm.PageNameLabel.Caption;
PageDescription.Caption := WizardForm.PageDescriptionLabel.Caption;
end;

wangchunaiain 发表于 2022-9-4 13:49:00

支持，顶一下。

xiaodou2008 发表于 2022-9-4 14:05:42

奥利给

sj3729 发表于 2022-9-4 21:02:19

非常感谢

ly179850 发表于 2022-9-5 03:30:59

感谢{author}楼主
页: [1]
查看完整版本: Inno Setup自定义右上角的图片和左边的图片