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

Greetz
Master_BB

IntToHex(ColorBox1.Selected, 8);

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

ich habe die digits auf 6 runter gestellt

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?

Hai Master_BB,

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

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

markieren

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

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.

Zitat von alcaeus:

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

markieren

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

Klappt das nicht gleich so?
IntToHex(ColorToRGB(ColorBox1.Selected), 6));

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

Greetz
alcaeus

Zitat von Stevie:

... Klappt das nicht gleich so?
IntToHex(ColorToRGB(ColorBox1.Selected), 6));

Dürfte eigentlich nicht gehen.

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"

markieren

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;