Ich konvertiere RGB zu Hex.

zusammenfalten · markieren

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

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

markieren

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

Zitat von EWeiss:

Ich konvertiere RGB zu Hex.

zusammenfalten · markieren

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?

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.

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.

markieren

Delphi-Quellcode:

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

gruss

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).

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