надписи в Message на русском
-
- Участник
- Сообщения: 66
- Зарегистрирован: 03 авг 2010, 04:24
- Репутация: 0
надписи в Message на русском
Подскажите, пожалуйста, как наименования полей таблиц в Message показывать на русском?
- rhot
- Гуру
- Сообщения: 1727
- Зарегистрирован: 25 янв 2011, 17:50
- Репутация: 194
- Ваше звание: доктор
- Откуда: Архангельск
Re: надписи в Message на русском
Message - это что?
___________(¯`·.¸(¯`·.¸ Scientia potentia est _/ {SILVA}:::{FOSS}:::{GIS} \_ Знание сила ¸.·´¯)¸.·´¯)___________
-
- Участник
- Сообщения: 66
- Зарегистрирован: 03 авг 2010, 04:24
- Репутация: 0
Re: надписи в Message на русском
Open Window Message
Окно, конечно.
Окно, конечно.
- Denis Rykov
- Гуру
- Сообщения: 3376
- Зарегистрирован: 11 апр 2008, 21:09
- Репутация: 529
- Ваше звание: Author
- Контактная информация:
Re: надписи в Message на русском
Вы вообще о чём?
Spatial is now, more than ever, just another column- The Geometry Column.
- Максим Дубинин
- MindingMyOwnBusiness
- Сообщения: 9129
- Зарегистрирован: 06 окт 2003, 20:20
- Репутация: 748
- Ваше звание: NextGIS
- Откуда: Москва
- Контактная информация:
Re: надписи в Message на русском
Роман01, вы не помогаете тем, кто пытается ответить на ваш вопрос.
Про какую программу вы спрашиваете, где это загадочное окно "Open Window Message"?
Про какую программу вы спрашиваете, где это загадочное окно "Open Window Message"?
пристегивайтесь, турбулентность прямо по курсу
-
- Участник
- Сообщения: 66
- Зарегистрирован: 03 авг 2010, 04:24
- Репутация: 0
Re: надписи в Message на русском
В MapInfo - я хочу на MapBasic написать программу, чтобы окно Open Windows Mwssage имело надписи на русском языке.
Извините, что сразу не объяснил...
Извините, что сразу не объяснил...
-
- Участник
- Сообщения: 66
- Зарегистрирован: 03 авг 2010, 04:24
- Репутация: 0
Re: надписи в Message на русском
Вот текст подпрограммы:
Код: Выделить всё
sub strelka
'RUN MENU COMMAND M_TOOLS_SELECTOR
If Selectioninfo(SEL_INFO_NROWS)=0 Then
Note "Выберите объект"
RUN MENU COMMAND M_QUERY_UNSELECT
Exit Sub
End if
Dim recn2 AS INTEGER
recn2=CommandInfo(CMD_INFO_ROWID)
Dim basa1 as string
basa1=Selectioninfo(SEL_INFO_TABLENAME)
Dim CreateStr As String
CreateStr="база = "+basa1+CHR$(10)
Dim i AS INTEGER
Dim acol As Alias
Dim nazvan,uptype As String
uptype=" "
Fetch Rec recn2 From basa1
For i =1 to TABLEINFO(basa1, TAB_INFO_NCOLS)
nazvan=ColumnInfo(basa1,"col"+STR$(i),COL_INFO_NAME)
acol=basa1+"."+nazvan
DO CASE COLUMNINFO(basa1,"COL"+i, COL_INFO_TYPE)
CASE COL_TYPE_CHAR
uptype=nazvan+" = "+acol
CASE COL_TYPE_DECIMAL
uptype=nazvan+" = "+STR$(acol)
CASE COL_TYPE_FLOAT
uptype=nazvan+" = "+STR$(acol)
CASE COL_TYPE_INTEGER
uptype=nazvan+" = "+STR$(acol)
CASE COL_TYPE_SMALLINT
uptype=nazvan+" = "+STR$(acol)
CASE COL_TYPE_LOGICAL
uptype=nazvan+" = "+STR$(acol)
CASE COL_TYPE_DATE
uptype=nazvan+" = "+STR$(acol)
END CASE
IF uptype <> "" THEN
CreateStr=CreateStr+uptype+CHR$(10)
END IF
Next
Open Window Message
Set Window Message Font MakeFont("Courier",0,9,BLACK,WHITE) Position (0.5,2.5) Width 7 Height 11 Front Show '7/11/2011
Print CHR$(12) ' очистить окно
Print createstr
set map layer 0 editable on
end sub
Последний раз редактировалось Voltron 02 апр 2012, 14:37, всего редактировалось 1 раз.
Причина: не забываем использовать тег [code]
Причина: не забываем использовать тег [code]
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и 2 гостя