Имя: Пароль:
1C
 
Как поставить фоновую картинку в 1С ?
0 Pro-tone
 
10.09.08
11:16
Чтоб на заднем фоне был не серый фон, а картинка, к-рую я хочу, допустим.
1 ДенисЧ
 
10.09.08
11:17
УстановитьОбои(<?>,,,)
SetWallpaper(<?>,,,)
Синтаксис:
УстановитьОбои(<Имя>,<Положение>,<Серый>,<ЦветФона>)
Назначение:
Метод позволяет загрузить свою картику на задний план главного окна 1С:Предприятия.
Замечание:
Если в библиотеке картинок есть картинка с идентификатором Wallpaper, то при загрузке
компоненты она автоматически загружается в качестве обоев в левый верхний угол, в режиме
оригинального отображения.
Пареметры:
<Имя> - Имя файла с картинкой (bmp) или идентификатор картинки в библиотеки картинок.
Может быть пустой строкой. В этом случае следующие параметры применяются к текущей
загруженной картинке.
<Положение> - задает положение картинки в окне. Может принимать следующие значения:
0 - не показывать картинку;
1 - показывать в левом верхнем углу;
2 - показывать в правом верхнем углу;
3 - показывать в левом нижнем углу;
4 - показывать в правом нижнем углу;
5 - показывать по центру экрана;
6 - растянуть картинку во все окно;
7 - размножить картинку по окну.
<Серый> - необязательный флаг, задающий показ картинки в режиме градаций серого:
0 -  показ в оригинальном виде; 1 - показ в обесцвеченном виде. По умолчанию 0.
<ЦветФона> - необязательный, число в RGB, задает цвет фона всего окна заднего плана.
Пример:
Сервис = СоздатьОбъект("Сервис");
Сервис.УстановитьОбои("Лого",4,1,255);


Вк FormEx
2 Pro-tone
 
10.09.08
11:22
Спасибо, это написать свою обработочку надо как я понял и из нее выбирать обои. Жалко, что такого нету в меню сервис изначально уже.
3 Pro-tone
 
10.09.08
11:49
Сервис = СоздатьОбъект("Сервис");
{C:\DOCUMENTS AND SETTINGS\АДМИНИСТРАТОР\РАБОЧИЙ СТОЛ\ЧТО СДЕЛАНО 1С\ПОСТАВИТЬОБОИ.ERT(15)}: Неудачная попытка создания объекта (Сервис)
4 Pro-tone
 
10.09.08
11:51
у меня 7.7, объекта сервис нету такого
5 Андрюха
 
10.09.08
11:50
(3) Это FormEx
6 ДенисЧ
 
10.09.08
11:52
(4) я ж написал "Вк FormEx" ...
7 Господин ПЖ
 
10.09.08
11:51
(3) а вот это маленькими буквами, читали? (с) остап Бендер

"Вк FormEx"
8 Vippi
 
10.09.08
11:53
(4)
см. (1) > Вк FormEx
9 Pro-tone
 
10.09.08
11:54
а где и как его включить ? :)
10 Андрюха
 
10.09.08
12:06
11 Pro-tone
 
10.09.08
12:13
Процедура ВыбратьФайл()
                     
ИмяФайла  = "";    
ПутьФайла = "";        

Если  ФС.ВыбратьФайлКартинки(0,ИмяФайла,ПутьФайла,,) =1 тогда
   ПутьФайлаКартинки = ПутьФайла + ИмяФайла;                              
КонецЕсли;    
 
КонецПроцедуры        
Все, теперь скачал, написал,

Процедура Выполнить()    
   
   Если ЗагрузитьВнешнююКомпоненту("FormEx.dll")=1 Тогда
       Сервис = СоздатьОбъект("Сервис");
       Сервис.УстановитьОбои(ПутьФайлаКартинки,6,1,255);    
   КонецЕсли;;
   
   
КонецПроцедуры


теперь такое

Сервис.УстановитьОбои(ПутьФайлаКартинки,6,1,255);    
{C:\DOCUMENTS AND SETTINGS\АДМИНИСТРАТОР\РАБОЧИЙ СТОЛ\ЧТО СДЕЛАНО 1С\ПОСТАВИТЬОБОИ.ERT(17)}: Слишком много параметров передано при вызове функции/процедуры объекта
12 АЛьФ
 
10.09.08
12:16
Какую версию скачал то?
13 Kuzen
 
10.09.08
12:20
Сервис.УстановитьОбои(КаталогИБ()+"Logo.bmp",6);
14 Pro-tone
 
10.09.08
12:33
1.9, убрал последний параметр, оставил 3, а не 4 и запахало))
15 Pro-tone
 
10.09.08
12:33
и впихнул в ПриНачалеРаботыСистемы, всем спасибо
16 АЛьФ
 
10.09.08
12:38
2(14) Ты б еще 1.7 по старым архивам поискал. Последнюю версию скачивай - 2.0.5.92
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.