Вопрос TNewStaticText Transparency

InstallationWay

Новичок
Hi friends, here is my script:
[Setup]
AppName = "My Program"
AppVersion = "1.5"
DefaultDirName = {pf} \ 123
OutputBaseFilename = setup

[*Code]
var
NewStaticText1: TNewStaticText;

procedure RedesignWizardForm;
begin
NewStaticText1: = TNewStaticText.Create (WizardForm);
with NewStaticText1 do
begin
Parent: = WizardForm.WelcomePage;
AutoSize: = False;
Caption: = 'NewStaticText1';
Transparent: = True;
Left: = ScaleX (120);
Top: = ScaleY (240);
Width: = ScaleX (101);
Height: = ScaleY (38);
end;
end;

procedure InitializeWizard;
begin
RedesignWizardForm;
end;
Everything works great, But I'm designing my setup using botva2 so I have no welcome page. I should change the StaticText parent to only WizardForm like this: Parent: = WizardForm;

Works and the StaticText will create but the transparency will be gone. where is the problem? how can I solve it?
 
Последнее редактирование модератором:
Сверху