Farbe als Klartext

[Helmi]

Hallo,

ist es möglich, eine Farbe als Klartext anzeigen zu lassen, wie es die Komponente "TColorBox" bei der Property "Style" bei "cbPrettyNames" auch macht (siehe auch pic)?

Ich stell mir das etwa so vor:

Delphi-Quellcode:

var
  S_Farbe: String;

begin
  S_Farbe := PrettyNameOfColor(clRed);
  //in S_Farbe sollte dann "rot" stehen
end;

[3_of_8]

Du könntest dir eine Map basteln, die TColor->String zuordnet. (HashMap z.B.)

Könnte aber auch sein, dass es irgendwo eine WinAPI-Funktion oder so dafür gibt. Ich hab leider den Source nicht, ansonsten könnte man einfach in der ExtCtrls schauen, wie die TColorBox das macht.

[Helmi]

*Stoffwechselendprodukt*

die Klartexte der Farben sind in ExtCtrls fest programmiert - als resourcestring

[MisterNiceGuy]

Ich hätte jetzt spontan colortostring(color) gesagt ;)
Bei bedarf dann noch mit copy() die ersten 2 Chars -also das cl- löschen.

[halinchen]

Kann man ja mit den wichtigsten Farben selber schreiben:

Delphi-Quellcode:

function PrettyNameOfColor(Color:TColor):String;
begin
  result := ColorToString(clRed);
  If result := 'clRed' then result := 'Rot' else
  If result := 'clBlack' then result := 'Black' else
  ...
end;

Ich hab jetzt kein Delphi zur Hand: Oder hieß das ColorToStr(...) :?

[Helmi]

das wär mir jetzt etwas zu aufwendig!

Trotzdem Danke für die Antworten!

[3_of_8]

Ich sagte doch: Eine einfache Map. Die lädst du dann per Resource oder Textdatei.

[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

[Helmi]

der Code gefällt mir :-)

Wie ist das eigentlich auf rechnern mit einem anderssprachigen Windows?
Wird da der deutsche Text verwendet oder der des Windows?

Ich vermute mal das der Text der Sprache verwendet wird in der auch kompiliert wurde, weil die Texte als Source mit gegeben werden, stimmt das?

[Edit]
Was bewirkt eigentlich "CreateParented(HWND(-3))"?
Wieso CreateParented und wieso -3?

[marabu]

Hallo Helmi,

du hast Recht mit deiner Vermutung: Die Farbnamen sind lokalisierte resourcestring Deklarationen in der Unit ExtCtrls und diese werden vom Linker in die EXE eingebunden.

Zur Methode CreateParented() habe ich sicher an anderer Stelle schon einmal was geschrieben. Mit einem einfachen Create(nil) funktioniert es halt nicht, weil die Komponente TColorBox ohne Parent nicht arbeiten will. Da ich aber gerne ihren Übersetzungsmechanismus nutzen möchte, habe ich die Komponente kurzerhand zu einem message-only window gemacht. Dazu setze ich als Handle des ParentWindow HWND_MESSAGE (-3).

Freundliche Grüße