我先简单说明一下问题:
是这样的,我自定义了一个安装完成界面,该界面是整张图片铺满安装程序窗口,但由于安装完成界面中Runlist控件的背景是白色的,这样使得图片中加入了一个白框,看起来很不协调,图片效果大致如下:
为了实现图片中想达到的效果,尝试在结束界面中新建一个单选框,但是如何才能使所新建的单选框作用和原来Runlist控件的单选框链接起来?
代码如下,也上传了附件,希望朋友们能帮帮忙,谢谢了。
; 脚本用 Inno Setup 脚本向导 生成。
; 查阅文档获取创建 INNO SETUP 脚本文件的详细资料!
[Setup]
; 注意: AppId 的值是唯一识别这个程序的标志。
; 不要在其他程序中使用相同的 AppId 值。
; (在编译器中点击菜单“工具 -> 产生 GUID”可以产生一个新的 GUID)
AppId={{39EC10E8-A407-4508-96FE-FE5E145EAA4F}
AppName=我的程序
AppVersion=1.5
;AppVerName=我的程序 1.5
AppPublisher=我的公司
DefaultDirName={pf}\我的程序
DefaultGroupName=我的程序
AllowNoIcons=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
WizardImageFile=WizModernImage.bmp
[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"
[Code]
var
CheckBox1: TCheckBox;
procedure InitializeWizard();
begin
CheckBox1 := TCheckBox.Create(WizardForm);
CheckBox1.Parent := WizardForm.FinishedPage;
CheckBox1.Left := 18
CheckBox1.Top := ScaleY(100);
CheckBox1.Width := ScaleY(15);
CheckBox1.Height := ScaleY(15);
CheckBox1.TabOrder := 0;
CheckBox1.State := cbChecked
WizardForm.WizardBitmapImage2.Width:= 479
WizardForm.WizardBitmapImage2.Height:= 290
//设置RunList位置
Wizardform.RunList.Visible:= false;
Wizardform.RunList.Top:= 130;
Wizardform.RunList.Left:= 15;
Wizardform.RunList.Height:= -78;
Wizardform.FinishedHeadingLabel.Width:= 0;
Wizardform.FinishedHeadingLabel.Height:= 0;
Wizardform.FinishedLabel.Width:= 0;
Wizardform.FinishedLabel.Height:= 0;
end;
[Run]
Filename: "{app}\MyProg.exe"; Description: "{cm:LaunchProgram,我的程序}"; Flags: nowait postinstall skipifsilent
[ 此帖被qiuquan在2010-12-03 21:21重新编辑 ]