checkbox - texto - Reemplazar los botones de radio con la casilla de verificación en la página del asistente de licencia en Inno Setup

formulario html

Question

¿Hay alguna manera fácil de reemplazar los botones de radio estándar 2 en la página del asistente de licencias con la casilla de verificación única (marcada / no marcada) en la configuración de Inno sin crear una página personalizada?

Answer 1

Como no hay configuraciones para cambiar entre los botones de WizardForm licencia y alguna casilla de verificación de licencia (al menos simplemente porque no hay ningún componente para él en el WizardForm ), debe crearlo usted mismo.

El siguiente código oculta los botones de opción de la licencia original y crea una casilla de verificación en el mismo lugar en la inicialización del asistente. Esta casilla de verificación de licencia simula las selecciones de botones de radio en su controlador de eventos OnClick para mantener su funcionalidad original. Aquí está el código, que le permite acceder a la casilla de verificación de licencia fuera del alcance del evento de inicialización del asistente. Si no necesita acceder a esta casilla de verificación más adelante, puede usar this version de la publicación:

[code]

var
  LicenseCheckBox: TNewCheckBox;

procedure OnLicenseCheckBoxClick(Sender: TObject);
var
  LicenseAccepted: Boolean;
begin
  LicenseAccepted := (Sender as TNewCheckBox).Checked;
  WizardForm.LicenseAcceptedRadio.Checked := LicenseAccepted;
  WizardForm.LicenseNotAcceptedRadio.Checked := not LicenseAccepted;
end;

procedure InitializeWizard;
begin
  WizardForm.LicenseAcceptedRadio.Hide;
  WizardForm.LicenseNotAcceptedRadio.Hide;

  LicenseCheckBox := TNewCheckBox.Create(WizardForm);
  LicenseCheckBox.Parent := WizardForm.LicensePage;
  LicenseCheckBox.Left := 0;
  LicenseCheckBox.Top := WizardForm.LicenseMemo.Top + 
    WizardForm.LicenseMemo.Height + 8;
  LicenseCheckBox.Width := WizardForm.LicenseMemo.Width;
  LicenseCheckBox.Caption := '' I accept the license agreement'';
  LicenseCheckBox.OnClick := @OnLicenseCheckBoxClick;
end;