14 respuestas en este tema

[JoAnCa]

Hola a todos
Tengo una situacion en la que se quiere hacer un sistema de avisos mediante colores, segun determinados criterios, pero estos criterios y colores los configura el usuario como estime conveniente

El problema me lo encuentro en como guardar la informacion del color que escoja, para ello uso el componente TColorComboBox, que me devuelve un tipo TColor.

Como tengo que declarar el tipo de dato en la BD (uso Access), o de que forma haria para guardar ese color

[enecumene]

Generalmente los TColor son valores HEX, lo podrías guardar en un campo string como $FFFFFF por ejemplo y luego convertirlo a TColor:

delphi

function HexToTColor(sColor : string) : TColor;
begin
   Result :=
     RGB(
       StrToInt('$'+Copy(sColor, 1, 2)),
       StrToInt('$'+Copy(sColor, 3, 2)),
       StrToInt('$'+Copy(sColor, 5, 2))
     ) ;
end;

Se usaría así:

delphi

var Color: TColor;
begin
 Color := Table1Color.AsString;
 
Edit1.color := Color;
end;

Saludos.

[enecumene]

Se me olvidó decirte cómo lo grabarías :$, lo acabo de probar de esta forma y me funciona perfecto:

delphi

function TColorToHex(Color : TColor) : string;
begin
   Result :=
     IntToHex(GetRValue(Color), 2) +
     IntToHex(GetGValue(Color), 2) +
     IntToHex(GetBValue(Color), 2) ;
end;
 
procedure TForm1.ColorBox1Click(Sender: TObject);
begin
ShowMessage(TColorToHex(ColorBox1.Selected));
end;

Saludos.

[egostar]

Y no sería mas fácil grabar el valor como entero directamente?

delphi

var
  IDColor: TColor;
 
procedure TForm1.ColorBox1Select(Sender: TObject);
begin
  IDColor := ColorBox1.Selected;
end;
 
procedure TForm1.GrabaDatos;
begin
  Tabla.Append;
  Tabla.CampoColor.Value := IDColor;
  Tabla1.Post;
  Tabla1.Close; 
end;

Salud OS

[enecumene]

Y no sería mas fácil grabar el valor como entero directamente?

Porque no todos son enteros , los hay con caracteres, como ejemplo te pongo el color clMenuHighlight, su valor es "1D0000"

Saludos.

[egostar]

Has la prueba amigo, crea un campo entero en una base de datos, agrega el valor entero de TColor y nos avisas si no funciona como entero

Recuerda que los enteros no solo son Positivos

Salud OS

[enecumene]

Sí amigo eso está bien, pero...¿y los colores con valores enteros y strings? ¿cómo lo metes en un campo entero? .

[JoAnCa]

Gracias a todos por sus respuestas,
Lo probare como entero, y tambien utilizare las funciones RGBToColor y ColorToRGB que devuelven un entero, es decir convierten TColor a Integer y viceversa

[eduarcol]

Sí amigo eso está bien, pero...¿y los colores con valores enteros y strings? ¿cómo lo metes en un campo entero? .

Recuerda que los valores enteros son base 10, y los hexadecimales son base 16, asi que no te preocupes por las letras, en resumen de cuenta lo que  quiero decir es que el TColor es un numero entero, indeferentemente que sea Hexadecimal o decimal igual es un entero.

[axesys]

Yo uso un cxDBColorComboBox de los componentes DevExpress y lo guardo como entero en la tabla de firebird


Saludos

[seoane]

Solo recordar estas funciones de la unit "graphics"

delphi

function ColorToString(Color: TColor): string;
function StringToColor(const S: string): TColor;
function ColorToIdent(Color: Longint; var Ident: string): Boolean;
function IdentToColor(const Ident: string; var Color: Longint): Boolean;

[HMartinazzi]

Perdón que me meta acá, pero no se como redactar una pregunta nueva.

 

Me gustaría saber si se puede mostrar un ColorComboBox Con los nombres de los colores en Español

[HMartinazzi]

Se me olvidó decirte cómo lo grabarías :$, lo acabo de probar de esta forma y me funciona perfecto:

 

delphi

function TColorToHex(Color : TColor) : string;
begin
   Result :=
     IntToHex(GetRValue(Color), 2) +
     IntToHex(GetGValue(Color), 2) +
     IntToHex(GetBValue(Color), 2) ;
end;
 
procedure TForm1.ColorBox1Click(Sender: TObject);
begin
ShowMessage(TColorToHex(ColorBox1.Selected));
end;

Saludos.

 

Y ¿Como sería con FMX?

 

[HMartinazzi]

Se me olvidó decirte cómo lo grabarías :$, lo acabo de probar de esta forma y me funciona perfecto:

 

delphi

function TColorToHex(Color : TColor) : string;
begin
   Result :=
     IntToHex(GetRValue(Color), 2) +
     IntToHex(GetGValue(Color), 2) +
     IntToHex(GetBValue(Color), 2) ;
end;
 
procedure TForm1.ColorBox1Click(Sender: TObject);
begin
ShowMessage(TColorToHex(ColorBox1.Selected));
end;

Saludos.

 

[HMartinazzi]

Y ¿Cómo sería con FMX?