How to add border radius for tables

[diegovdc]

Hello, just wondering if there is a way to add border radius to tables as I don't see this in the documentation.

[yogthos]

There isn't a way to set that at the moment, however it wouldn't be too difficult to do if the underlying OpenText API allows for this. Would be a matter of passing a new key here and then setting the field on the table. I might not have time to look at this in the near future, but I'm open to helping with a PR if you'd be up for giving it a shot.

[diegovdc]

Thanks @yogthos, I guess you meant OpenPDF right? As far as I can see the Table class does not have a field for setting the border radius or something similar.

[yogthos]

Yeah, it would have to be provided in the OpenPDF API.

[fredgers]

iText has a FAQ about this.

The below code worked for me.

(:import [com.lowagie.text.pdf PdfPCellEvent PdfPTable])

(def brdr
  (reify
    PdfPCellEvent
    (cellLayout [this cell rect canvas]
      (let [radius 4
            lineWidth 1.5
            cb (get canvas PdfPTable/BACKGROUNDCANVAS)
            [l b w h] [(.getLeft rect)(.getBottom rect)(.getWidth rect)(.getHeight rect)]]
         (.roundRectangle cb l b w h radius)
         (.setLineWidth cb lineWidth)
         (.stroke cb)))))

[:pdf-cell {:event-handler brdr}]