|
1С. Как окно развернуть на весь экран ? Ø |
☑ |
0
Vacony
16.05.05
✎
18:01
|
Помню была темка. не могу найти. Надо при открытиии открыватьна весь экран обработку ?
|
|
1
КонецЦикла
16.05.05
✎
18:06
|
|
|
2
Vacony
16.05.05
✎
18:06
|
может через WshShell.SendKeys , но какая комбинация для развертывания окна ? :)
|
|
3
kurilkin
16.05.05
✎
18:06
|
|
|
4
smaharbA
16.05.05
✎
18:08
|
Придется во всех формах глПриОткрытииФормы(); КонецПроцедуры // ПриОткрытии Функция глПриОткрытииФормы() Экспорт Если глРазворачиватьФормы=1 Тогда глМаксимизироватьОкно(); КонецЕсли; Если глЗакрыватьСообщения=1 Тогда глЗакрытьОкноСообщений(); КонецЕсли; КонецФункции // глПриОткрытииФормы() Функция глЗакрытьОкноСообщений() Экспорт Попытка wshShell=СоздатьОбъект("wScript.shell"); wshShell.appActivate(ЗаголовокСистемы()); wshShell.sendKeys("^+(z)"); //wshShell.sendKeys("^+(Z)"); //Wait(1); wshShell.sendKeys("^+(я)"); //разрешение проблемы с раскладкой wshShell.appActivate(ЗаголовокСистемы()); Возврат 1; Исключение Возврат 0; КонецПопытки; КонецФункции Функция глМаксимизироватьОкно() Экспорт // вызывать в конце процедуры "ПриОткрытии" из модуля формы Попытка WSHShell = СоздатьОбъект("WScript.Shell"); wshShell.appActivate(ЗаголовокСистемы()); WSHShell.SendKeys("%"); WSHShell.SendKeys("{LEFT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}"); //Wait(1); wshShell.appActivate(ЗаголовокСистемы()); Возврат 1; Исключение Возврат 0; КонецПопытки; КонецФункции
|
|
5
Vacony
16.05.05
✎
18:08
|
1,3 - о.. супер :) хотя изврат.. типа двигаем курсор... А если в меню окна вставлен лишний пункт ? (всякими примочками к виндам) ?
|
|
6
Vacony
16.05.05
✎
18:12
|
wshShell.appActivate(ЗаголовокСистемы()) это для активации окна 1С ? а зчем ? оно разве фокус теряет при максимизации окна ?
|
|
7
smaharbA
16.05.05
✎
18:14
|
бывает теряет при {ENTER}
|
|
8
smaharbA
16.05.05
✎
18:19
|
+(7) да и вообще привычка (на всякий случай), только лучче так заг="1С:Предприятие - "+Метаданные.Идентификатор+": "+ЗаголовокСистемы(); wshShell.appActivate(Заг); Ну или чтото в этом роде
|
|