INNO setup打包的一段界面美化的code端代码
来源:互联网 发布:微信撞库软件 编辑:程序博客网 时间:2024/06/05 10:31
[Code]
var
DetailList: TNewListBox;
newFileNameLabel: TNewStaticText;
LastDir: string;
procedure InitializeWizard();
begin
//界面修改
WizardForm.WizardSmallBitmapImage.left:=426;
WizardForm.taskslist.color:=clWindow;
WizardForm.innerpage.color:=clWindow;
WizardForm.readymemo.color:=clWindow;
WizardForm.PAGENAMELABEL.Font.Color:= clGreen;
WizardForm.PAGEDESCRIPTIONLABEL.Font.Color:= clGreen;
WizardForm.WelcomeLabel2.Caption := '现在将在你的电脑上安装 {#MyAppName} V{#MyAppVersion} ' + #13#10 +
+ #13#10 +
'建议你在继续之前关闭所有其它应用程序。' + #13#10 +
'' + #13#10 +
'单击“下一步”继续,或单击“取消”退';
WizardForm.WELCOMELABEL1.Font.Color:= clGreen;
WizardForm.WELCOMELABEL1.top:= 31;
WizardForm.WELCOMELABEL2.top:= 91;
WizardForm.Color:= clwindow;
WizardForm.Bevel1.Left:=0;
WizardForm.Bevel1.top:=0;
WizardForm.Bevel1.width:=0;
WizardForm.Bevel.Left:=0;
WizardForm.Bevel.top:=0;
WizardForm.selectdirbitmapimage.visible:=false;
WizardForm.selectgroupbitmapimage.visible:=false;
WizardForm.selectdirlabel.left:=0;
WizardForm.selectstartmenufolderlabel.left:=0;
WizardForm.Bevel.width:=0;
WizardForm.PageDescriptionLabel.Top:=40;
//页面修改完毕
//显示细节
DetailList:= TNewListBox.Create(WizardForm);
DetailList.Parent := WizardForm.InstallingPage;
DetailList.Left := ScaleX(0);
DetailList.Top := ScaleY(70);
DetailList.Width := ScaleX(417);
DetailList.Height := ScaleY(153);
newFileNameLabel:= TNewStaticText.Create(WizardForm) // 创建 FileNameLabel 的替代
newFileNameLabel.Parent := WizardForm.InstallingPage;
newFileNameLabel.Top := WizardForm.FileNameLabel.Top;
newFileNameLabel.Left := WizardForm.FileNameLabel.Left;
newFileNameLabel.Width := WizardForm.FileNameLabel.Width;
WizardForm.FileNameLabel.Visible := false; // 隐藏本来的 FileNameLabel
LastDir:= '';
end;
procedure ChangeDisplay;
var
dn, fn: string;
pct: Extended;
begin
pct := (WizardForm.ProgressGauge.Position-WizardForm.ProgressGauge.Min)/(WizardForm.ProgressGauge.Max-WizardForm.ProgressGauge.Min)*100;
dn:= ExpandConstant(ExtractFileDir(CurrentFileName));
fn:= ExtractFileName(CurrentFileName);
WizardForm.StatusLabel.Caption:= '输出目录: ' + dn;
newFileNameLabel.Caption:= '抽取: ' + fn + ' (' + IntToStr(Round(pct)) + '% 已完成)';
if dn <> LastDir then
begin
DetailList.Items.Append('输出目录: ' + dn);
LastDir:= dn;
end;
DetailList.Items.Append('抽取: ' + fn + ' (' + IntToStr(Round(pct)) + '% 已完成)');
DetailList.ItemIndex := DetailList.Items.Count - 1;
end;
//显示细节完毕
0 0
- INNO setup打包的一段界面美化的code端代码
- Inno Setup制作实例:Inno Setup安装服务的代码
- 打包工具Inno Setup的使用
- 【软件打包】 Inno Setup -- 修改安装过程的界面显示语言【1】
- Inno[Code]代码段获取[Setup]段关键字值的方法
- Inno Setup 5 打包vc2010程序的使用方法
- 关于用Inno Setup打包的问题 Flags: uninsneveruninstall
- Inno Setup 打包的文件以管理员权限运行
- 关于打包程序INNO SetUp软件的使用心得
- 使用 Inno Setup 快速打包你的应用程序
- inno setup打包应用程序
- inno setup打包实例
- Inno Setup打包
- Inno Setup 打包exe
- inno setup打包service
- Inno setup 打包教程
- Inno setup打包教程
- inno setup的一点用法
- 5月10日云栖精选夜读:阿里专家直击前端盛会JSConf2017_Day2:见证Moment.js精彩分享
- AJAX 跨域的常见方法
- 机器学习正则化相关讲解
- java 汉字转拼音
- 子线程使用Toast报错
- INNO setup打包的一段界面美化的code端代码
- [iOS]查看苹果支持的所有字库
- 线程安全问题
- C++位运算
- Unity3D研究院之与Android相互传递消息
- 部署到linux线上服务器webSocket链接失败404
- 人生的第一步
- Android Bitmap内存计算
- 统计学习方法笔记(1)