anchor.diff:    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;
  
positive.code: {$ENDIF}
  
  
  end.
  
  
negative.code: 
  //----------------------------------------------------------------------------------------------------------------------
  
  var ReverseTable: array [0..255] of Byte;
  
  
  const
    G3_EOL = -1;
    G3_INVALID = -2;
  
  
  //----------------------------------------------------------------------------------------------------------------------
  procedure TCCITTDecoder.ReverseBits(Source: Pointer; PackedSize: Integer);
  