[FMX, iOS] TAlphaColor Farbvergleiche falsch (nur iOS)

[Rollo62]

Hallo zusammen,

was stimmt mit diesem Code nicht ?

Vergleiche eigentlich nur auf Standard-Farben von TAlphaColorRec, mit
dem aktuellen Wert, in diese Funktion.

Delphi-Quellcode:

    case LCol of
        TAlphaColorRec.Red        : Result := TAlphaColorRec.Fuchsia;
        TAlphaColorRec.Fuchsia    : Result := TAlphaColorRec.Blue;

War getestet auf allen Platformen, jetzt noch iOS ...

Plötzlich kommt kein Vergleich mehr durch
Es landet Alles im else Zweig.

Habe es dann erweitert, und mit if Vergleich versucht -> dasselbe Ergebnis

Die Werte im Debugger links und rechts sind gleich, trotzdem geht er nicht ins if.
(z.B. if LCol = LCmp FFFF0000 = FFFF0000)

Habe dann versucht die Bytes einzeln anzufassen s.u., und siehe da,
die R Werte sind plötzlich verschieden.

Delphi-Quellcode:

function TS4Color.Swatch_Next : TAlphaColor;
var
  LCol, LCmp : TAlphaColor;
  LC1, LC2 : System.Byte;
begin
    LCol := Self;

    LCmp := TAlphaColorRec.Red;
    LC1  := TAlphaColorRec(LCol).R;  // hier kommt 144 an
    LC2  := TAlphaColorRec(LCmp).R;  // und hier 255  bei gleichem LCmp im Debugger, s.o.

    if LC1 = LC2  then
    begin
        if TAlphaColorRec(LCol).G = TAlphaColorRec(LCmp).G  then
        begin
            if TAlphaColorRec(LCol).B = TAlphaColorRec(LCmp).B  then
            begin
                LCmp := 0;
            end;

        end;
    end;


    case LCol of
        TAlphaColorRec.Red        : Result := TAlphaColorRec.Fuchsia;
        TAlphaColorRec.Fuchsia    : Result := TAlphaColorRec.Blue;
        TAlphaColorRec.Blue       : Result := TAlphaColorRec.Darkblue;
        TAlphaColorRec.Darkblue   : Result := TAlphaColorRec.Lightblue;
        TAlphaColorRec.Lightblue  : Result := TAlphaColorRec.Green;
        TAlphaColorRec.Green      : Result := TAlphaColorRec.Darkgreen;
        TAlphaColorRec.Darkgreen  : Result := TAlphaColorRec.Lightgreen;
        TAlphaColorRec.Lightgreen : Result := TAlphaColorRec.Cyan;
        TAlphaColorRec.Cyan       : Result := TAlphaColorRec.Purple;
        TAlphaColorRec.Purple     : Result := TAlphaColorRec.Orangered;
        TAlphaColorRec.Orangered  : Result := TAlphaColorRec.Red;
        else
                                    Result := TAlphaColorRec.Red;
    end;

    Self := Result; // Make myself also different

end;

Wie kann das sein, wahrscheinlich bin ich schon überarbeitet und brauche jetzt mal eine Pause