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;

Delphi-Quellcode:

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:

Zitat von EWeiss (Beitrag 1432486)

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;

Delphi-Quellcode:

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 :wink:. 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:

Zitat von EWeiss (Beitrag 1432494)

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:

Zitat von peterbelow (Beitrag 1432530)

Zitat:

Zitat von EWeiss (Beitrag 1432494)

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