码迷,mamicode.com
首页 > 其他好文 > 详细

(转)Inno Setup入门(二十一)——Inno Setup类参考(7)

时间:2014-08-01 13:14:41      阅读:245      评论:0      收藏:0      [点我收藏+]

标签:style   blog   http   color   使用   os   io   art   

本文转载自:http://blog.csdn.net/yushanddddfenghailin/article/details/17268435

复选框

复选框(CheckBox)用于多个并不互斥的几个选项中作出一个或者多选择,例如字体可以有粗体、斜体和下划线,这三种状态可以任意组合,像这样的选项可以采用复选框实现。Pascal脚本中对应的类是TcheckBox,其定义如下:< xmlnamespace prefix ="o" ns ="urn:schemas-microsoft-com:office:office" />

TCheckBox = class(TCustomCheckBox)

property Alignment: TAlignment; read write;

property AllowGrayed: Boolean; read write;

property Caption: String; read write;

property Checked: Boolean; read write;

property Color: TColor; read write;

property Font: TFont; read write;

< xmlnamespace prefix ="st1" ns ="urn:schemas-microsoft-com:office:smarttags" />property State: TCheckBoxState; read write;

property OnClick: TNotifyEvent; read write;

end;

其层次模型如下:

 

该类比RadioBox多继承了一个TcustomCheckBox,这样就有了更多的功能。下面的代码将演示复选框的使用:

[setup]

AppName=Test

AppVerName=TEST

DefaultDirName="E:\TEST"

AppVersion=1.0

 

[files]

Source:zzz.iss;Flags:dontcopy

 

[code]

var

myPage:TWizardPage;

lbl:TLabel;

chk1,chk2,chk3:TCheckBox;

procedure ClickCHK1(Sender:TObject);

begin

if chk1.Checked then

lbl.Font.Style:=lbl.Font.Style+[fsBold]

else

lbl.Font.Style:=lbl.Font.Style-[fsBold];

end;

procedure ClickCHK2(Sender:TObject);

begin

if chk2.Checked then

lbl.Font.Style:=lbl.Font.Style+[fsItalic]

else

lbl.Font.Style:=lbl.Font.Style-[fsItalic];

end;

procedure ClickCHK3(Sender:TObject);

begin

if chk3.Checked then

lbl.Font.Style:=lbl.Font.Style+[fsUnderline]

else

lbl.Font.Style:=lbl.Font.Style-[fsUnderline];

end;

procedure InitializeWizard();

begin

myPage:=CreateCustomPage(wpWelcome, ‘标题:自定义页面‘, ‘描述:这是我的自定义页面‘);

lbl:=TLabel.Create(myPage);

lbl.Parent:=myPage.Surface;

lbl.Caption:=‘请选择复选框,并注意文字的变化‘;

chk1:=TCheckBox.Create(myPage);

chk1.Parent:=myPage.Surface;

chk1.Caption:=‘粗体‘;

chk1.top:=lbl.Top+20;

chk1.OnClick:=@ClickCHK1;

chk2:=TCheckBox.Create(myPage);

chk2.Parent:=myPage.Surface;

chk2.Caption:=‘斜体‘;

chk2.top:=chk1.Top+20;

chk2.OnClick:=@ClickCHK2;

chk3:=TCheckBox.Create(myPage);

chk3.Parent:=myPage.Surface;

chk3.Caption:=‘下划线‘;

chk3.top:=chk2.Top+20;

chk3.OnClick:=@ClickCHK3;

end;

程序运行效果如下:

bubuko.com,布布扣

另外复选框还有一个重要的属性就是State,该属性指定了复选框的外观,可以有三个值,分别是cbUnchecked、cbChecked和cbGrayed,即未选择、选择和未定,可以使用如下代码设定:

chk1.State:=cbUnchecked;

chk2.State:=cbChecked;

chk3.State:=cbGrayed;

效果如下:

bubuko.com,布布扣

(转)Inno Setup入门(二十一)——Inno Setup类参考(7),布布扣,bubuko.com

(转)Inno Setup入门(二十一)——Inno Setup类参考(7)

标签:style   blog   http   color   使用   os   io   art   

原文地址:http://www.cnblogs.com/wpcnblog/p/3884565.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!