RGBToHex und umgekehrt

Ich konvertiere RGB zu Hex.

Delphi-Quellcode:

			function TSkinEngine.RGBtoHEX(ColrRGB: ColorRef): string;

var

 R, G, B: Byte;

begin

  R:= GetRValue(ColrRGB);

  G:= GetGValue(ColrRGB);

  B:= GetBValue(ColrRGB);

  Result:= Format('$%.2x%.2x%.2x', [R, G, B]);

end;

UseColor := RGBtoHEX(RGB(11,37,86)); // := $0B2556;

jetzt umgekehrt.

markieren

Delphi-Quellcode:

			    if UseColor > '' then

    begin

      R := Byte(StrToInt('$' + Copy(UseColor, 3, 2)));

      G := Byte(StrToInt('$' + Copy(UseColor, 5, 2)));

      B := Byte(StrToInt('$' + Copy(UseColor, 7, 2)));

    end

Die Werte von R, G, B sind aber jetzt komplett anders. Was mache ich falsch?

markieren

Delphi-Quellcode:

			R := 178;

G := 85;

B := 6;

gruss

RGBToHex und umgekehrt

RGBToHex und umgekehrt

Forumregeln