Доработка консоли запросов для широкоформатного монитора

Стандартная консоль запросов (из набора 1С) - 3 панели (текст запроса, параметры, результат) расположены одна под другой. Что не очень удобно при работе на широкоформатном мониторе.

Для того, чтобы настроить вот так:

В основной форме оной консоли в конце процедуры "При создании на сервере" добавляем:

// оквита
 осПриСозданииНаСервере(Отказ, СтандартнаяОбработка);
// /оквита

А также добавляем в конец модуля формы:

#Область Оквита
 
&amp;НаСервере
Процедура осПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
 Если Отказ Тогда
 Возврат;
 КонецЕсли;
 
 гфОГ = Элементы.Вставить("осОбщаяГруппа", Тип("ГруппаФормы"), ЭтаФорма, Элементы.ГруппаПланЗапросаПанель);
 осГруппаБезОтображения(гфОГ);
 гфОГ.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда;
 
 гфПТ = Элементы.Добавить("осПланТекстЗапроса", Тип("ГруппаФормы"), гфОГ);
 осГруппаБезОтображения(гфПТ);
 гфПТ.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная;
 
 гфПР = Элементы.Добавить("оПараметрыРезультатЗапроса", Тип("ГруппаФормы"), гфОГ);
 осГруппаБезОтображения(гфПР);
 гфПР.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная;
 
 Элементы.Переместить(Элементы.ГруппаПланЗапросаПанель, гфПТ);
 Элементы.Переместить(Элементы.ТекстЗапроса, гфПТ);
 
 Элементы.Переместить(Элементы.ГруппаПараметры, гфПР);
 Элементы.Переместить(Элементы.РезультатЗапроса, гфПР);
КонецПроцедуры
 
&amp;НаСервере
Процедура осГруппаБезОтображения(гф)
 гф.Вид = ВидГруппыФормы.ОбычнаяГруппа;
 гф.Отображение = ОтображениеОбычнойГруппы.Нет;
 гф.ОтображатьЗаголовок = Ложь;
КонецПроцедуры
 
#КонецОбласти

Главное меню