Color-Namen in Farbwerte (Strings) wandeln
Hallo erstmal,
weiß zufällig jemand, wie ich folgende Farben in normale Texte "übersetzen" kann? clAqua clMaroon, clPurple, clTeal, clFuchsia, clNavy, Also ein Beispiel: clred -> rot clgreen -> grün ... MFG Alex |
Re: Color-Namen in Farbwerte (Strings) wandeln
das musst du manuell machen, also eine methode o.ä. gibt es dafür nicht.
edit: kuck mal hier (http://www.wackerart.de/rgbfarben.html), es gibt dermaßen viele farben, dass es sich egtl. nicht lohnen würde die alle ins deutsche zu übersetzen. du könntest evtl. irgendwie das cl abschneiden, und den rest in einem onlinewörterbuch nachschlagen, aber das wäre wohl zu viel des guten. wozu brauchst du denn das? |
Re: Color-Namen in Farbwerte (Strings) wandeln
natürlich gibt's dafür funktionen:
ColorToString STringToColor edit: die geben die halt dne namen der farben aus. wie "clRed". das übersetzen muss in der tat von hand erledigt werden. aenogym |
Re: Color-Namen in Farbwerte (Strings) wandeln
das hatte ich mir fast gedacht :-(
anderes problem: was heißen all die Farben? Klingt doof aber was ist der Unterschied von Braun und clMaroon? Oder von clNavy und Blau? MFG Alex |
Re: Color-Namen in Farbwerte (Strings) wandeln
Das mit den Funktionen habe ich auch schon gesehen aber die funktionieren nicht richtig...
versuche mal das:
Delphi-Quellcode:
Ich bekomme clRed abgezeigt anstatt "rot".
procedure TForm1.Button1Click(Sender: TObject);
var Str : String; begin Str := ColorToString(clRed); ShowMessage(Str); end; MFG Alex |
Re: Color-Namen in Farbwerte (Strings) wandeln
Zitat:
|
Re: Color-Namen in Farbwerte (Strings) wandeln
Das "Edit" habe ich zu spät gesehen :-)
Kann mir einer helfen, beim "übersetzen" der Farben? MFG Alex |
Re: Color-Namen in Farbwerte (Strings) wandeln
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz