zoukankan      html  css  js  c++  java
  • Inno Setup入门(二十三)——Inno Setup类参考(9)

    http://379910987.blog.163.com/blog/static/33523797201264104557484/

    今天就简单说一下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;

    运行效果:
  • 相关阅读:
    Java Varargs 可变参数使用
    GitLab 如何删除 Forked from
    Git Clone 的时候遇到 Filename too long 错误
    Spring Boot 如何部署到 Linux 中的服务
    Gradle 如何打包 Spring Boot 如何不添加版本代码
    HDU 5878---预处理+二分查找
    HDU 5881--Tea 思维规律
    HDU 5879---cure
    (转)C/S 与 B/S 区别
    卡特兰数
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/5751915.html
Copyright © 2011-2022 走看看