Hi, I am us mitab.dll in VB to write the tab file, and I found the
set_pen function won't give me the correct color when using black. I
got the color from mapx style object:
mcolor = map1.defaultstyle.linecolor (in BGR )
then I use a function to convert it to RGB
Private Function BGR2RGB(ByVal mColor As Long) As Long
Dim mRed As Integer
Dim mBlue As Integer
Dim mGreen As Integer
mBlue = mColor And &HFF&
mGreen = (mColor \ &H100&) And &HFF&
mRed = mColor \ &H10000
BGR2RGB = (mBlue * 65536) + (mGreen * 256) + mRed
End Function
All the colors show correctly except black, which will show as white
or transparent.
Call mitab_c_set_pen(feature, mLineWidth, mLineStyle, BGR2RGB
(mcolor))
Any idea?
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/mitab/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
