ДубльГИС

[Sok-San]

sok-san, отдельный респект тебе за прокачку 2гис оболочки! Я пользую гис всвязи с отличной деталировкой карты, простоты в юзанье и адаптации, вдобавок с бесплатностью и постоянно свежими картами. короче она меня устраивает на все сто%.
sok-san - я рр не юзаю, перешел на голую винду, а твой пач пришелся по душе. , планирую врезать джойстик, какраз на него команды зума прикручу... вобсчем вопросы - 1. можно ли зделать резолюшн 640х480 (моник у друга такой) и 2.пододвинуть окно вверх влево до упора в обоих резолюшнах.

Отчего же нельзя, можно. Я выложил все исходники. Надо просто поменять значения в командах задания размера и положения окон.

[Evgeny_dg]

ушел разбираться с AutoIt, если не разберусь - обращусь с просьбой помочь Ж)

[Sok-San]

Обращайся помогу (Мне поменять не долго, но я все равно отладить не смогу с таким экраном) Да и потом AutoIt всегда пригодится для задач PCCAR.
Вообще планирую осенью (сейчас время нет) сделать универсальную версию для любого расположения проги и размеров окон с заданием параметров в ини файле.

[Evgeny_dg]

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

поменяй плз значения окошка под твое 800*480, только без рамки рр (фуллскрин так сказать- для моего компа оно родное ), а под другое я попытаюсь сам подкрутить ( вникнуться в оба исходника )

[Sok-San]

Я выложу исходник нужно поменять размеры окна и настроить заново клики мышки начальное положение окна у меня х=43 у=25 дополнительная подвижка окна нужна чтобы заставить закрыться ненужные панели.

#include <GUIConstants.au3> 

Opt( "WinSearchChildren", 1) 
Opt( "WinTitleMatchMode", 2)  
Opt( "WinDetectHiddenText", 1)

If ProcessExists("grym.exe") Then Exit
Run("C:\Program Files\2gis\3.0\grym.exe") 
Sleep(500) 
WinActivate("Городская информационная система", "")
WinWait("Городская информационная система", "Загрузка завершена")
Sleep(500)
ControlFocus("Городская информационная система", "", "")
ControlClick("Городская информационная система", "", "[CLASS:Button; INSTANCE:1]") ;нажимаем "далее"
WinWaitActive(" - ДубльГИС", "") 
Sleep(500)
MouseMove(340, 70, 0); включаем навигацию
MouseClick("left")
MouseMove(110, 90, 5)
MouseClick("left")
;~ 
WinMove(" - ДубльГИС", "", 43, 25, 721, 549) ;устанавливаем размер окна несколько меньше
ControlHide(" - ДубльГИС", "", "[CLASS:XTPDockBar; INSTANCE:1]"); удаляем все ненужные 
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_ToolbarBanner; INSTANCE:1]"); компоненты окна
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_MainBanner; INSTANCE:1]")
ControlHide(" - ДубльГИС", "", "[CLASS:ATL:009BA898; INSTANCE:1]")
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_DirectoryCollection; INSTANCE:1]")
WinMove(" - ДубльГИС", "", 43, 25, 761, 579) ;;устанавливаем размер окна 
Sleep(1500) 
ControlMove(" - ДубльГИС", "", "[CLASS:Grym_MapView; INSTANCE:1]", -3, -2, 761, 579) ;убираем рамку
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_ToolbarBanner; INSTANCE:1]") ; убираем банер
;закрываем на карте логотипы и т.п.
MouseMove(400, 300, 0)
MouseClick("right")
MouseMove(500, 384, 0)
MouseClick("left")
MouseMove(400, 300, 0)
MouseClick("right")
MouseMove(500, 404, 0)
MouseClick("left")
MouseMove(400, 300, 0)
MouseClick("right")
MouseMove(500, 424, 0)
MouseClick("left")

Exit

[Evgeny_dg]

Благодарю!! подравнял под свое окошко, на бб работает зашибись, осталось теперь на мелком опробывать!

таак, после манипуляций с местоположением неадекватно стал работать Win_2gis V1, оно и понятно впринципе... можно исходничек посмотреть?! , а то его какраз и небыло...

[Sok-San]

Да, только не уверен, что это последний рабочий вариант (Все мудрил с плагином ЖПС11.5).

;Код:
#include <GUIConstants.au3> 

Opt( "WinSearchChildren", 1) 
Opt( "WinTitleMatchMode", 2)  
Opt( "WinDetectHiddenText", 0)


WinActivate(" - ДубльГИС", "")
ControlFocus(" - ДубльГИС", "MainBar", "")
Sleep(500) 
If WinActive(" - ДубльГИС", "MainBar") Then

Sleep(500)
MouseMove(340, 70, 0); выключаем навигацию
MouseClick("left")
MouseMove(110, 90, 5)
MouseClick("left")

WinMove(" - ДубльГИС", "", 43, 25, 721, 549) ;устанавливаем размер окна несколько меньше
ControlHide(" - ДубльГИС", "", "[CLASS:XTPDockBar; INSTANCE:1]"); удаляем все ненужные 
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_ToolbarBanner; INSTANCE:1]"); компоненты окна
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_MainBanner; INSTANCE:1]")
ControlHide(" - ДубльГИС", "", "[CLASS:ATL:009BA898; INSTANCE:1]")
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_DirectoryCollection; INSTANCE:1]")
WinMove(" - ДубльГИС", "", 43, 25, 761, 579) ;;устанавливаем размер окна 
Sleep(500) 
ControlMove(" - ДубльГИС", "", "[CLASS:Grym_MapView; INSTANCE:1]", -3, -2, 761, 579) ;убираем рамку
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_ToolbarBanner; INSTANCE:1]") ; убираем банер
ControlFocus(" - ДубльГИС", "", "[CLASS:Grym_MapView; INSTANCE:1]")
Exit 

EndIf

ControlFocus(" - ДубльГИС", "", "")

ControlMove(" - ДубльГИС", "", "[CLASS:Grym_MapView; INSTANCE:1]", -3, 81, 761, 529)
ControlHide(" - ДубльГИС", "", "[CLASS:ATL:009BA898; INSTANCE:1]")
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_DirectoryCollection; INSTANCE:1]")
ControlShow(" - ДубльГИС", "", "[CLASS:XTPDockBar; INSTANCE:1]"); Включаем все нужные 
ControlShow(" - ДубльГИС", "MainBar", "")
Sleep(500)
MouseMove(340, 70, 0); включаем навигацию
MouseClick("left")
MouseMove(110, 90, 5)
MouseClick("left")
MouseMove(340, 70, 0); включаем окно навигации
MouseClick("left")
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_MainBanner; INSTANCE:1]")
ControlHide(" - ДубльГИС", "", "[CLASS:ATL:009BA898; INSTANCE:1]")
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_DirectoryCollection; INSTANCE:1]")
ControlMove(" - ДубльГИС", "", "[CLASS:Grym_MapView; INSTANCE:1]", -3, 81, 761, 529)
Exit

[Evgeny_dg]

отлично!! прячет и показывает адекватно.. осталось цепануть к жпсу, проверить как кнопки жмет

[Sok-San]

Вышла новая версия проги 2ГИС 3.0.7.1. Проверил работу с симулятором Franson GpsGate - вроде все работает также.

[Evgeny_dg]

попробуем проабгрейтить , посмотрим что получится.