Almacenar las propiedades de TFont
 

Hola a tod@s:

La situación que se me presenta hoy es la siguiente:

Deseo poder almacenar las propiedades basicas de un TFont, como son tamaño, tipo de fuente, estilo, color entre otras; en un campo de una tabla de la BD, esto con el objeto de poder pasar las propiedades que debe capturar y aplicarlas en una fuente determinada para mis reportes, he visto un poco y lo único que he logrado es capturar los atributos pero uno por uno; pienso que se puede almacenar las propiedades algo más o menos así

Código Delphi [-]
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold, fsUnderline]

o guardando como una cadena como esta en la propiedad del objeto que se ve así : MS Sans Serif,8,[BU],DEFAULT_CHARSET,clWindowText; pero ahora la pregunta es como hago para colocar esta cadena en el objeto de tipo TFont debo usar [] o como debe hacer


Gracias de antemano




gertorresm
Colombia

Una forma sencilla de conseguirlo es como explican aquí.

En tu caso, por ser en una base de datos, el flujo (stream) a utilizar sería un "blob stream", creado con el método CreateBlobStream del conjunto de datos que emplees para leer y escribir el registro en la base de datos.

Por otra parte, es casi seguro que encuentres varios temas en estos foros donde se planteó lo mismo con anterioridad.

Saludos. :)