надписи в Message на русском

[Роман01]

Подскажите, пожалуйста, как наименования полей таблиц в Message показывать на русском?

[rhot]

Message - это что?

[Роман01]

Open Window Message
Окно, конечно.

[Denis Rykov]

Вы вообще о чём?

[Максим Дубинин]

Роман01, вы не помогаете тем, кто пытается ответить на ваш вопрос.

Про какую программу вы спрашиваете, где это загадочное окно "Open Window Message"?

[Роман01]

В MapInfo - я хочу на MapBasic написать программу, чтобы окно Open Windows Mwssage имело надписи на русском языке.
Извините, что сразу не объяснил...

[Роман01]

Вот текст подпрограммы:

Код: Выделить всё

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