TGradientSpec

type TGradientSpec = record

  Direction: LongWord;

  Mode: Word;

  case LongInt of

    0: (

        Rel: record

          BasePen: Word;

          Contrast: array [0..1] of Byte;

        end;

      );

    1: (

        Abs: record

          RGBStart: array [0..2] of Byte;

          RGBEnd: array [0..2] of Byte;

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

        end;

      );

end;