发表用户:讨论贴
收集整理:James.Liu
相关讨论:http://www.mygis.com.cn/forum/dispbbs.asp?boardID=4&ID=3620
信息原始来源:James MapInfo技术论坛

文章标题:请问:能否这样使用MapX自带的符号集?

天各一方

我想用一个界面把MapX所支持的所有符号都列出来,便于用户选择,MapX弹出的选择框中的符号小了点,不好看清代表的什么东西,不知道该如何实现,请大家帮个忙,谢谢!

我用的是Delphi7+MapX5试用版。

James.Liu

可以自己写程序列出来,

打个比方,你可以把符号样式放到下拉邼中给用户选择

jianhong

Private Sub Command1_Click()
     Dim Top20 As MapXLib.Layer
     Set Top20 = Map1.Layers.Item(1)
     Top20.OverrideStyle = True
     With Top20.Style
        If .SupportsBitmapSymbols = True Then
            .SymbolType = 1
            .SymbolBitmapSize = 12
            .SymbolBitmapTransparent = True
            .SymbolBitmapName = List1
        End If
 End With
End Sub

Private Sub Form_Load()
    Dim Bitmaps As New MapXLib.BitmapSymbols
    For Each symb In Bitmaps
        List1.AddItem symb.name
    Next
End Sub

Private Sub List1_Click()
   Image1.Picture = LoadPicture("C:\Program Files\MapInfo\MapX 5.0\CUSTSYMB\" & List1)
End Sub
 

天各一方

不对不对,这里的Bmp类型文件图标太少了,我是想如何将MapX自带的字体类型的符号,也就是将弹出的

Map1.DefaultStyle.PickSymbol

窗体中所自带的字体一个个地显示在界面上,该怎么做?

mapxcoder

道理和这个类似,