Problema con TTaskDialog

[[AgustinOrtu]]

Que version de Delphi? Estas usando Vcl Styles?

Edito:

En este hilo se trato el tema

Taskdialog no se ve completo

Confirmado, el problema solo se reproduce si usas algun Vcl Style

Codigo:

Código Delphi [-]
uses
  Vcl.Themes;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TaskDialog1.CommonButtons := [];
  TaskDialog1.Buttons.Clear;
  TaskDialog1.MainIcon := tdiInformation;
  TaskDialog1.Title := 'Test TaskDialog';
  TaskDialog1.Text := 'Test TaskDialog.';
  TaskDialog1.ModalResult := mrCancel;
  TaskDialog1.Buttons.Add();
  TaskDialog1.Buttons.Add();
  TaskDialog1.Buttons[0].Caption := 'Salir';
  TaskDialog1.Buttons[0].ModalResult := mrOk;
  TaskDialog1.Buttons[0].Default := True;
  TaskDialog1.Buttons[1].Caption := 'Cancelar';
  TaskDialog1.Buttons[1].ModalResult := mrCancel;
  TaskDialog1.Execute;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    TStyleManager.SetStyle('Sterling') // o cualquier vcl style
  else
    TStyleManager.SetStyle('Windows');
end;