Farbe als Klartext

[marabu]

Hallo,

wenn man keine neuen Farbnamen erfinden will und mit den resource strings zufrieden ist, dann funktioniert das hier:

Delphi-Quellcode:

function ColorToName(c: TColor): string;
begin
  with TColorBox.CreateParented(HWND(-3)) do
  try
    Style := Style + [cbPrettyNames];
    Selected := c;
    if ItemIndex < 0
      then Result := ColorToString(c)
      else Result := Items[ItemIndex];
  finally
    Free;
  end;
end;

Grüße vom marabu