InstallationWay
Новичок
Hi friends, here is my script:
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?
[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;
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;
Works and the StaticText will create but the transparency will be gone. where is the problem? how can I solve it?
Последнее редактирование модератором: