Guardar propiedad font en unta tabla

[Jack]

Hola a todos, necesito guardar una determinada fuente en una tabla ( firebird ),
para ello guardo las propiedades de la fuente size, name, style etc hasta que llego a la propiedad color, en fin no llego a grabar y recuperar esta propiedad a-desde una tabla, alguien sabe como hacerlo. Un saludo de antemano.

[marcoszorrilla]

Puedes guardarlo en un campo de tipo entero, aquí tienes un ejemplo para que te hagas una idea, solamente te queda en vez de una variable como en el ejemplo utilizar un campo de tu tabla con el tipo apropiado.


procedure TForm1.Button1Click(Sender: TObject);
var
MiFont:LongInt;
begin
miFont:=label1.Font.Color;
ShowMessage(IntToSTr(mifont));
label2.Font.color:=MiFont;
end;


Un Saludo.

[Jack]

Gracias, lo había probado con double de la base, no funcionaba ahora si.