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;

[Stevie]

Zitat:

Zitat von Sharky

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

:oops: Stimmt, das liegt ja an der Lesereihenfolge... 0x0000FF = 255 => Rot, aber in der Reihenfolge RGB ausgedrückt: FF0000, aber dann als Hexwert eigentlich nicht mehr richtig! :warn:

[Master_BB]

hm sorry bisher kappiere ich noch nicht was RGB usw ist.
und eure schnipsel laufe bisher noch nicht so ganz

Delphi-Quellcode:

  aColor := ColorBox4.Color;
  R := GetRValue( AColor );
  G := GetGValue( AColor );
  B := GetBValue( AColor );
  RGB := IntToHex(r, 2)+IntToHex(g, 2)+IntToHex(b, 2);

so hab ich das bisher und RGB gebe ich als Farbe an
font color="#'+rgb+'" usw

[Sharky]

Zitat:

Zitat von Master_BB

hm sorry bisher kappiere ich noch nicht was RGB usw ist.

Eine "HTML-Farbe" setzt sich zusammen aus:
Rot
Grün
Blau

Wenn Du nun eine Farbe im RGB-Format angiebst ist das z.B. (Hexschreibweis) $FF00FF. Dies entspricht einer Mischung aus 100% Rot und 100% Blau = clFuchsia.

Delphi bzw. Windows setzen die Farbanteile aber in der Reihenfolge:
Grün
Blau
Rot
zusammen. Und dann ist: $FF00FF = 100% Grün plus 100% Rot.

[scp]

Zitat:

Zitat von Sharky

Delphi bzw. Windows setzen die Farbanteile aber in der Reihenfolge:
Grün
Blau
Rot
zusammen. Und dann ist: $FF00FF = 100% Grün plus 100% Rot.

Sollte es nicht eher so aussehen?

Delphi bzw. Windows setzen die Farbanteile aber in der Reihenfolge:
Blau
Grün
Rot
zusammen. Und dann ist: $FF00FF = 100% Grün plus 100% Rot.[/quote]

[Master_BB]

so ich hab jetzt ein schönes ergebnis was perfekt funktioniert.

Delphi-Quellcode:

function TFHTMLExport.ColorToHTML(AColor : TColor) : string;
var
  ATemp : LongInt;
begin
  Result := '';
  ATemp  := ColorToRGB(AColor);
  Result := Format('#%.2x%.2x%.2x', [GetRValue(ATemp),
                                     GetGValue(ATemp),
                                     GetBValue(ATemp)]);
end;

lang hats gedauert
aber hier die funktion fals soetwas nocheinmal jemand brauchen sollte...

Greetz