|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
30.06.2010, 18:19 | #1 |
Старожил
Регистрация: 05.06.2008
Сообщений: 4,206
|
Позиционное копирование изображение в Image
Работая дальше над своей программой, столкнулся со следующим. . Возникла необходимость отрисовывать некоторое изображение, которое находится в Image1 на Image2. Казалось бы все просто. Перекинуть его просто да и все. Ан нет, тут задачка гораздо сложнее . Итак, в Image1 хранится изображение как во вложении №1. Его на нем будет отрисовываться некий текст. И это изображение должно поместиться (ну, или скопироваться) на большой Image2. Вместе с отрисованным текстом. Вообщем-то, проблем с отрисовкой текста на первом Image1 проблем нет. Проблема с переносом его на Image2. Сложность заключается в том, что скопированные изображения должны друг за другом, начиная слева направо располагаться. Причем фишка в чем. В том, что значения в качестве текста должно будет последовательно браться из таблицы, каждый раз отрисовываться на Image1 и копироваться друг за другом на Image2 в таком же порядке, как и в каком они отрисовывались. Размеры Image2 менять нельзя. В конечном итоге должен получиться заполенный лист как во вложении №2. Сейчас я его руками нарисовал и думал просто отрисовывать текст на каждом из них, но, мне же заранее неизвестно сколько у меня будет чисел (текста) браться. Вот как можно организовать это самое копирование? Очень нужно.
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
|
30.06.2010, 20:25 | #2 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
Зачем так усложнять? Это все можно рисовать прямо на большой канве, MoveTo, LineTo методы.
Можно и копировать, CopyRect для этого юзай. Текст рисует TextOut. Настройки шрифта в Canvas.Font...
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
01.07.2010, 01:49 | #3 | |
Старожил
Регистрация: 05.06.2008
Сообщений: 4,206
|
Цитата:
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
|
|
01.07.2010, 08:50 | #4 | ||
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Цитата:
Рисуй в его ячейках - и будет тебе счастье.
I'm learning to live...
|
||
01.07.2010, 09:45 | #5 |
Старожил
Регистрация: 05.06.2008
Сообщений: 4,206
|
А можно пример как рисовать в нем?). Заиметь бы процедуру, которая будет рисовать в каждой ячейке то, что мне нужно, от я бы рад был))
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
|
01.07.2010, 09:55 | #6 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Да пожалуйста:
Код:
I'm learning to live...
|
01.07.2010, 11:46 | #7 |
Старожил
Регистрация: 05.06.2008
Сообщений: 4,206
|
Попробовал. Запустил приложение и получил ошибку как на скриншоте. Даже без понятия о чем она. Наверное попытка обращения к несуществующему объекту?
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
|
01.07.2010, 11:51 | #8 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А разобраться?
А пошаговку? Неужели отменили?
I'm learning to live...
|
01.07.2010, 12:00 | #9 |
Старожил
Регистрация: 05.06.2008
Сообщений: 4,206
|
Ну вот что мне выдал отладчик. Кажется выделил STrechBlt...
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
|
01.07.2010, 12:36 | #10 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
А вот скажи тебя не напрягает то что ты в обработчике отрисовки описал какую то левую локальную переменную, и не создал в нее обьект? Посмотри внимательно мой пример - вни-ма-тель-но
I'm learning to live...
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Изображение в image | _-Re@l-_ | Общие вопросы Delphi | 2 | 16.05.2010 11:57 |
image не появляется изображение | borik120 | Microsoft Office Excel | 1 | 23.02.2010 01:01 |
Копирование Image | mustang007 | Компоненты Delphi | 3 | 10.06.2009 22:21 |
Как сохранить изображение Image и всё что на нём, в файл? | Лукманов Александр | Мультимедиа в Delphi | 3 | 24.05.2009 00:16 |
как вращать изображение в image | ИЛ87 | Помощь студентам | 2 | 15.12.2007 19:47 |