Hola,
Cita:
|
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...
Cita:
|
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;