TFPReaderPNG

type TFPReaderPNG = class(TFPCustomImageReader)

protected

  Chunk: TChunk;

  UseTransparent: Boolean;

  EndOfFile: Boolean;

  TransparentDataValue: TColorData;

  UsingBitGroup: Byte;

  DataIndex: LongWord;

  DataBytes: TColorData;

  function CurrentLine();

  function PrevSample();

  function PreviousLine();

  function PrevLinePrevSample();

  procedure HandleChunk; virtual;

  procedure HandlePalette; virtual;

  procedure HandleAlpha; virtual;

  function CalcX();

  function CalcY();

  function CalcColor;

  procedure HandleScanLine(); virtual;

  procedure DoDecompress; virtual;

  function DoFilter(); virtual;

  procedure SetPalettePixel();

  procedure SetPalColPixel();

  procedure SetColorPixel();

  procedure SetColorTrPixel();

  function DecideSetPixel; virtual;

  procedure InternalRead(); override;

  function InternalCheck(); override;

  class function InternalSize(); override;

  property ConvertColor: TConvertColorProc; [r]

  property CurrentPass: Byte; [r]

  property Pltte: Boolean; [r]

  property ThePalette: TFPPalette; [r]

  property Header: THeaderChunk; [r]

  property CountScanlines: EightLong; [r]

  property ScanLineLength: EightLong; [r]

public

  constructor create; override;

  destructor destroy; override;

  property GrayScale: Boolean; [r]

  property WordSized: Boolean; [r]

  property Indexed: Boolean; [r]

  property UseAlpha: Boolean; [r]

  property BitDepth: Byte; [r]

  property ColorType: Byte; [r]

  property Compression: Byte; [r]

  property Filter: Byte; [r]

  property Interlace: Byte; [r]

end;

TFPReaderPNG

TFPCustomImageReader

TFPCustomImageHandler

TObject