2022-09-04T13:49:51+00:00
分类：
阅读(392)
评论(0)
[卡得一笔暂时不搞]
[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
[code]
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;
|
|
如遇到无法下载，请扫码加我，留言。能修复的，第一时间修复后，微信回复。 本站还开通了VIP专属下载通道,需要联系微信 wkcyyx开通！
文章如无特别注明均为原创！
作者:
admin，
转载或复制请以
超链接形式 并注明出处 Winos.vip。
原文地址《
Inno Setup自定义右上角的图片和左边的图片》发布于2022-9-4
WinOs.vip
