nikomuro
Зарегистрирован: 28.12.2013 Сообщения: 8
|
Добавлено: Вт Янв 14, 2014 1:18 pm Заголовок сообщения: Помогите разобраться с присвоением стиля |
|
|
Имеется код:
Include "mapbasic.def"
Declare Sub Main
Declare Sub TestPrint
Declare Sub TestPrint2
Declare Sub theEnd
Declare Sub ProgressBarDemo
Declare Sub WorkingLine
dim ProgressStart,ProgressEnd as integer
dim dt,ProgressD as integer
dim tbName as string
Sub Main
Create Menu "Обновить стиль" As
"Обновить" Calling TestPrint,
"Обновить2" Calling TestPrint2,
"Выход" Calling theEnd
Alter Menu Bar Add "Обновить стиль"
end sub
Sub TestPrint
dim ob as object
dim tb as string
dim aa as alias
dim n,i as integer
n=SelectionInfo(SEL_INFO_NROWS)
if n=0 then exit sub end if
tb=SelectionInfo(SEL_INFO_SELNAME)
for i=1 to n
Fetch Rec i From tb
aa=tb & ".obj"
ob=aa
Alter Object ob Info OBJ_INFO_SYMBOL,MakeSymbol(44, 255, 16)
Update tb Set obj=ob Where rowid=i
next
end sub
Sub TestPrint2
dim ob as object
dim tb as string
dim aa as alias
dim n,i as integer
dim sm as symbol
n=SelectionInfo(SEL_INFO_NROWS)
if n=0 then exit sub end if
sm=MakeCustomSymbol("CAR1-32.BMP", 65280, 22,0)
tb=SelectionInfo(SEL_INFO_SELNAME)
for i=1 to n
Fetch Rec i From tb
aa=tb & ".obj"
ob=aa
Alter Object ob Info OBJ_INFO_SYMBOL,sm
Update tb Set obj=ob Where rowid=i
next
end sub
Sub theEnd
End Program
end sub
Проблема в том что в данном случае стиль объекта присваивается из шрифта символы MapInfo 3.0 (в первом случае)
Во втором случае, из символьных шрифтов.
Необходимо чтобы присваивался стиль с любого другого шрифта, типа Symbol (35,0,12,"Webdings",0,0).
Работаю в MI 12 и MB 12
Всем заранее спасибо |
|