Имя: Пароль:
1C
 
Как изменить размер картинки?
0 Passer
 
19.10.05
16:29
Есть секция "Секция_3|Секция_1", в ней объект Картинка, в Свойства-Расшифровка: Рисунок(Таблица.ТекущийОбъект).
Есть секция "Секция_3|Секция_2", в ней пусто.
В модуле так:
...
//*******************************************
Процедура Сформировать()
   Таблица.Очистить();
   Таблица.ИсходнаяТаблица("Таблица");
   Таблица.ВывестиСекцию("Секция_3|Секция_1");
   Таблица.ПрисоединитьСекцию("Секция_3|Секция_2");
   Обл = Таблица.Область("R1C1:R1C2");
   Обл.Объединить();

   Таблица.ТолькоПросмотр(0);
   Таблица.Показать();
   
КонецПроцедуры
Функция Рисунок (Куда)
       Куда.УстановитьКартинку("C:\1\Pic1.bmp");
       Куда.РежимРисования(2);
КонецФункции
//*******************************************
...
Как изменить размер самой картинки, увеличить вдвое по ширине?
1 Passer
 
19.10.05
16:34
Ошибка. Вместо
Функция Рисунок (Куда)
       Куда.УстановитьКартинку("C:\1\Pic1.bmp");
       Куда.РежимРисования(2);
КонецФункции
читать
Функция Рисунок (Куда)
       Куда.Загрузить("C:\1\Pic1.bmp");
       Куда.РежимРисования(2);
КонецФункции
И всё же...
2 Passer
 
19.10.05
17:57
Ап
3 Волшебник
 
модератор
19.10.05
18:00
Может ты еще где-нибудь ошибся?
4 Груздь
 
19.10.05
18:01
Используй ВысотаСтроки() и ШиринаСтолбца() ...
5 Passer
 
19.10.05
18:26
(4)
...
Процедура Сформировать()
   Таблица.Очистить();
   Таблица.ИсходнаяТаблица("Таблица");
   Таблица.ВывестиСекцию("Секция_3|Секция_1");
   Таблица.ПрисоединитьСекцию("Секция_3|Секция_2");
   Обл = Таблица.Область("R1C1:R1C2");
   Обл.Объединить();
       Было = Обл.ШиринаСтолбца();
   Обл.ШиринаСтолбца(2*Было);
   
   Таблица.ТолькоПросмотр(0);
   Таблица.Показать();
   
КонецПроцедуры
...
Тогда Рисунок изменяется по ширине, но остаётся равным новой ширине одной ячейки. А нужно что бы он стал по ширине равен двум ячейкам и "перекрыл" две ячейки сразу....
6 Passer
 
19.10.05
18:27
(3) Это намёк или?
7 Груздь
 
19.10.05
18:44
(5) Относительно ячейки(ячеек) размером и положением картинки управлять штатными средствами нельзя ...
8 Passer
 
19.10.05
18:49
Можно через буфер обмена. Тогда работает.
Но какой это тип данных?
...
Функция RClipboard()
  Перем text;
  Сообщить("Читаю буфер обмена");
  oIE = СоздатьОбъект("InternetExplorer.Application");
  oIE.Navigate("about:blank");
  oIE.visible = 0;
  Пока oIE.Busy=-1 Цикл
      Состояние("Читаю буфер обмена");
  КонецЦикла;
  text = oIE.Document.parentWindow.clipboardData.getData ("IPicture");
  Состояние(oIE.Quit());
  oIE="";
  Возврат text;
КонецФункции
//*******************************************
Функция WClipboard(mytext)
  Сообщить("Зарисываю в буфер обмена");
  oIE = СоздатьОбъект("InternetExplorer.Application");
  oIE.visible = 0;
  oIE.Navigate("about:blank");
  Пока oIE.Busy=-1 Цикл
      Состояние("Записываю в буфер обмена");
  КонецЦикла;
  oIE.Document.parentWindow.clipboardData.setData("IPicture", mytext);
  Состояние(oIE.Quit());
  oIE="";
КонецФункции
//*******************************************
Процедура Сформировать()
   Таблица.Очистить();
   Таблица.ИсходнаяТаблица("Таблица");
   Таблица.ВывестиСекцию("Секция_3|Секция_1");
   Таблица.ПрисоединитьСекцию("Секция_3|Секция_2");
   Обл = Таблица.Область("R1C1:R1C2");
   Обл.Объединить();
   Было = Обл.ШиринаСтолбца();
   Обл.ШиринаСтолбца(2*Было);
   
   Таблица.ТолькоПросмотр(0);
   Таблица.Показать();
   
КонецПроцедуры
Функция Рисунок (Куда) Экспорт
   Куда.Загрузить("C:\1\Pic\2_1Pic1.bmp");
   Куда.РежимРисования(2);
   WClipboard(Куда);
КонецФункции  
...
Ругается
oIE.Document.parentWindow.clipboardData.setData("IPicture", mytext);
{C:\DOCUMENTS AND SETTINGS\ADMINISTRATOR\DESKTOP\2_10\НОВЫЙ3.ERT(24)}: Плохой тип переменной
9 Passer
 
19.10.05
18:56
+(8) Работает интерактивно, т.е. вручную скопировать-вставить можно...
А программно какой это тип данных? Тип "image" тоже не подходит...
10 Passer
 
20.10.05
11:11
Ап.
11 Passer
 
20.10.05
11:11
Ап.
12 Passer
 
20.10.05
17:35
Ап.
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший