@Pein46
example:
[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;
but you'll have to resize progressbar and lables
