[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;文章源自爱尚教程网-https://www.23jcw.net/800.html procedure CurPageChanged(CurPageID: Integer); begin PageName.Caption := WizardForm.PageNameLabel.Caption; PageDescription.Caption := WizardForm.PageDescriptionLabel.Caption; end;文章源自爱尚资源教程网-https://www.23jcw.net/800.html文章源自爱尚资源教程网-https://www.23jcw.net/800.html
相关文章
版权声明:文章图片资源来源于网络,如有侵权,请留言删除!!!