Statt TColor-Namen TColor-Werte anzeigen

**Opa Knack**

Hallo,

ich suche nun schon seit längerem hier im Forum, habe aber nichts dazu finden können (nun ja, im Zeichen steigender Senilität habe ich wahrscheinlich auch die falschen Suchbegriffe gewählt):

Wenn ich einen Farbwert per ColorToString auslese, habe ich häufig die Farbnamen (z. B. clBlack, clWhite) als Ergebnis. Ich bräuchte aber die realen Werte (z. B. $00000000 oder $00FFFFFF).

Wie kann ich die erhalten?

Danke vorab und gute Nacht
Opa

**Manne**

Servus,
meinst to vielleicht die Funktion
ColorToRGB(Color: TColor): Longint; aus der Unit Graphics?
Macht meiner Meinung das was du brauchst.

**Sprint**

StringToColor

**Pr0g**

Bspw. so:

markieren

Code:

Edit1.Text := '$' + IntToHex(clWhite, 8);

**SMO**

Ich würde zusätzlich ColorToRGB benutzen:
Edit1.Text := '$' + IntToHex(ColorToRGB(clBtnFace), 8); Sonst bekommt man nicht den "realen Wert" von Systemfarben wie clBtnFace & Co.

Statt TColor-Namen TColor-Werte anzeigen

Statt TColor-Namen TColor-Werte anzeigen

Re: Statt TColor-Namen TColor-Werte anzeigen

Re: Statt TColor-Namen TColor-Werte anzeigen

Re: Statt TColor-Namen TColor-Werte anzeigen

Re: Statt TColor-Namen TColor-Werte anzeigen

Forumregeln

Manne Registriert seit: 8. Okt 2003 Ort: Hirrlingen 82 Beiträge Delphi 7 Personal	#2 Re: Statt TColor-Namen TColor-Werte anzeigen 6. Aug 2005, 00:34 Servus, meinst to vielleicht die Funktion ColorToRGB(Color: TColor): Longint; aus der Unit Graphics? Macht meiner Meinung das was du brauchst. So 6 wie wir 5 gibt es keine 4 andere, denn wir 3 sind die 2 1sten
	Zitat

Sprint Registriert seit: 18. Aug 2004 Ort: Edewecht 712 Beiträge Delphi 5 Professional	#3 Re: Statt TColor-Namen TColor-Werte anzeigen 6. Aug 2005, 00:57 StringToColor Ciao, Sprint. "I don't know what I am doing, but I am sure I am having fun!"
	Zitat

Pr0g Registriert seit: 21. Mai 2004 809 Beiträge Delphi 7 Personal	#4 Re: Statt TColor-Namen TColor-Werte anzeigen 6. Aug 2005, 01:26 Bspw. so: markieren Code: Edit1.Text := '$' + IntToHex(clWhite, 8);
	Zitat

SMO Registriert seit: 20. Jul 2005 178 Beiträge Delphi XE6 Professional	#5 Re: Statt TColor-Namen TColor-Werte anzeigen 6. Aug 2005, 20:47 Ich würde zusätzlich ColorToRGB benutzen: Edit1.Text := '$' + IntToHex(ColorToRGB(clBtnFace), 8); Sonst bekommt man nicht den "realen Wert" von Systemfarben wie clBtnFace & Co.
	Zitat