anchor.diff:          then
               raise EXY_from_CellName_Exception
                     .
  -                   Create(  'La syntaxe du numro de ligne ('+sY+') '
  +                   Create(  'La syntaxe du numéro de ligne ('+sY+') '
                              +'est incorrecte dans '
  -                           +'la rfrence de cellule ('+CellName+')');
  +                           +'la référence de cellule ('+CellName+')');
      end;
   begin
        CellName:= UpperCase( CellName);
  
positive.code:     procedure Setmimetype( _mimetype: String);
    public
      property mimetype: String read Getmimetype write Setmimetype;
    //Gestion modle/document
    public
      Is_template: Boolean;
      procedure Is_template_from_extension;
  
negative.code:      if Utilise_Style( Get_xmlStyles_MASTER_STYLES, Style_Name) then exit;
       if Utilise_Style( Get_xmlContent_TEXT        , Style_Name) then exit;
  
       OOoDelphiReportEngineLog.Entree( 'Style '+Style_Name+' inutilisé.');
       Supprime_Item( _eStyle);
  end;
  
  