Taskdialog no se ve completo

[Luis M.]

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
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.

[dec]

Hola,

He tratado de reproducir el problema aquí usando Delphi XE2, el tema de la VCL que usas tú (si no me equivoco) y los estilos de la VCL de RRUZ (https://github.com/RRUZ/vcl-styles-utils), puesto que creo que también haces uso de ellos.

El caso es que no puedo reproducir el problema aquí en Windows 10:

http://i.imgur.com/PmLw074.png

No sé si tal vez sea cuestión de la versión de Delphi que estás usando o de alguna otra causa...

[Luis M.]

Hola Dec, gracias por responder.
Los estilos son los propios que trae delphi.
La cuestión es que antes de la actualización de windows 10 aniversari,
funcionaba sin ningún problema.
A raiz de esta actualización es cuando me empezo a salir así, e incluso
hay un cliente que me llamó con el mismo problema.
Tengo otro ordenador sin esta actualización de windows 10 y allí si que funciona bien.
No se...., cosa muy rara.
De momento no he dado con la solución.
Un saludo.

[dec]

Hola Luis,

Yo creo que se trata de un problema relacionado con la versión de Delphi o bien con alguna actualización de Windows. Si quieres, puedes compilar un ejemplo de programa (un formulario con un botón que muestre un diálogo valdría) de modo que podamos probarlo en nuestros ordenadores. De este modo podríamos salir de dudas de si se trata de un problema con Windows. Por ejemplo, yo podría probar el programa aquí en mi Windows 10, que, por otro lado, no es el mismo que el de mi portátil, quiero decir, hay cierto "lío" (por lo menos para mí) con las distintas "compilaciones" de Windows 10.

[Luis M.]

Hola nuevamente.
He estado probando un ejemplo sencillo y parece ser que solo falla en el portátil.
En el ordenador de sobremesa funciona sin ningún problema.
Si dejo el estilo de windows funciona bien, pero si cambio a cualquier otro, falla.
Dejo un enlace para descargar el ejemplo.
Están los fuentes y los ejecutables, tanto en 32 como en 64 bits.
Puede servir de ejemplo para quienes quieran añadir esta opción a sus programas.
Un saludo.
Ejemplo Descargar aquí (http://www.mediafire.com/file/wmul1ewmwhgxy83/PRUEBAS.rar)

[dec]

Hola Luis,

Ciertamente puedo reproducir el problema aquí en mi ordenador usando tanto el binario para 32 como para 64 bits. Si el estilo es el de Windows el diálogo se muestra correctamente, pero, con cualquier otro estilo, el diálogo aparece "cortado" tal como mencionas. Aquí una captura de mi versión de Windows 10 por si sirve de algo:

http://i.imgur.com/pPDYwyO.png

A ver si otros compañeros pueden probarlo también...

[dec]

Hola Luis,

No se me había ocurrido antes... acabo de probar a compilar tu ejemplo con Delphi XE2: el problema es el mismo, o sea, que no tiene que ver con Delphi XE10 únicamente.

[Luis M.]

Hola Dec.
Eso mismo pienso yo.
El problema empezó cuando en el portátil se actualizo en windows 10 a la versión aniversari.
Cosa que no ocurre en los de sobremesa.
Mi versión de windows 10 adjuntada como archivo.
A ver si algún compañero sabe algo al respecto.
Un saludo.

[Reasen]

Hola, me gustaría saber que resoluciones de pantalla están utilizando.
¿Fallará en resoluciones concretas? Ya que he leído arriba que en los de sobremesa no falla y suelen tener una resolución superior.

[dec]

Hola,

Hola, me gustaría saber que resoluciones de pantalla están utilizando.
¿Fallará en resoluciones concretas? Ya que he leído arriba que en los de sobremesa no falla. Y suelen tener una resolución superior.

Yo lo he probado (y falla) en un sobremesa con una resolución de 1920x1080.

[Luis M.]

En el portátil tengo una resolución de 1600 x 900 y tengo conectado un monitor de 23 pulgadas.
En el de sobremesa 1680 x 1050

[Luis M.]

Adjunto la versión de windows del ordenador de sobremesa.
Por si sirve de algo.