Saber el Style de una fuente

[Lionel]

Buenas tardes a todos!!

Mi duda es esta, yo utilizo para designar el tipo de fuente a una caja de texto un fontdialog, se que la propiedad Style guarda todos los estilos seleccionados dentro del menu pero esta variable se compone de constantes (fsbold, bsitalic, etc.).

Lo que me gustaria saber es si puedo saber que estilos tiene una fuente seleccionada y guardarmelos en un String. Quiero hacer esto para almacenar mis preferencias sobre fuentes dentro del registro de windows y por eso me interesaria guardarlo en algun String y asi almacenarlo facilmente.

en caso de que no se pueda convertir a string podria tambien ir sacando uno por uno los estilos seleccionados pero no sé como.

¿Alguien me podria ayudar?

[roman]

Declaración de tipos:

Código Delphi [-]
type
  TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut);
  TFontStyles = set of TFontStyle;

La propiedad Style es de tipo TFontStyles. Tengo entendido que internamente un conjunto (set of) se guarda como un byte. Haciendo una prueba me ha funcionado esto:

Código Delphi [-]
var
  Style: Byte;

...

Style := Byte(Font.Style) // Para guardar el valor
Font.Style := TFontStyles(Style); // Para recuperar el valor

De esta manera simplemente guardas Style (un byte) en el registro de Windows.

// Saludos

[delphi.com.ar]

Un string no es la forma mas óptima de guardar un conjunto de este tipo, ya que se podría guardar en un simple Byte, y en un string, podría ocupar algo similar a esto: "[fsBold,fsItalic,fsUnderline,fsStrikeOut]".
Aquí tienes algun ejemplo de lo que pides: http://www.clubdelphi.com/foros/showthread.php?t=7264

[delphi.com.ar]

Otra opción "mas sencilla", puede ser mover el dato del TFontStyle mediante la función Move a un Byte, o bien utilizar variables con posición absoluta.

[roman]

Y ¿por qué no hacer simplemente el "casting" tal como propuse? No estoy seguro pero me parece que la representación interna de un conjunto está oficialmente documentada. A ver si busco por ahí...

// Saludos

[delphi.com.ar]

Empezado por roman

Y ¿por qué no hacer simplemente el "casting" tal como propuse? No estoy seguro pero me parece que la representación interna de un conjunto está oficialmente documentada. A ver si busco por ahí...

Primero no he leido tu mensaje, cuando ingresé no había ninguno, y despues probé hacer un Cast (en Delphi 5), pero falló... Me pareció extraño, pero sinceramente no le quise dar vueltas


Saludos!

[delphi.com.ar]

PD: Ahora porbé el cast, y funciona sin problemas... No se que habré hecho