Cómo almacenar y mostrar colores?
 

Hola compañeros del foro. Estoy realizando una aplicación para una Biblioteca de una escuela. Los libros se clasifican por tema (ej: BIOLOGIA, HISTORIA, NOVELAS, ETC..) y marcas de colores que en forma visual hacen referencia al tema (EJ:VERDE=BIOLOGIA). He notado que en la paleta Dialog hay un control llamado ColorDialog que desplega una paleta de colores.

Necesitaría que me muestren un ejemplo o me describan como puedo utilizarlo (sí es el control correcto para el uso que yo le quiero dar) para seleccionar un color, luego, al volver de la paleta mostrarlo en un recuadro o control.

Y que tipo de campo necesito en paradox para almacenar este dato?


Saludos y gracias...

hola,

Primeramente, explica bien que deseas en realidad con la aplicacion.

puedes utilizar el componente de esta manera:

if colordialog1.execute then
showmessage(inttostr(colordialog1.color))

y el campo que necesitas definir en paradox es de tipo integer.

Lo que deseo hacer es poder elegir 1 color, mostrarlo en el formulario y almacenarlo en paradox... Andres, lo que faltaría sería mostrarlo...Disculpa si no he sido muy claro y gracias!

Te voy a dar una idea, espero que te ayude.

1 - selecciona un componente tpanel y ponlo en tu formulario
2 - luego selecciona un componente tcolordialog.
3 - pon dos tbuttom.

ahora vamos a codificar en el evento click del boton:

procedure TForm1.button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then //ejecutamos la ventana de colores
begin //si acepto la ventana entonces
panel1.color := colordialog1.color; //asignamos el color al panel
// Para verlo en pantalla

end
end;

// en este otro boton puedes almacenar el color en tu table
procedure TForm1.button2Click(Sender: TObject);
begin
table1.open;
table1.append;
table1.fieldbyname('color').asinteger := panel1.color;
table1.post;
end;

bueno ahi tienes como mostrar el color en pantalla, y como almacenarlo en tu base de datos. Espero que te sirva