ND6.5 color finder

How to make the NotesColorObject in ND6.5 work in a "color" field by converting a hex string to RGB components.

New to 6.5 is the NotesColorObject, but when using a field of type "color" the value is stored as a hex string. NotesColorObject will not take this string as input, so you have to convert it to its RGB components.

define and set doc as a NotesDocument
get the first color item stored in doc

Set item = doc.GetFirstItem("apF")
colors = setNotesColor(item.Text)

Function setNotesColor( clr As String ) 
As Integer
 Dim s As New NotesSession
 Dim soct As String, toct As String, foct 
As String
 Dim color As NotesColorObject
 
 soct = Mid( clr, 3, 2)
 toct = Mid( clr, 5, 2)
 foct = Right( clr, 2 )
 r = Val("&H" + soct)
 g = Val("&H" + toct)
 b = Val("&H" + foct)
 Set color = s.CreateColorObject
 setNotesColor = color.SetRGB(r, g, b)
End Function

Do you have comments on this tip? Let us know.

This was first published in February 2004

Dig deeper on LotusScript

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close