找回密码
 加入网盟
分割线
官方精品推荐


[Setup]
;右上角图片背景颜色
WizardSmallImageBackColor=clBlue
;右边图片背景颜色
WizardImageBackColor=clBlue
;左边图片是否拉伸 – yes;no
WizardImageStretch=no
;左边图片
WizardImageFile=C:\Documents and Settings\Administrator\桌面\smqh\Left.bmp
;右上角图片
WizardSmallImageFile=C:\Documents and Settings\Administrator\桌面\smqh\topsmall.bmp
[code]
var
PageName, PageDescription: TLabel;
procedure InitializeWizard();
begin
PageName := TLabel.Create(WizardForm.MainPanel);
PageName.Parent := WizardForm.MainPanel;
PageName.Top := WizardForm.PageNameLabel.Top;
PageName.Left := WizardForm.PageNameLabel.Left;
PageName.Width := WizardForm.PageNameLabel.Width;
PageName.Height := WizardForm.PageNameLabel.Height;
PageName.Font := WizardForm.PageNameLabel.Font;
PageName.Transparent := true;
//PageName.Caption :=’测试’;
PageName.Font.Color:=clRed;
PageDescription := TLabel.Create(WizardForm.MainPanel);
PageDescription.Parent := WizardForm.MainPanel;
PageDescription.Top := WizardForm.PageDescriptionLabel.Top;
PageDescription.Left := WizardForm.PageDescriptionLabel.Left;
PageDescription.Width := WizardForm.PageDescriptionLabel.Width;
PageDescription.Height := WizardForm.PageDescriptionLabel.Height;
PageDescription.Font := WizardForm.PageDescriptionLabel.Font;
PageDescription.Transparent := true;
//PageDescription.Caption :=’测试’;
PageDescription.Font.Color:=clPurple;
WizardForm.WizardSmallBitmapImage.Top := ScaleY(0);
WizardForm.WizardSmallBitmapImage.Left := ScaleX(0);
WizardForm.WizardSmallBitmapImage.Width := WizardForm.MainPanel.Width;
WizardForm.WizardSmallBitmapImage.Height := WizardForm.MainPanel.Height;
WizardForm.PageNameLabel.Visible := false;
WizardForm.PageDescriptionLabel.Visible := false;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
PageName.Caption := WizardForm.PageNameLabel.Caption;
PageDescription.Caption := WizardForm.PageDescriptionLabel.Caption;
end;

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入网盟

x
分享至 : QQ空间
收藏

4 个回复

倒序浏览
支持,顶一下。
回复 使用道具 举报
xiaodou2008 1 2022-9-4 14:05:42
3#
奥利给
回复 使用道具 举报
sj3729 1 2022-9-4 21:02:19
4#
非常感谢
回复 使用道具 举报
ly179850 1 2022-9-5 03:30:59
5#
感谢{author}楼主
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 加入网盟
关闭

华夏网盟推荐 上一条 /1 下一条