TColor32Rec

type TColor32Rec = packed record

  case LongInt of

    0: (

        Color: TColor32;

      );

    1: (

        B: Byte;

        G: Byte;

        R: Byte;

        A: Byte;

      );

    2: (

        Channels: array [0..3] of Byte;

      );

    3: (

        Color24Rec: TColor24Rec;

      );

end;