![]() |
Farbe als Klartext
Liste der Anhänge anzeigen (Anzahl: 1)
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; |
Re: Farbe als Klartext
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. |
Re: Farbe als Klartext
*Stoffwechselendprodukt*
die Klartexte der Farben sind in ExtCtrls fest programmiert - als resourcestring |
Re: Farbe als Klartext
Ich hätte jetzt spontan colortostring(color) gesagt ;)
Bei bedarf dann noch mit copy() die ersten 2 Chars -also das cl- löschen. |
Re: Farbe als Klartext
Kann man ja mit den wichtigsten Farben selber schreiben:
Delphi-Quellcode:
Ich hab jetzt kein Delphi zur Hand: Oder hieß das ColorToStr(...) :?
function PrettyNameOfColor(Color:TColor):String;
begin result := ColorToString(clRed); If result := 'clRed' then result := 'Rot' else If result := 'clBlack' then result := 'Black' else ... end; |
Re: Farbe als Klartext
das wär mir jetzt etwas zu aufwendig!
Trotzdem Danke für die Antworten! |
Re: Farbe als Klartext
Ich sagte doch: Eine einfache Map. Die lädst du dann per Resource oder Textdatei.
|
Re: Farbe als Klartext
Hallo,
wenn man keine neuen Farbnamen erfinden will und mit den resource strings zufrieden ist, dann funktioniert das hier:
Delphi-Quellcode:
Grüße vom marabu
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; |
Re: Farbe als Klartext
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? |
Re: Farbe als Klartext
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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:32 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz