PDA

Ver la Versión Completa : Deshabilitar temas en runtime?

newtron
30-03-2020, 17:35:00
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
30-03-2020, 18:09:44
¿Sirve esto? (https://www.clubdelphi.com/foros/showthread.php?t=92029)
newtron
30-03-2020, 18:12:37
¿Sirve esto? (https://www.clubdelphi.com/foros/showthread.php?t=92029)


Justo eso pero haciendolo en tiempo de ejecución. :rolleyes:
ecfisa
30-03-2020, 18:46:23
Hola.

Revisa si esto te puede servir: How to switch an Application between Themed and not Themed at run-time? (https://stackoverflow.com/questions/4393723/how-to-switch-an-application-between-themed-and-not-themed-at-run-time)

Saludos :)
newtron
30-03-2020, 19:16:23
Hola.

Revisa si esto te puede servir: How to switch an Application between Themed and not Themed at run-time? (https://stackoverflow.com/questions/4393723/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.

https://fotos.subefotos.com/b0dd87248f8e166d1d80f2ae3f8e4de5o.png

Seguiré probando a ver qué averiguo.



Gracias y un saludo