[Pein46]

@Razor12911

[Code]
var
NewCheckBox: TCheckBox;

procedure WizardFormResizer(Sender: TObject);
begin
if NewCheckBox.Checked = True then
begin
WizardForm.Width:=NewWizardFormSizeX
WizardForm.Height:=NewWizardFormSizeY
end else begin
WizardForm.Width:=OldWizardFormSizeX
WizardForm.Height:=OldWizardFormSizeY
end;
end;

procedure InitializeWizard;
begin
NewCheckBox:= TCheckBox.Create(WizardForm);
with NewCheckBox do
begin
Parent:= WizardForm.InstallingPage;
Left:= SetPositionX;
Top:= SetPositionY;
Width:= SetSizeX;
Height:= SetSizeY;
Checked:= False;
OnClick:= @WizardFormResizer;
Caption := 'Compact View';
end;
end;

I'm still didn't know how to resize progressbar and lables..
can you?.. please..
This is my script..