Holas a todos.
No se si os ha pasado alguno, pero desde que se actualizó el windows 10 a la versión aniversario, los
cuadros "Taskdialog" no salen completos. Solo se ve la esquina superior izquierda.
En windows 7 se ven bien y en la anterior versión de windows 10, también se ven bien.
Alguno sabría como solucionar el tema?
Utilizo DX10 Seattle.
Este es el código
Código Delphi
[-] DM.TaskDialog1.CommonButtons := [];
DM.TaskDialog1.Buttons.Clear;
DM.TaskDialog1.MainIcon := tdiInformation;
DM.TaskDialog1.Title := '¿Desea salir del programa?';
DM.TaskDialog1.Text := 'Recuerde hacer copias de seguridad asiduamente.';
DM.TaskDialog1.ModalResult := mrCancel;
DM.TaskDialog1.Buttons.Add();
DM.TaskDialog1.Buttons.Add();
DM.TaskDialog1.Buttons[0].Caption := 'Salir';
DM.TaskDialog1.Buttons[0].ModalResult := mrOk;
DM.TaskDialog1.Buttons[0].Default := True;
DM.TaskDialog1.Buttons[1].Caption := 'Cancelar';
DM.TaskDialog1.Buttons[1].ModalResult := mrCancel;
DM.TaskDialog1.Execute;
DM.TaskDialog1.Text := '';
DM.TaskDialog1.Buttons.Clear;
if DM.TaskDialog1.ModalResult = mrCancel then CanClose := False
else
begin
DM.CONTA.Connected := False;
DM.CONTA.Close;
end;
Gracias.
Adjunto imagen.