Выделил в отдельную тему пожелание, описанное здесь: http://www.1cpp.ru/forum/YaBB.pl?num=1206671269/35#35

Задать цвет для формы целиком - с тулбарами, реквизитами и пр.

Можно и для всего приложения целиком, если при этом останется возможность изменять цвет формы, хотя бы методом Formex.

Круто, И когда увидим это детище ?
И.. каждый атрибут в отдельности можно красить, или только все сразу ?

Так понятно ж какой хочется - последний, т.е. для каждой формы .

Ну и ладно.
Скармливать то при открытии небось надо будет ?
И настройки до атрибутов.. тоже неплохо бы.
Я б на нескольких формах чего-нить "понавыделял" бы красным цветом для особо одаренных товарищей.

Желательно , конечно, изменять еще цвет "на-ходу" в уже открытой форме.

Здорово!
Тогда может сделать так - задать цвет всей 1С в целом, а дальше кто хочет - задаёт цвет отдельным формам/реквизитам?

Невозможно создание объекта контейнером ActiveX: 'DynamicWrapperX'
Ошибка выполнения Microsoft VBScript

DWX.WndProc::УстановитьФорму(НеизвестныйОбъект Форма=) : Ошибка выполнения Microsoft VBScript: Требуется объект: 'oServ'
ScrptCtrl.Run("setForm", рФорма.Дескриптор);
{...\DWX.WndProc.ert(515) }

теперь другие

DWX.WndProc::УстановитьФорму(НеизвестныйОбъект Форма=) : Ошибка выполнения Microsoft VBScript: Несоответствие типа: 'Wrap.HeapFree'
ScrptCtrl.Run("setForm", рФорма.Дескриптор);
{\DWX.WndProc.ert(515) }

wndProc.УстановитьФорму(Форма);
{F:\BASE\ТОРГОВЛЯ\CLASSES\ЦВЕТАТРИБУТОВ\TEST.ERT(25)}: DWX.WndProc::УстановитьФорму(НеизвестныйОбъект Форма=) : Ошибка выполнения Microsoft VBScript: Несоответствие типа: 'Wrap.HeapFree'
ScrptCtrl.Run("setForm", рФорма.Дескриптор);
{DWX.WndProc.ert(515) }


Это, мот кинешь свою dynwrapx.dll ?

У меня заработало. Но цвет панелей закрашивается не полностью - только сами кнопки. Главное меню осталось серым.

Вот как отрисовывается глобальное меню:

И еще:

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

метод УстановитьФорму() нужно вызывать после стандартного вызова Форма.ИспользоватьЗакладки(1) и после создания формы, т.е. так:

Перем кл;
....
кл=СоздатьОбъект("DWX.wndProc");
Форма.ИспользоватьЗакладки(1);
....
Процедура ПослеОткрытия()
    кл.УстановитьФорму(Форма);
КонецПроцедуры 

Иначе атрибуты и закладки неправильно закрашиваются.

chessman писал(а) 29. Января 2013 :: 14:08:


Кинь сюда, я там не зарегистрирован

Я тут подумал, что класс наверное нужно будет поделить на части: раскраску атрибутов формы оставить в одном классе, а раскраску самой формы отнести в другой класс. Нужно подумать, как это лучше сделать.

Как -то он выборочно красит
+в Тулбаре остается незакрашеной правая часть.

Всмысле ?
Это я просто твою обработку запустил.

ЗЫ: и не нашел, где там у тебя задается цвет этот (не для конкретной формы, а для всей "1с-ины"

Eprst писал(а) 30. Января 2013 :: 07:11:


Попробую объяснить как на данный момент все это работает.

Начну с тулбара. Это панельки с кнопками у каждой формы + плавающие панельки самой 1С. За фон в этих панелях отвечает некая константа (в скрипте явно указан ее адрес, посколько по другому до нее не добраться). Прежде чем нарисовать саму кнопку 1С выполняет заливку фона панели.
После 1С рисует само изображение на кнопке. Для этого вызывается системная функция GetSysColor (см. MSDN) (я ее перехватываю) с параметром COLOR_BTNFACE. Это цвет "подложки" кнопки. После этого 1С вызывает ф-ю ReMapBitmap2 ( тоже перехватывается) - в ней формируется изображение для нЕактивной кнопки.
Если сравнить, как отрисованы кнопки в Плавающих панелях и в формах, то видно, что в формах они отрисованы "правильно", а в Плавающих "криво". Это происходит потому, что изображения для Плавающих панелей формируются 1 раз на этапе загрузки 1С. Для исправления ситуации я вижу 2 пути - либо разрюхать, где хранятся эти битмапы и заново их переформировать, либо внести изменения во frame.dll - адреса я знаю (думаю, что этим никто не будет заниматься).
Про то, как рисуется меню можно сказать практически тоже самое.   

Вообще хочу спросить, нужны такие подробности, имеет смысл  продолжать?

Eprst писал(а) 30. Января 2013 :: 07:22:


Можешь поэкспериментировать с функцией GetSysColor, особенно с параметром COLOR_WINDOW

Да, с COLOR_WINDOW интересно - раскрашивается ТЗ на форме и окно сообщений в цвет формы.

alyuev писал(а) 30. Января 2013 :: 08:17:


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

С гетсисколор поиграюсь, а сами контролы по-отдельности не получится ?

Нужно!


Т.е, если я устанавливаю контролу цвет, на него видимость/доступность не "действует", ну т.е цвет не меняется ?
И пофик, это пусть разработчик "заботится" об цвете не активных контролов при установке "доступности"

Хотя, если будут "автоматом" с родным цветом, при не доступности - конечно, лучше было бы.

Ну, руками, так руками, это не проблема (при установки Доступность в 0 поменять и цвет).

Вот при Форма.ТолькоПросмотр(1) тоже события не "летят" ? И придётся усю форму оббегать ?

Есть конечно еще один вариант, если передавть в скрипт саму форму, то можно добраться до состояния контролов, как это  возвращает метод Доступность(). Имеет смысл смотреть в этом направлении?

То, что "сложный" реквизит (агрегированный тип) не изменяет цвет в режиме Недоступности - это, наверное, 1С-овская недоделка. А если ты сделаешь так, что и их цвет Недоступности можно будет менять - ну, вообще будет красота.

chessman писал(а) 30. Января 2013 :: 10:53:


будет круто, ждём!

Картинка должна быть приблизительно такая.

Eprst писал(а) 01. Февраля 2013 :: 11:04:

Eprst писал(а) 01. Февраля 2013 :: 11:56:


Разобрался?

Eprst писал(а) 01. Февраля 2013 :: 12:39:

cBlue = &hEFE7DE
cDarkBlue = &hD6BA9F
cRed= &hFF
cDarkGrey= &h6D6D6D 

PixCol тебе поможет, я ей пользуюсь 

alyuev писал(а) 01. Февраля 2013 :: 13:38:


Ну, я не могу так с ходу сказать, но в данном случае это легко можно исправить, посколько мы перехватили процедуру окна, то каким цветом там будет заливка определяется в сообщении WM_ERASEBKGND. Тут я его не обрабатываю, но нам никто не мешает.

Так, а теперь для тех кто в танке, ка это слепить в классе атр ? Чего там добавить, чтоб фон-по умолчанию то был ?

Eprst писал(а) 08. Февраля 2013 :: 09:58:


Переведи, не понял  - я уже переключился на "кнопки к тулбару".

Eprst писал(а) 08. Февраля 2013 :: 10:34:


Понял.
Выложу исправления.

Ну круть!
Спасибо.

alyuev писал(а) 01. Марта 2013 :: 09:34:


Привет! Буду разбираться дальше. Пока прервался на неотложные дела.

Должна быть загружена вк 1cpp и в Defcls.prm прописаны пути к классам

У меня под рукой 77 нет, вечером посмотрю.

uncle.ck.ua писал(а) 20. Июня 2013 :: 12:12:


Где вы всё время это старьё берёте ?

На вот, занимайся (регить её не надо сто лет в обед)

http://www.1cpp.ru/forumfiles/Attachments/icpp-3-2-4-1.rar

Этой шутке ужо лет 5 наверное..
все обновления - только на форуме, сам сайт никто не обновляет

Кстати, по поводу установки этого свойства (Прозрачность) из 1С уже спрашивал здесь: http://www.1cpp.ru/forum/YaBB.pl?num=1345736013

Ответа пока не прозвучало.