TFPReaderPSD

type TFPReaderPSD = class(TFPCustomImageReader)

protected

  FHeader: TPSDHeader;

  FColorDataBlock: TColorModeDataBlock;

  FBytesPerPixel: Byte;

  FScanLine: PByte;

  FLineSize: PtrInt;

  FPalette: TFPPalette;

  FWidth: Integer;

  FHeight: Integer;

  FBlockCount: Word;

  FChannelCount: Word;

  FLengthOfLine: array of Word;

  FByteRead: PtrInt;

  procedure CreateGrayPalette;

  procedure CreateBWPalette;

  function ReadPalette();

  procedure AnalyzeHeader;

  procedure InternalRead(); override;

  function ReadScanLine(); virtual;

  procedure WriteScanLine(); virtual;

  function InternalCheck(); override;

public

  constructor Create; override;

  property Compressed: Boolean; [r]

  property ThePalette: TFPPalette; [r]

  property Width: Integer; [r]

  property Height: Integer; [r]

  property BytesPerPixel: Byte; [r]

  property BlockCount: Word; [r]

  property ChannelCount: Word; [r]

  property Header: TPSDHeader; [r]

  property OnCreateImage: TPSDCreateCompatibleImgEvent; [rw]

end;

TFPReaderPSD

TFPCustomImageReader

TFPCustomImageHandler

TObject