Dejar que el usuario seleccione apariencia

[WHILENOTEOF]

No sé en versiones anteriores, pero yo estuve viendo ayer unas demos que vienen con Delphi Seattle sobre los controles para Windows 10 (split view, search box, etc) y casi todas ellas tenían la opción de seleccionar desde un combo un estilo y la aplicación se ajustaba al nuevo skin sin salir de ella. Incluso en youtube me suena a ver visto algún tutorial sobre ello.

[el-mono]

Esto es lo que necesitas.

https://jachguate.wordpress.com/2012...cl-con-estilo/

[The Cid James]

Empezado por el-mono

Esto es lo que necesitas.

https://jachguate.wordpress.com/2012...cl-con-estilo/

Lastima que no esta el codigo disponible para verlo, y no me sirvio el copilador me dice que stylemanager es una variable no definida

Empezado por WHILENOTEOF

No sé en versiones anteriores, pero yo estuve viendo ayer unas demos que vienen con Delphi Seattle sobre los controles para Windows 10 (split view, search box, etc) y casi todas ellas tenían la opción de seleccionar desde un combo un estilo y la aplicación se ajustaba al nuevo skin sin salir de ella. Incluso en youtube me suena a ver visto algún tutorial sobre ello.

No estoy usando ninguno de esos controles de windows 10 , aunque tengo la 10.2 voy a investigar

Sigo buscando

[dec]

Hola,

En el artículo de jachguate se describe todo perfectamente: hay algún problema con el enlace para descargar el ejemplo, pero, todo está explicado en el texto del propio artículo, por ejemplo:

En tiempo de corrida, podemos valernos de la clase TStyleManager, de la unidad Vcl.Themes para interrogar a la aplicación sobre los estilos disponibles, a través de su propiedad StyleNames, que es un arreglo de strings.

Todo lo que necesitas (si no me equivoco) es la clase (no variable) "TStyleManager", y, dicha clase se declara en la unidad "Vcl.Themes". Incluyendo esta unidad en tu proyecto ya podrías usar "TStyleManager" como describe jachguate. Por otro lado, creo recordar que ya el primer Delphi que soportó estos "temas" incluía algún ejemplo sobre esto... busca en la carpeta de ejemplos por "Styles" o algo así. Aunque con el artículo del compañero es suficiente también.

[The Cid James]

Habia entendido mal gracias por la aclaración ...

Se agradece la ayuda

[WHILENOTEOF]

Empezado por The Cid James

Lastima que no esta el codigo disponible para verlo, y no me sirvio el copilador me dice que stylemanager es una variable no definida



No estoy usando ninguno de esos controles de windows 10 , aunque tengo la 10.2 voy a investigar

Sigo buscando

Si tienes la 10.2, esos mismos ejemplos estarán, y no son necesarios los controles, sirven para cualquier control que vienen con Delphi, lo que pasa es que en los ejemplos donde se muestran esos controles es donde lo ví.

[The Cid James]

Si logre que funcione el cambio, por lo menos en tiempo de ejecucion pero no logro hacer que se guarde el cambio, una vez que cierra el programa cuando lo vuelvo a ejecutar queda el que esta por defecto... alguna sugerencia?

[[maeyanes]]

Hola...

Guarda el valor del estilo seleccionado en un archivo ini o en el registro o donde guardes las configuraciones de tu programa y cuando inicies este, lees esa configuración y la aplicas.


Saludos...

[The Cid James]

Tenia entendido que se guarda en el .exe de la app aqui

Código Delphi [-]
Application.Initialize;
  Application.MainFormOnTaskbar := True;
  TStyleManager.TrySetStyle('Carbon');

Eso se puede modificar una vez copilado?