Julian posted an interesting post today called Rounded Tables in Notes. I had seen the border image option, but I had never realized how it worked for something like rounded table borders. Of course, once I saw it, I had to add the ability to create these to our Midas Rich Text LSX. I create a little gif image:
and then I added it as an image resource to a test database. After adding a bit of capability to Midas, I wrote the following script.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As New GeniiRTItem
Set doc = session.DocumentContext
Call rtitem.ConnectBackend(doc.Handle, "Body")
Set rtchunk = rtitem.DefineChunk("Everything")
Call rtitem.Everything.AppendTable(1, 1, |
BorderStyle="Image"
BorderImage="rounded1.gif"
BorderThickness="5"
CellBorder="NNNN"|, "Table created by Midas using border image")
rtitem.Save
End Sub
I have included the look of the table created in the Notes client, but, alas, the Domino HTML renderer does not show the border image. I'm not sure why not, since I think CSS would allow it. Ah well, I guess I can add that to the HTML rendering engine tomorrow.
Looks pretty snazzy. Thanks, Julian!
Copyright © 2005 Genii Software Ltd.