TBGRAWriterTiff

type TBGRAWriterTiff = class(TFPCustomImageWriter)

protected

  FCompression: Boolean;

  FPremultiplyRGB: Boolean;

  FSaveCMYKAsRGB: Boolean;

  fStartPos: Int64;

  FEntries: TFPList;

  fStream: TStream;

  fPosition: LongWord;

  procedure ClearEntries;

  procedure WriteTiff;

  procedure WriteHeader;

  procedure WriteIFDs;

  procedure WriteEntry();

  procedure WriteData;

  procedure WriteEntryData();

  procedure WriteBuf();

  procedure WriteWord();

  procedure WriteDWord();

  procedure SetImgExtrasFromProperties(); virtual;

  procedure InternalWrite(); override;

  procedure AddEntryString();

  procedure AddEntryShort();

  procedure AddEntryLong();

  procedure AddEntryShortOrLong();

  procedure AddEntryRational();

  procedure AddEntry();

  procedure TiffError();

  procedure EncodeDeflate();

public

  constructor Create; override;

  destructor Destroy; override;

  procedure Clear;

  procedure AddImage();

  procedure SaveToStream();

published

  property Compression: Boolean; [rw]

  property SaveCMYKAsRGB: Boolean; [rw]

  property PremultiplyRGB: Boolean; [rw]

end;

TBGRAWriterTiff

TObject