anchor.diff:  // adjust font size to display device
             Fnt.FTxtSize:= IntToStr(Round((StrToInt(FontSize)*fpgApplication.Screen_dpi_y) div 72));
             TPdfStream(TPdfXRef(FXRefObjets[PageNum]).FStream).AddItem(Fnt);
  -          if Couleur> -1
  -          then
  -            begin
  -            Clr:= TPdfColor.CreateColor(True,Couleur);
  -            TPdfStream(TPdfXRef(FXRefObjets[PageNum]).FStream).AddItem(Clr);
  -            end;
  +          Clr:= TPdfColor.CreateColor(True,Couleur);
  +          TPdfStream(TPdfXRef(FXRefObjets[PageNum]).FStream).AddItem(Clr);
             end;
           Txt:= TPdfText.CreateText(TextPosX,TextPosY,Writting);
           TPdfStream(TPdfXRef(FXRefObjets[PageNum]).FStream).AddItem(Txt);
  
positive.code:     then
        with TPdfLine(PdfPage[Cpt]) do
          begin
          if LineColor> -1
          then
            begin
            Clr:= TPdfColor.CreateColor(False,LineColor);
            TPdfStream(TPdfXRef(FXRefObjets[PageNum]).FStream).AddItem(Clr);
            end;
          Sty:= TPdfLineStyle.CreateLineStyle(LineStyle,0);
          TPdfStream(TPdfXRef(FXRefObjets[PageNum]).FStream).AddItem(Sty);
          Lin:= TPdfLigne.CreateLigne(LineThikness,LineBeginX,LineBeginY,LineEndX,LineEndY);
  
negative.code:     then
        with TPdfRect(PdfPage[Cpt]) do
          begin
          Clr:= TPdfColor.CreateColor(True,RectColor);
          TPdfStream(TPdfXRef(FXRefObjets[PageNum]).FStream).AddItem(Clr);
          if RectStroke
          then
            begin
  