Previsualizar

[dicatek]

Hola!

Estoy llegando al final de mi mini proyecto en el que muchos de vosotros me habeis ayudado. Para terminar queria meter una opción que fuera como una especie de opción de previsualizar, es decir, que cuando los usuarios escogieran un color de la paleta de colores, este color cambiara en el texto de un label (situado encima de un Timage). Puedo hacer esto?

Los problemas que me he encontrado y no sé como solucionar son:

·Antes de que el usuario cargue la imagen, el label ya sale, con lo que queda muy poco profesional.

·Como puedo hacer para que el color escogido haga variar la label?

Una vez más...

Muchas gracias!

[dec]

Hola,

Antes de que el usuario cargue la imagen, el label ya sale, con lo que queda muy poco profesional.

Dale a su propiedad "Visible" el valor "False", al menos hasta que se "previsualize" un color por primera vez...

Como puedo hacer para que el color escogido haga variar la label?

Código Delphi [-]
var
  dlg: TColorDialog;
begin
  dlg := TColorDialog.Create(Self);
  if dlg.Execute then
  begin
    Label1.Visible := true;
    Label1.Font.Color := dlg.Color;
  end;
  dlg.Free;
end;

Piensa que acaso un "TLabel" no es lo más adecuado en este caso, sino que podrías emplear (por ejemplo) un componente "TShape" (pestaña "Additional" de la paleta de componentes), y hacer lo propio:

Código Delphi [-]
var
  dlg: TColorDialog;
begin
  dlg := TColorDialog.Create(Self);
  if dlg.Execute then
  begin
    Shape1.Visible := true;
    Shape1.Brush.Color := dlg.Color;
  end;
  dlg.Free;
end;

[dicatek]

Ok!

Gracias por los consejos.

TODO SOLUCIONADO.

MERCI :P