ColorBox - Color zu Hexcolor machen

[Stevie]

Zitat von Sharky:

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

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!

[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 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 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