ColorBox - Color zu Hexcolor machen

[Master_BB]

Heya,
ich wollte mal gerne wissen wie man eine in der ColorBox ausgewählte Frabe
zu deren Hexwert umrechnet bzw umformt.

Greetz
Master_BB

[Stevie]

Delphi-Quellcode:

IntToHex(ColorBox1.Selected, 8);

[Master_BB]

ah ja thx funktioniert,
jedoch hab ich das problem das manche farben falsch sind.

ich habe die digits auf 6 runter gestellt

Delphi-Quellcode:

IntToHex(ColorBar1.Selected,6);

weil im HTML Code die Farben nur 6 Stellen hatten.
und bei manchen Farben ist auf der HTML Seite die Farbe anders als die in der ColorBar ausgewählte.
Wie kommt das?

[Sharky]

Hai Master_BB,

wird bei HTML nicht eine andere Reihenfolge verwendet? BTW: Schaue Dir auch einmal ColorToRGB an.

[alcaeus]

Sharky hat Recht. TColor speichert Daten nicht im RGB-Format, sondern komplett anders. Du musst wie folgt vorgehen:

Delphi-Quellcode:

var
  r, g, b: Byte;
  aColor: TColor;
  RGB: String[6];
begin
  ColorToRGB(aColor, r, g, b);
  RGB := IntToHex(r, 2)+IntToHex(g, 2)+IntToHex(b, 2);
end;

Greetz
alcaeus

[scp]

Zitat:

Zitat von alcaeus

Sharky hat Recht. TColor speichert Daten nicht im RGB-Format, sondern komplett anders.

"Komplett anders" würde ich nicht sagen, einfach nur verkehrt herum: BGR statt RGB.

[Stevie]

Zitat:

Zitat von alcaeus

Sharky hat Recht. TColor speichert Daten nicht im RGB-Format, sondern komplett anders. Du musst wie folgt vorgehen:

Delphi-Quellcode:

var
  r, g, b: Byte;
  aColor: TColor;
  RGB: String[6];
begin
  ColorToRGB(aColor, r, g, b);
  RGB := IntToHex(r, 2)+IntToHex(g, 2)+IntToHex(b, 2);
end;

Greetz
alcaeus

:gruebel: Klappt das nicht gleich so?

Delphi-Quellcode:

IntToHex(ColorToRGB(ColorBox1.Selected), 6));

[alcaeus]

:oops: :wall: :oops:

Ich muss eine falsche Deklaration im Kopf gehabt haben.
Der Weg von Stevie ist natürlich der richtige. Sorry...

Greetz
alcaeus

[Sharky]

Zitat:

Zitat von Stevie

...:gruebel: Klappt das nicht gleich so?

Delphi-Quellcode:

IntToHex(ColorToRGB(ColorBox1.Selected), 6));

Dürfte eigentlich nicht gehen.

Zitat:

Zitat von Die F1-Taste

Mit ColorToRGB können Sie den für Windows-API-Aufrufe benötigten RGB-Wert einer Farbe ermitteln. Die in den höchstwertigen Bits gespeicherte Information, welche Palette für nicht immer verfügbare Farben verwendet werden soll, wird von ColorToRGB entfernt.

Damit sind die Anteile noch immer im "BGR-Format"

[scp]

Delphi-Quellcode:

var
  r, g, b: Byte;
  aColor: TColor;
  RGB: String[6];
begin
  R := GetRValue( AColor );
  G := GetGValue( AColor );
  B := GetBValue( AColor );
  RGB := IntToHex(r, 2)+IntToHex(g, 2)+IntToHex(b, 2);
end;