Hi Ed,
all AT&T ISP services block my email server, I have tried to get them to
stop censoring their users email but they don't see to listen or care.
So direct emails from me will not reach you unless I send them from a
different email server, normally I can't be bothered to do that.
73
Bill
G4WJS.
On 05/04/2019 04:39, Ed Stokes wrote:
Many thanks Bill.
I’m confused because I’m not seeing this in my mail!
I would have missed it altogether but for doing a google search which
found it on sourceforge.
What have I done?
Please copy your reply to my email address w1...@comcast.net
<mailto:w1...@comcast.net>
73, Ed
W1KOK
On 04/04/2019 12:11, Bill Somerville wrote:
' The Xojo Color type stores 8-bit per channel colour values
' so we can start with one of them and extend to the 16-bit
' per channel Qt's deep colour QColor type uses
'
' Let's start with a light green Color variable
Dim c As Color = &c007f00 ' Defaults to Alpha value 0
' Assuming os is a ByteStream instance set to BigEndian mode
' we write a serialized QColor version of light_green like this
os.WriteUInt8 (1) ' RGB spec
os.WriteUInt16 (c.Alpha)
os.WriteUInt16 (c.Red)
os.WriteUint16 (c.Green)
os.WriteUInt16 (c.Blue)
os.WriteUInt16 (0) ' padding
' To stream an invalid QColor value (needed to clear colours)
os.WriteUInt8 (0) ' Invalid spec
For i As Integer = 1 To 4
os.WriteUInt16 (0)
Next
Hi again Ed,
corrected for the dumb off-by-one error.
' The Xojo Color type stores 8-bit per channel colour values
' so we can start with one of them and extend to the 16-bit
' per channel Qt's deep colour QColor type uses
'
' Let's start with a light green Color variable
Dim c As Color = &c007f00 ' Defaults to Alpha value 0
' Assuming os is a ByteStream instance set to BigEndian mode
' we write a serialized QColor version of light_green like this
os.WriteUInt8 (1) ' RGB spec
os.WriteUInt16 (c.Alpha)
os.WriteUInt16 (c.Red)
os.WriteUint16 (c.Green)
os.WriteUInt16 (c.Blue)
os.WriteUInt16 (0) ' padding
' To stream an invalid QColor value (needed to clear colours)
os.WriteUInt8 (0) ' Invalid spec
For i As Integer = 1 To 5
os.WriteUInt16 (0)
Next
73
Bill
G4WJS.
_______________________________________________
wsjt-devel mailing list
wsjt-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/wsjt-devel
