注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

信息 灵感 创新

I? =Information,Inspiration,Innovation

 
 
 

日志

 
 
关于我

we are 5. Mathematics, Computation, Programming, Engineering, and Making fun of life.

网易考拉推荐

Inno Setup入门(二十三)——Inno Setup类参考(9)  

2012-07-04 23:09:29|  分类: Inno Setup |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
上班挺累的。
今天就简单说一下ProgressBar。
TNewProgressBar = class(TWinControl)
  property Min: Longint; read write;
  property Max: Longint; read write;
  property Position: Longint; read write;
  property State: TNewProgressBarState read write;
  property Style: TNewProgressBarStyle read write;
end

可用TNewProgressBarState 设置状态 (npbsNormal, npbsError, npbsPaused)
使用TNewProgressBarStyle设置风格 (npbstNormal, npbstMarquee)

只贴代码段:
[code]
var
myPage:TWizardPage;
pb1, pb2,pb3:TNewProgressBar;

procedure InitializeWizard();
begin
    myPage:=CreateCustomPage(wpWelcome, '标题:自定义页面', '描述:这是我的自定义页面');
    pb1 := TNewProgressBar.Create(mypage);
    pb1.Left:=20;
    pb1.Top:=20;
    pb1.Parent := mypage.Surface;
    pb1.State := npbsError;
    pb1.Position := 25;
pb2 := TNewProgressBar.Create(mypage);
pb2.Left:=20;
    pb2.Top:=50;
    pb2.Parent := mypage.Surface;
    pb2.Position := 50;
    
    pb3 := TNewProgressBar.Create(mypage);
pb3.Left:=20;
    pb3.Top:=80;
    pb3.Parent := mypage.Surface;
    pb3.Position := 76;
    {Position设置了也没用}
    pb3.Style:=npbstMarquee;
end;

运行效果:
Inno Setup入门(二十三)——Inno Setup类参考(9) - Castor - 趁年轻,多折腾
 



  评论这张
 
阅读(1698)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016