Previsualizar

[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