innonewbie
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Code]
var
X,Y: Integer;
procedure InitializeWizard();
begin
with WizardForm do begin
X:=ScaleX(143); // На сколько надо увеличить длину инсталла
Y:=ScaleX(143); // На сколько надо увеличить высоту инсталла
Position := poScreenCenter;
Width:= WizardForm.Width + X;
Height:= WizardForm.Height + Y;
Bevel.Width:= WizardForm.Width;
Bevel1.Width:= WizardForm.Width;
//Bevel1.top:= WizardForm.Bevel1.top + Y;
Bevel.top:= WizardForm.Bevel.top + Y;
OuterNotebook.Width := WizardForm.OuterNotebook.Width + X
OuterNotebook.Height := WizardForm.OuterNotebook.Height + Y
InnerNotebook.Width := WizardForm.InnerNotebook.Width + X
InnerNotebook.Height := WizardForm.InnerNotebook.Height + Y
with WelcomeLabel1 do
begin
Width:= WizardForm.WelcomeLabel1.Width + X;
end;
with WelcomeLabel2 do
begin
Width:= WizardForm.WelcomeLabel2.Width + X;
Height := WizardForm.WelcomeLabel2.Height + Y;
end;
with CancelButton do
begin
Left := WizardForm.CancelButton.left + X;
Top := WizardForm.CancelButton.top + Y;;
end;
with NextButton do
begin
Left := WizardForm.NextButton.left + X;
Top := WizardForm.NextButton.Top + Y;
end;
with backButton do
begin
Left := WizardForm.backButton.left + X;
Top := WizardForm.backButton.Top + Y;
end;
with WizardBitmapImage do
begin
Height := WizardForm.WizardBitmapImage.Height + Y;
end;
with MainPanel do
begin
Width:= WizardForm.MainPanel.Width + X;
end;
end;
end; |
