TFading

type TFading = record

public

  procedure SetFAlpha();

  procedure SetFMode();

  procedure SetFAlphaStep();

  procedure SetFDuration();

  function Execute();

  function Reset;

  procedure PutImage();

  procedure FillRect();

  property Alpha: Byte; [rw]

  property Mode: TFadingMode; [rw]

  property Step: Byte; [rw]

  property Duration: Integer; [rw]

end;