RGBToHex und umgekehrt

[EWeiss]

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.

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?

Delphi-Quellcode:

R := 178;
G := 85;
B := 6;

gruss

[EWeiss]

sorry für die Post habe mich da um eins vertan

Delphi-Quellcode:

      R := Byte(StrToInt('$' + Copy(UseColor, 2, 2)));
      G := Byte(StrToInt('$' + Copy(UseColor, 4, 2)));
      B := Byte(StrToInt('$' + Copy(UseColor, 6, 2)));

So stimmt es.

gruss

[peterbelow]

Zitat von EWeiss:

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.

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?

Du kannst nicht zählen . Dein UseColor hat 7 Zeichen, R belegt die Positionen 2 und 3, G 4 und 5, B 6 und 7.

[EWeiss]

Zitat:

Du kannst nicht zählen . Dein UseColor hat 7 Zeichen, R belegt die Positionen 2 und 3, G 4 und 5, B 6 und 7.

Warum musst du hier noch deinen Senf beitragen ?

Ich habe doch vor deinem Beitrag es schon selbst berichtigt.

Zitat:

sorry für die Post habe mich da um eins vertan

Ich weis welche plätze hier belegt werden

Nochmal.

Delphi-Quellcode:

R := Byte(StrToInt('$' + Copy(UseColor, 2, 2)));
G := Byte(StrToInt('$' + Copy(UseColor, 4, 2)));
B := Byte(StrToInt('$' + Copy(UseColor, 6, 2)));

gruss

[peterbelow]

Zitat von EWeiss:

Warum musst du hier noch deinen Senf beitragen ?

Ich habe doch vor deinem Beitrag es schon selbst berichtigt.
gruss

Überschneidung, sorry. Deine Korrektur war noch nicht sichtbar als ich mit meiner Antwort angefangen habe (und dann unterbrochen wurde).

[EWeiss]

Zitat von peterbelow:

Zitat von EWeiss:

Warum musst du hier noch deinen Senf beitragen ?

Ich habe doch vor deinem Beitrag es schon selbst berichtigt.
gruss

Überschneidung, sorry. Deine Korrektur war noch nicht sichtbar als ich mit meiner Antwort angefangen habe (und dann unterbrochen wurde).

Na ja nach 30 Minuten hätte es eigentlich sichtbar sein müssen..
Aber egal.

Trotzdem Danke!
Sorry für meine Unprofessionelle Antwort.

Zitat:

Warum musst du hier noch deinen Senf beitragen ?

gruss