TTiffIFD

type TTiffIFD = class

public

  IFDStart: SizeUInt;

  IFDNext: SizeUInt;

  Artist: AnsiString;

  BitsPerSample: SizeUInt;

  BitsPerSampleArray: array of Word;

  CellLength: DWord;

  CellWidth: DWord;

  ColorMap: SizeUInt;

  Compression: DWord;

  Predictor: Word;

  Copyright: AnsiString;

  DateAndTime: AnsiString;

  DocumentName: AnsiString;

  ExtraSamples: SizeUInt;

  FillOrder: DWord;

  HostComputer: AnsiString;

  ImageDescription: AnsiString;

  ImageHeight: DWord;

  ImageIsMask: Boolean;

  ImageIsPage: Boolean;

  ImageIsThumbNail: Boolean;

  ImageWidth: DWord;

  Make_ScannerManufacturer: AnsiString;

  Model_Scanner: AnsiString;

  Orientation: DWord;

  PageNumber: Word;

  PageCount: Word;

  PageName: AnsiString;

  PhotoMetricInterpretation: DWord;

  PlanarConfiguration: DWord;

  ResolutionUnit: DWord;

  RowsPerStrip: DWord;

  SamplesPerPixel: DWord;

  Software: AnsiString;

  StripByteCounts: SizeUInt;

  StripOffsets: SizeUInt;

  TileWidth: DWord;

  TileLength: DWord;

  TileOffsets: SizeUInt;

  TileByteCounts: SizeUInt;

  Tresholding: DWord;

  XResolution: TTiffRational;

  YResolution: TTiffRational;

  YCbCr_LumaRed: Single;

  YCbCr_LumaGreen: Single;

  YCbCr_LumaBlue: Single;

  Img: TFPCustomImage;

  FreeImg: Boolean;

  RedBits: Word;

  GreenBits: Word;

  BlueBits: Word;

  GrayBits: Word;

  AlphaBits: Word;

  BytesPerPixel: Word;

  procedure Clear;

  procedure Assign();

  procedure ReadFPImgExtras();

  function ImageLength;

  constructor Create;

  destructor Destroy; override;

end;

TTiffIFD

TObject