![]() |
![]() |
![]() |
|
Как изменить размер картинки? | ☑ | ||
---|---|---|---|---|
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
|
Ап.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |