It's the alpha. Sent from Yahoo Mail on Android On Fri, 5 Apr 2019 at 20:03, Ed Stokes<w1...@comcast.net> wrote: Bill, Mike, Derek or any other kind soul:
Still having trouble…. This causes the given call sign to disappear. I was expecting the call sign to be highlighted in blue on a red background. Instead there is a blank space where the call sign should be. What am I doing wrong? 73, Ed W1KOK Method: ChangeColors( callSign As String ) Dim mb As New MemoryBlock (0) Dim outputStream As New BinaryStream (mb) Dim utf8 As String outputStream.LittleEndian = False outputStream.WriteUInt32 (magicNumber) outputStream.WriteUInt32 (2) outputStream.WriteUInt32 (13) ' Clear // Id (unique key) utf8 = id.ConvertEncoding (Encodings.UTF8) outputStream.WriteUInt32 (LenB (utf8)) outputStream.Write (utf8) // callSign utf8 = callSign.ConvertEncoding (Encodings.UTF8) outputStream.WriteUInt32 (LenB (utf8)) outputStream.Write (utf8) // background color Dim c As Color = &cff0000 ' Defaults to Alpha value 0 outputStream.WriteUInt8 (1) ' RGB spec outputStream.WriteUInt16 (c.Alpha) outputStream.WriteUInt16 (c.Red) outputStream.WriteUint16 (c.Green) outputStream.WriteUInt16 (c.Blue) outputStream.WriteUInt16 (0) ' padding // foreground color c = &c0000ff ' Defaults to Alpha value 0 outputStream.WriteUInt8 (1) ' RGB spec outputStream.WriteUInt16 (c.Alpha) outputStream.WriteUInt16 (c.Red) outputStream.WriteUint16 (c.Green) outputStream.WriteUInt16 (c.Blue) outputStream.WriteUInt16 (0) ' padding // Highlight last outputStream.WriteBoolean (False) // close the BinaryStream outputStream.Close Dim msg As new Datagram msg.Address = WSJTX_IP msg.Port = WSJTX_Port msg.Data = mb WSJTX_Socket.Write (msg) _______________________________________________ wsjt-devel mailing list wsjt-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/wsjt-devel
_______________________________________________ wsjt-devel mailing list wsjt-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/wsjt-devel
