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

[Rollo62]

Ja, stimmt, da hast du auch wieder Recht

Ich sag ja, ich kann mir das auch nicht erklären.
Vieleicht hat es was mit dem
    Azure = Alpha or TAlphaColor($F0FFFF); zu tun.

Hatte ja das PixelFormat in Verdacht, aber die Konvertierungsprobleme treten auch bei einer einfachen TAlphaColor Variablen auf.

Wie auch immer, bei iOS(64) lande ich IMMEr im else Zweig,
bei allen anderen OS holt er sich wie gewünscht das nächste Farbfeld.

Hast du das Demo mal getestet, oder verhält sich das bei dir etwa korrekt ?
Man muss natürlich den Fehlerfall ent-kommentieren ...

Delphi-Quellcode:

    LCol := Color_Swatch_Next_ByCase( LCol );  // TAlphaColor compare FAILURE
//    LCol := Color_Swatch_Next_ByIfthen( LCol );  // TAlphaColor compare OK

Rollo

[Der schöne Günther]

Zitat von Rollo62:

Hast du das Demo mal getestet, oder verhält sich das bei dir etwa korrekt ?

Sorry, bis ich den Mac Mini gefunden und die VM wo das RAD Studio für iOS halbwegs stabil lief wieder reaktiviert habe ist die Woche wahrscheinlich rum.
iOS müsste jemand anderes testen.

[knaeuel]

irgendwas mit den datentypen macht ios da jedenfalls anders.

ich habe mal ganz ketzerisch den farbwert in einen integer geschrieben und siehe da, die case-anweisung funzt damit mit ios

Delphi-Quellcode:

...
var farbwert:integer;
...

    farbwert:=Acol;

    case farbwert 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;

[Der schöne Günther]

TAlphaColor ist ein Cardinal
http://docwiki.embarcadero.com/Libra...es.TAlphaColor

Im Quelltext sind sie ja nicht typisiert, ich gehe mal davon aus dass z.B. TAlphaColorRec.Red auch als Cardinal erweitert wird? Sein Wert ist ja Alpha or TAlphaColor($FF0000); , vielleicht macht der iOS64 Compiler hier einen anderen Typen draus?

http://docwiki.embarcadero.com/Libra...TAlphaColorRec

[Rollo62]

Ja, ich dachte mir das auch in die Richtung,
aber wegen Alpha = TAlphaColor($FF000000); sollte doch immer ein 32-Bit wert herauskommen, der nicht z.B. in 16.Bit passt.

[knaeuel]

der unterschied zwischen cardinal (4 bytes unsigned) und integer (4 bytes signed) ist doch nur die vorzeichenunterstützung. integer ist signed, cardinal unsigned. möglicherweise liegt da auch der hund begraben. egal, runtergebrochen ist ein bit immer ein bit und fertig. 4 bytes lassen sich immer auch mit 4 bytes füttern. alles andere ist nur darstellerei

im debugger ist mir beim ios debuggen schon öfter aufgefallen, dass datentypen mit 64 bit statt den erwarteten 32 geführt werden.

eigentlich schließt der code das in diesem fall ja schon aus und leider will mein debugger die cardinal-werte mit ios auch nicht als hex anzeigen (an anderer stelle war es auch schonmal andersherum, dass nur hex angezeigt wurde). aber vielleicht gibt die längenberechnung ja auch einen "gepatchten" wert zurück, damit ... was weiß ich wozu

aber was solls. der int-wert funzt mindestens schonmal unter ios und windows. android hab ich nicht getestet.

[TiGü]

Mit Little/Big Endian und damit BGRA vs. RGBA vs. ARGB hat das aber nichts zu tun?

EDIT: Vergleiche am Ende von TAlphaColorRec:

Delphi-Quellcode:

 PAlphaColorRec = ^TAlphaColorRec;
  TAlphaColorRec = record
  const
    Alpha = TAlphaColor($FF000000);
    Aliceblue = Alpha or TAlphaColor($F0F8FF);
//...
    Null = TAlphaColor($00000000);
    constructor Create(const Color: TAlphaColor);
    class var ColorToRGB: function (Color: TAlphaColor): Longint;
    case Cardinal of
      0:
        (Color: TAlphaColor);
      2:
        (HiWord, LoWord: Word);
      3:
{$IFDEF BIGENDIAN}
        (A, R, G, B: System.Byte);
{$ELSE}
        (B, G, R, A: System.Byte);
{$ENDIF}
  end;