anchor.diff:  //----------------- TCCITTDecoder --------------------------------------------------------------------------------------
   
   constructor TCCITTDecoder.Create(Options: Integer; SwapBits, WordAligned: Boolean; Width: Cardinal);
  -
   begin
     FOptions := Options;
     FSwapBits := SwapBits;
  
positive.code: {$ENDIF}
  
  
  end.
  
  
negative.code:   end;
  
    TCCITTFax3Decoder = class(TCCITTDecoder)
    public
      procedure Decode(var Source, Dest: Pointer; PackedSize, UnpackedSize: Integer); override;
      procedure Encode(Source, Dest: Pointer; Count: Cardinal; var BytesStored: Cardinal); override;
    end;
  
    TCCITTFax4Decoder = class (TCCITTDecoder)
    public
      procedure Decode(var Source, Dest: Pointer; PackedSize, UnpackedSize: Integer); override;
      procedure Encode(Source, Dest: Pointer; Count: Cardinal; var BytesStored: Cardinal); override;
  