Deshabilitar temas en runtime?

[[newtron]]

Hola a tod@s.


Estoy pasando una aplicación de Delphi 2007 a Delphi Berlin y me encuentro con que el aspecto visual cambia si ejecutas el programa en un W10. Esto, como casi todo, a unos les gustará más y a otros menos. En las propiedades del proyecto puedo deshabilitar la casilla "Enable Runtime Themes" y la apariencia será siempre la misma pero me gustaría que el usuario tuviera la opción de activarla o no.


¿Hay posibilidad de cambiar ese parámetro del proyecto en "runtime"?


Gracias y un saludo

[Casimiro Notevi]

¿Sirve esto?

[[newtron]]

Empezado por Casimiro Notevi

¿Sirve esto?

Justo eso pero haciendolo en tiempo de ejecución.

[ecfisa]

Hola.

Revisa si esto te puede servir: How to switch an Application between Themed and not Themed at run-time?

Saludos

[[newtron]]

Empezado por ecfisa

Hola.

Revisa si esto te puede servir: How to switch an Application between Themed and not Themed at run-time?

Saludos

Buenas compañero, como siempre me alegra saber de ti y espero que estéis bien por ahí.


Le estoy echando un vistazo pero las soluciones que ponen me dan errores. El primer procedimiento "DisableThemesApp" me da el mensaje "Cannot change Visible in OnShow or OnHide" al ejecutar la linea:

SendMessage(Application.MainForm.Handle,CM_RECREATEWND,0,0);


He probado también a crear la unidad "PathUXTheme" que ponen como segunda opción pero no me compila, me da errores al compilar.



Seguiré probando a ver qué averiguo.



Gracias y un saludo