Color en un campo almacenado
 

He logrado guardar un color elegido en un campo de una base de datos.

Código Delphi [-]
ColorDialog1.Color := Shape1.Brush.Color;
ColorDialog1.Execute;
Shape1.Brush.Color := ColorDialog1.Color;
IBQuery1.Edit;
IBQuery1.FieldByName('COLOR').Value := ColorDialog1.Color;
IBQuery1.Post;

Pero ahora quiero hacer la función inversa, recuperarlo desde la base de datos y asignar ese color al Shape1.

El campo COLOR de la BD es tipo caracter y me graba un String correspondiente al valor decimal del Hexadecimal del Color correspondiente. Lo que no sé es como convertir de nuevo ese string decimal en un valor que le pueda asignar directamente al Shape1.Brush.Color.

Gracias por vuestra ayuda.

Puessssss
 

Pues si declaras una variable entera resuelves el caso

Código Delphi [-]
  Var
    MyColor : Integer;
 begin
   MyColor := Shape1.Brush.Color;
   IBQuery1.Edit;
   IBQuery1.FieldByName('COLOR').Value := Mycolor;
   IBQuery1.Post;
 end;

 ///Despues
  MyColor := IBQuery1.FieldByName('COLOR').asInteger.

 //Supongo que el campo deba ser de tipo numérico.

Espero te sirva.


Saludos.

Edito:
:p Me faltaba.

Código Delphi [-]
  Shape1.Brush.Color := MyColor;

Saludos

Muchas Gracias por vuestra ayuda!

Espero pronto tanmbién resolver dudas a los demás, de momento sigo siendo yo el necesitado ...

El código lo he solucionado directamente como:

Código Delphi [-]
Shape1.Brush.Color := IBQuery1.FieldByName('COLOR').asInteger;

No me hizo falta la variable intermedia.