On Jul 27, 2004, at 6:42 PM, Robert Mc wrote:
blah blah blah and then...
This should be easy. Use this code:
Dim redValue, greenValue, blueValue as Integer
Dim theColor as Color
Dim prefFile as FolderItem
Dim stream as BinaryStream
prefFile = PreferencesFolder.child("NovaWeb Skin")
stream = prefFile.createBinaryFile()
redValue = stream.readByte()
greenValue = stream.readByte()
blueValue = stream.readByte()
theColor = RGB(redValue, greenValue, blueValue)
Correction:
Dim redValue, greenValue, blueValue as Integer
Dim prefFile as FolderItem
Dim stream as BinaryStream
prefFile = PreferencesFolder.child("NovaWeb Skin")
stream = prefFile.createBinaryFile()
redValue = stream.readByte()
greenValue = stream.readByte()
blueValue = stream.readByte()
browser.backColor = RGB(redValue, greenValue, blueValue)
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://www.realsoftware.com/listarchives/lists.html>
|