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