[Жигалов Дмитрий]

Подскажите как создать отдельный слой в Mapinfo 10 для растров (так чтобы включать и выключать растр состоящий из нескольких планшетов одним действием)

[FedorinoFF]

Сшить все растры и зарегистрировать один слой.

[Жигалов Дмитрий]

А как это сделать? Можно поподробней.

[Alex_47]

Ну или вот так

Include "mapbasic.def"
Include "icons.def"

Declare Sub main
Declare Sub rastr_on
Declare Sub rastr_off
Declare Sub rastr_min_max

Sub main

Create ButtonPad "растр" As
PushButton
Icon 237
Calling rastr_on
helpmsg "\nПоказать растр."

Alter ButtonPad "растр" Add Separator
PushButton
Icon 239
Calling rastr_off
helpmsg "\nСпрятать растр."
Alter ButtonPad "растр" Add Separator
PushButton
Icon 141
Calling rastr_min_max
helpmsg "\nПорог."
End Sub

Sub rastr_on
Dim i As Integer

For i = 1 To MapperInfo( FrontWindow() , MAPPER_INFO_LAYERS)
If LayerInfo(FrontWindow(), i , LAYER_INFO_TYPE ) = LAYER_INFO_TYPE_IMAGE Then
Set Map Layer i Display Graphic
End If
Next

End Sub

Sub rastr_off
Dim i As Integer
For i = 1 To MapperInfo( FrontWindow() , MAPPER_INFO_LAYERS)
If LayerInfo(FrontWindow(), i , LAYER_INFO_TYPE ) = LAYER_INFO_TYPE_IMAGE Then
Set Map Layer i Display Off
End If
Next
End Sub

Sub rastr_min_max
Dim i_min, i_max As Integer
Dim i As Integer

dialog
Control EditText
Into i_min

Control EditText
Into i_max
Control OKButton
Control CancelButton
If CommandInfo(CMD_INFO_DLG_OK) Then
For i = 1 To MapperInfo( FrontWindow() , MAPPER_INFO_LAYERS)
If LayerInfo(FrontWindow(), i , LAYER_INFO_TYPE ) = LAYER_INFO_TYPE_IMAGE Then
Set Map Layer i Zoom (i_min,i_max) Units "m" On
End If
Next
End If
End Sub

[miks196]

Как же всетаки сшить все растры?

[Жигалов Дмитрий]

В MI "менеджер сшитых таблиц" не может сшивать растры. Может есть способы не такие заумные?

[Alex_47]

Давай мыло я тебе скину прогу код, которой описал выше. А то я не знаю, как тут прикреплять файлы. В ней все просто 1 копка показывает все карты, а 2-ая наоборот.

[Жигалов Дмитрий]

Было бы замечательно. Вот мой ящик zhdima85@mail.ru

[Serj]

Если это десятка MapInfo, то:
В управлении слоями создаем новую группу, помещаем в нее все растры, ну и, собственно, проблема решена - включаем, выключаем всю группу разом...

[Arhara]

2 Alex_47
А есть возможность не просто показать скрыть, а показать - скрыть - "вернуть к масштабу отображения по умолчанию"?

[Alex_47]

А что за "вернуть к масштабу отображения по умолчанию"?

[Arhara]

при обычном добавлении растра к окну MapInfo САМА рассчитывает при каких масштабах он должен быть виден и устанавливает их в свойства растрового слоя.
Так что состояний у показа растра бывает 3 - не отключен, виден всегда, виден при установленном (по-умолчанию) масштабе. Вот это "виден при масштабе по умолчанию" бесит ужасно, когда много растров загружаешь в окно.
Возможен еще 4 вариант - виден при установленном руками масштабе, но это уже излишне. Хотя раз уж писали программу, то и это вариант интересен.

[Alex_47]

Типа надо чтобы не было "паказывать в пределах"?

[Arhara]

типа, что бы был, но можно было задать другие пределы, но для всех растров разом.

[Alex_47]