Inno设置:如何在此欢迎窗口脚本中使用透明颜色文本

时间:2015-03-03 11:15:06

标签: colors inno-setup transparent

我需要知道此脚本中的白色(或其他)颜色文本。我真的需要制作欢迎屏幕,其中包含完整的背景图像,彩色文本和左下窗口中的一个图像。

[Files]
DestName: "WizardForm.BitmapImage1.bmp"; Source: "embedded\Alfreire.bmp"; Flags: dontcopy solidbreak

[Code]
{ RedesignWizardFormBegin } // Don't remove this line!
// Don't modify this section. It is generated automatically.
var
  BitmapImage1: TBitmapImage;

procedure RedesignWizardForm;
begin
  with WizardForm do
  begin
    Caption := '{#AppName}... by -=4lfre1re=-';
    Color := clWhite;
  end;

  { BitmapImage1 }
  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(0);
    Top := ScaleY(314);
    Width := ScaleX(250);
    Height := ScaleY(46);
    ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
  end;

  with WizardForm.WizardBitmapImage do
  begin
    Width := ScaleX(497);
  end;

  with WizardForm.WelcomeLabel2 do
  begin
    Transparent := True;
    Top := ScaleY(98);
  end;

  with WizardForm.WelcomeLabel1 do
  begin
    Font.Height := -21;
    Font.Name := 'Tahoma';
    Transparent := True;
    Height := ScaleY(79);
  end;

{ ReservationBegin }
  // This part is for you. Add your specialized code here.

{ ReservationEnd }
end;
// Don't modify this section. It is generated automatically.
{ RedesignWizardFormEnd } // Don't remove this line!

procedure WizardFormCreate(Sender: TObject);
begin

end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

welcome screen image

0 个答案:

没有答案