anchor.diff:           #13     : Traite_SautLigne_Windows_Mac;
            #14..#31: Traite_non_imprimable;
            ' '     : Traite_Espaces;
  -         //dsactiv, on travaille en UTF8
  +         //désactivé, on travaille en UTF8
            //#128..#255: S:= S + ' &#x'+IntToHex( Ord(C),2)+'; ';
            else        S:= S + C;
            end;
  
positive.code:     procedure Abonne   ( _Objet: TObject; _Proc: TAbonnement_Objet_Proc);
      procedure Desabonne( _Objet: TObject; _Proc: TAbonnement_Objet_Proc);
      procedure Publie( _Name, _Value: String);
    //Paramtree
    public
      Name, Value: String;
    end;
  
negative.code:          then
               DataStyleName:='';
  
           if not_Get_Property( _e, 'text:fixed', DateFixe) // non utilisé pour l'instant
           then
               DateFixe:= '';
  
  