mORMot Open Source

vandrovnik

Member

From: Czech Republic

Registered: 2017-05-16

Posts: 4

Bug fix in procedure TPdfEnum.SelectObjectFromIndex(iObject: integer)

Hello,

I had problems creating a simple PDF - result was not a valid PDF (Adobe Reader complained when trying to print, online validator complained too.).
I have solved it making following change to procedure TPdfEnum.SelectObjectFromIndex(iObject: integer):

procedure TPdfEnum.SelectObjectFromIndex(iObject: integer);
...
        NULL_PEN: begin
          if fInLined and ((pen.style<>PS_NULL) or (pen.null<>true)) then begin
            fInLined := False;
            if not pen.null then Canvas.Stroke;
          end;
          pen.style := PS_NULL;
          pen.null := true;
        end;
        WHITE_PEN, BLACK_PEN: begin
          if fInLined and ((pen.color<>STOCKPENCOLOR[iObject]) or (pen.null<>false)) then begin
            fInLined := False;
            if not pen.null then Canvas.Stroke;
          end;
          pen.color := STOCKPENCOLOR[iObject];
          pen.null := false;
        end;
...

If you find it usefull and correct, please use it. Kind regards,

Karel

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,655

Website

Re: Bug fix in procedure TPdfEnum.SelectObjectFromIndex(iObject: integer)

Please check https://synopse.info/fossil/info/6453a6ad46

Thanks for the feedback!