TColorBox - Farbennamen ausblenden

[Cöster]

Hi!

Wie kann man bei einer TColorBox die Anzeige des Namens der Farbe ändern? Ist das überhaupt möglich? Es soll nur ein rechteckiger Kasten mit der Farbe zu sehen sein.

[Reinhard Kern]

Zitat:

Zitat von Cöster

Hi!

Wie kann man bei einer TColorBox die Anzeige des Namens der Farbe ändern? Ist das überhaupt möglich? Es soll nur ein rechteckiger Kasten mit der Farbe zu sehen sein.

Hallo,

das mache ich einfach mit TEdit: kleines quadratisches Edit-Feld ohne Text, bei OnClick öffnet sich der Farbauswahldialog, und was da ausgewählt wird, wird als Farbe für das Feld verwendet.

Delphi-Quellcode:

procedure TRKIniSettingTable.ColorEditClick (Sender: TObject);
var oldcolor : TColor;
begin
if not Assigned (IniColorDialog) then
  begin
  beep;
  exit;
  end;
with Sender as TEdit do
  begin
  oldcolor := Color;
  Color := clWhite;
  Text := '?';
  end;
IniColorDialog.Color := oldcolor;
if IniColorDialog.Execute then
  begin
  with Sender as TEdit do
    begin
    Color := IniColorDialog.Color;
    Text := '';
    end;
  end
else
  begin
  with Sender as TEdit do
    begin
    Color := oldcolor;
    Text := '';
    end;
  end;
end;

Gruss Reinhard