Можно ли сделать закладку скажем красным цветом ?

Конечно подожду

Получается некрасиво - форма красная, а закладка серая, если подсветить то синяя:
     РасшФорма.ЦветФона=цКрасный; 
     РасшФорма.ПодсветкаЗакладки(2,1);

DmSk писал(а) 28. Марта 2008 :: 07:36:

гы, а можно скрин этого чуда?

Скрин

Я так понимаю цвет закладок пока таки не изменить?

Пока хрень получилась(не успел доделать), но видно, что тут можно, в принципе, нарисовать все, что угодно.

Тут, как я понимаю трабла в том, что 1С вставляет рабочую область в созданный объект "Закладки". Для рабочей области цвет срабатывает, а для объекта Закладки - нет. Поэтому и сами Закладки, и рамка вокруг рабочей области остаются серыми.

Я говорю о том, что если посмотреть два окна - с Закладками и Без, то можно увидеть, что они отличаются тем, что в окне с закладками рабочая область окружена границей - это хорошо видно, когда раскрашиваешь форму, - поэтому и говорю, что рабочая область как бы внутри объекта Закладки.
Это, конечно, всё системное - я имею в виду Закладки. Закладки - это ж тоже объект формы, если я правильно понимаю. Только к нему у нас нет доступа.

Ну, тогда, возможно, и цвет ему можно будет задать?

Есть какие-нибудь новости, по этому поводу?

Не успел сегодня разобраться со шрифтами.
Пока получается что-то подобное.
Так пойдет?

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

Поищи в репозитории Класс УправлениеЗакладками.
Там че хошь с ними ножно делать.

chessman писал(а) 13. Декабря 2012 :: 10:38:

ТЮ.
все можно.

Перем ОбъектЗакладки;
Перем Закладки;
Перем Страницы;
// !!!!!!!!!!!!!!! не забываем, что у Басика истина = -1, ложь = 0
Процедура Конструктор()
КонецПроцедуры
//------
Процедура Деструктор()
КонецПроцедуры
//------ создаем объект активэкс закладок
Процедура Создать(КонтФормы,ИДКонтейнера) Экспорт
	Закладки=СоздатьОбъект("АктивИкс");
	Закладки.УстановитьАтрибут(КонтФормы.Форма,ИДКонтейнера);
	Закладки.СоздатьЭУ("Forms.MultiPage.1");
	ОбъектЗакладки	=Закладки.Объект;
	Страницы		=ОбъектЗакладки.Pages;
	//Сообщить(Страницы.Count());
	Страницы.Clear();
КонецПроцедуры
//------ добавляем закладку с заголовком и подсказкой в нужную позицию. По умолчанию добавляем справа от последней закладки
Процедура Добавить(Идентификатор,Заголовок,Подсказка="",Позиция=-1) Экспорт
	Попытка
		ЧислоЗакладок=Страницы.Count();
		Закладок))).ControlTipText=Подсказка;
	Исключение
		Сообщить(ОписаниеОшибки());
	КонецПопытки;
КонецПроцедуры
//------ удаляем закладку по индексу или идентификатору
Процедура Удалить(ИндексИдентификатор) Экспорт
	Страницы.Remove(ИндексИдентификатор);
КонецПроцедуры
//------ перемещаем закладку на новую позицию
Процедура Переместить(ИндексИдентификатор,Позиция) Экспорт
	Страницы.Item(ИндексИдентификатор).Index=Позиция;
КонецПроцедуры
//------ корректируем заголовок, подсказку и позицию закладки
Процедура Установить(ИндексИдентификатор,Заголовок,Подсказка="",Позиция=-1) Экспорт
	ТекЗакдадка=Страницы.Item(ИндексИдентификатор);
	ТекЗакдадка.ControlTipText	=Подсказка;
	ТекЗакдадка.Caption			=Заголовок;
	Если Позиция>0 Тогда
		ТекЗакдадка.Index		=Позиция;
	КонецЕсли;
КонецПроцедуры
//------ устанавливаем или просто возвращаем видимость закладки
Функция Видимость(ИндексИдентификатор,ФлагВидимости="") Экспорт
	Если ФлагВидимости<>"" Тогда
		Страницы.Item(ИндексИдентификатор).Visible=ФлагВидимости;
	КонецЕсли;
	Возврат Страницы.Item(ИндексИдентификатор).Visible;
КонецФункции
//------ устанавливаем или просто возвращаем доступность закладки
Функция Доступность(ИндексИдентификатор,ФлагДоступности="") Экспорт
	Если ФлагДоступности<>"" Тогда
		Страницы.Item(ИндексИдентификатор).Enabled=ФлагДоступности;
	КонецЕсли;
	Возврат Страницы.Item(ИндексИдентификатор).Enabled;
КонецФункции
//------ устанавливаем шрифт закладок
Процедура утый=0) Экспорт
	Шрифт 				=ОбъектЗакладки.Font;
	Шрифт.Bold 			=Жирный;
	Шрифт.Italic		=Курсив;
	Шрифт.Name			=ИмяШрифта;
	Шрифт.Size			=РазмерШрифта;
	Шрифт.Strikethrough =Зачеркнутый;
	//Шрифт.Charset		=НаборСимволов;
	//Шрифт.Weight		=ШиринаШрифта;
	Шрифт.Underline		=Подчеркнутый;
КонецПроцедуры
//------ устанавливаем параметры закладок
Процедура Параметры(Фон="",ЦветТекста="",Многострочность=0,Стиль=0,Ориентация=0) Экспорт
	Если ПустоеЗначение(Фон)=0 Тогда
		ОбъектЗакладки.BackColor=Фон;
	КонецЕсли;
	Если ПустоеЗначение(ЦветТекста)=0 Тогда
		ОбъектЗакладки.ForeColor=ЦветТекста;
	КонецЕсли;
	ОбъектЗакладки.MultiRow		 =Многострочность;
	ОбъектЗакладки.Style		 =Стиль;
	ОбъектЗакладки.TabOrientation=Ориентация;
КонецПроцедуры
//------ устанавливаем текущей закладку по индексу или идентификатору, или просто возвращаем идентификатор активной закладки
Функция ТекущаяЗакладка(Идентификатор="") Экспорт
	Если Идентификатор="" Тогда
		Попытка
			Возврат ОбъектЗакладки.SelectedItem.Name;
		Исключение КонецПопытки;
	Иначе
		Индекс=Страницы.Item(Идентификатор).Index;
		ОбъектЗакладки.Value=Индекс;
		Возврат Индекс;
	КонецЕсли;
КонецФункции
//------ Харе Кришна

 

Да, я в курсе про этот АктивИкс, сам давно использую.
Интересно было со штатными разобраться.

chessman писал(а) 14. Декабря 2012 :: 06:57:


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

нету.
поворота контролов точно нету, и поворота текста в "тексте" тоже нет

Для сравнения - как форма выглядит сейчас:

Темы отключены у нас.

Кроме того ты же сам знаешь, что с манифестом возможны глюки ещё те. (При вставке картинок в Библиотеку базы с манифестом). Контролы черные....

Работаю в этом направлении...
Вот одну проблему вообще непонятно, как решать. Картинки для кнопок хранятся в битмапах и там везде "подложка" серого цвета. Ее никак не перекрасишь.

Так я как раз про фон и говорю - как его сделать одним для всех элементов окна - закладок, тулбара и пр.? Я это сделал фотошопом - на первом варианте. А на втором - цвет фона формы задаю формексом. Но формекс задает фон только рабочего поля окна.

Хотелось бы раскрашивать формы отдельно, т.к. есть метод Формекса, но он ограниченный. А если можно будет раскрасить всю 1С одним махом - это тоже подойдет!

В принципе можно для каждого контрола задать свой цвет фона/шрифта.
Может и шрифт можно поменять, нужно проверить.

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

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

chessman писал(а) 11. Января 2013 :: 16:32:


Есть прогресс ???
Появилось немного времени заняться "бантиками". Перебрал все темы про закладки - пришел сюда. Проблема все таже - раскрасить фон закладки в цвет фона формы (ну и всё остальное в тот же цвет). Причем, если хочется совсем красиво - надо активную закладку красить в цвет формы, а неактивные - другим цветом (см. Рис.2)

Еще до кучи: при использовании Forms.MultiPage.1, когда делаю закладки вертикальные (слева) - как заголовки закладок выровнять по левой стороне? (как и где вообще посмотреть атрибуты и методы Forms.MultiPage.1? в MS VB Офиса не нашел )

В общем ИМЕЕМ: Рис.1

ОХОТА: Рис.2

alyuev писал(а) 20. Мая 2013 :: 10:58:


Да, уже нашел. Спасибо!

Остался вопрос: как и где вообще посмотреть атрибуты и методы Forms.MultiPage.1? в MS VB Офиса не нашел Печаль

Eprst писал(а) 20. Мая 2013 :: 12:15:


Вооот! ключевое слово FM20.dll Спасибо Eprst! как всегда выручил.