(UTC)
  1С++ users forum › 1С++ и прочие расширения v7 › Разработка › Как убрать границу ActiveX-элемента?
(Группа Модераторов: 1c++ moderator)
‹ Предыдущая Тема | Следующая Тема ›
Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Как убрать границу ActiveX-элемента? (число прочтений - 4637 )
maljaev
Senior Member
****
Отсутствует


Классический секс с 1С
надоел. Хочется изврата...

Сообщений: 405
Местоположение: Нижний Новгород
Зарегистрирован: 19. Октября 2006
Пол: Мужской
Как убрать границу ActiveX-элемента?
22. Сентября 2009 :: 11:15
Печать  
Создаю значит ActiveX:

Код
Выбрать все
Браузер=СоздатьОбъект("АктивИкс");
Браузер.УстановитьАтрибут(Форма,"HTTP");
Браузер.СоздатьЭУ("Shell.Explorer.2");


В результате ActiveX обведен вдавленной рамкой, а мне этого не нужно, мне хочется чтобы он был на одном уровне с формой, одного цвета и вообще никак не выделялся. Можно это как-нибудь сделать?

Вывести границы ActiveX за пределы формы не предлагать - все это получается но мне хотелось бы на форме и традиционные элементы иметь. А возможно и несколько ActiveX-ов.
  
___________002.jpg ( 16 KB | Загрузки )
___________002.jpg
Наверх
 
IP записан
 
maljaev
Senior Member
****
Отсутствует


Классический секс с 1С
надоел. Хочется изврата...

Сообщений: 405
Местоположение: Нижний Новгород
Зарегистрирован: 19. Октября 2006
Пол: Мужской
Re: Как убрать границу ActiveX-элемента?
Ответ #1 - 22. Сентября 2009 :: 11:57
Печать  
В общем, опять сам же и отвечаю на свой вопрос:

Код
Выбрать все
Процедура ПерестоитьЭлементы(ШиринаФормы,ВысотаФормы)
	Атрибут=РасшФормы.ПолучитьАтрибут("HTTP");
	Атрибут.УстановитьКоординаты(10,10,ШиринаФормы-20,ВысотаФормы-20);
	Попытка
		Браузер.Объект.Left=-2;
		Браузер.Объект.Top=-2;
		Браузер.Объект.Width=ШиринаФормы-17;
		Браузер.Объект.Height=ВысотаФормы-17;
	Исключение
	КонецПопытки;
КонецПроцедуры

Процедура ПослеОткрытия()
	Браузер=СоздатьОбъект("АктивИкс");
	Браузер.УстановитьАтрибут(Форма,"HTTP");
	Браузер.СоздатьЭУ("Shell.Explorer.2");
	ПерестоитьЭлементы(РасшФормы.Ширина,РасшФормы.Высота);
	Браузер.Объект.Navigate(КаталогФормы+"index.html");
КонецПроцедуры

Процедура ПриИзмененииРазмераОкна(ТипСобытия,Ширина,Высота)
	Если ТипСобытия<>1 Тогда
		ПерестоитьЭлементы(РасшФормы.Ширина,РасшФормы.Высота);
	КонецЕсли;
КонецПроцедуры
  
___________004.jpg ( 12 KB | Загрузки )
___________004.jpg
Наверх
 
IP записан
 
Eprst
God Member
*****
Отсутствует



Сообщений: 3397
Зарегистрирован: 08. Октября 2007
Re: Как убрать границу ActiveX-элемента?
Ответ #2 - 23. Сентября 2009 :: 13:16
Печать  
Т.е.  просто контрол к границе подвинул и всё ?
А если нужен будет поменьше размерчик ?

Улыбка
  
Наверх
 
IP записан
 
maljaev
Senior Member
****
Отсутствует


Классический секс с 1С
надоел. Хочется изврата...

Сообщений: 405
Местоположение: Нижний Новгород
Зарегистрирован: 19. Октября 2006
Пол: Мужской
Re: Как убрать границу ActiveX-элемента?
Ответ #3 - 23. Сентября 2009 :: 18:47
Печать  
Любой размерчик в любом месте формы. Просто размер контрола должен быть меньше размера WebBrowser на 4px (или 3, не помню...) по каждой стороне и всё.
« Последняя редакция: 25. Сентября 2009 :: 07:36 - maljaev »  
Наверх
 
IP записан
 
maljaev
Senior Member
****
Отсутствует


Классический секс с 1С
надоел. Хочется изврата...

Сообщений: 405
Местоположение: Нижний Новгород
Зарегистрирован: 19. Октября 2006
Пол: Мужской
Re: Как убрать границу ActiveX-элемента?
Ответ #4 - 25. Сентября 2009 :: 07:39
Печать  
Кстати, проверьте кому не лень - для других ActiveX данный метод работает или только для WebBrowser?
  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать
‹ Предыдущая Тема | Следующая Тема ›
 
  « Главная ‹ Раздел Вверх  



Valid RSS Valid XHTML Valid CSS Powered by Perl Source Forge