|
天各一方:
我想用一个界面把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 :
道理和这个类似,
|