mORMot Open Source

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;
...