TTiffIFD

type TTiffIFD = class

public

  IFDStart: DWord;

  IFDNext: DWord;

  Artist: string;

  BitsPerSample: DWord;

  BitsPerSampleArray: array of Word;

  CellLength: DWord;

  CellWidth: DWord;

  ColorMap: DWord;

  Compression: DWord;

  Predictor: Word;

  Copyright: string;

  DateAndTime: string;

  DocumentName: string;

  ExtraSamples: DWord;

  FillOrder: DWord;

  HostComputer: string;

  ImageDescription: string;

  ImageHeight: DWord;

  ImageIsMask: Boolean;

  ImageIsPage: Boolean;

  ImageIsThumbNail: Boolean;

  ImageWidth: DWord;

  Make_ScannerManufacturer: string;

  Model_Scanner: string;

  Orientation: DWord;

  PageNumber: Word;

  PageCount: Word;

  PageName: string;

  PhotoMetricInterpretation: DWord;

  PlanarConfiguration: DWord;

  ResolutionUnit: DWord;

  RowsPerStrip: DWord;

  SamplesPerPixel: DWord;

  Software: string;

  StripByteCounts: DWord;

  StripOffsets: DWord;

  TileWidth: DWord;

  TileLength: DWord;

  TileOffsets: DWord;

  TileByteCounts: DWord;

  Tresholding: DWord;

  XResolution: TTiffRational;

  YResolution: TTiffRational;

  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