|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
02.02.2011, 09:52 | #1 |
Delphi XE7
Пользователь
Регистрация: 26.07.2010
Сообщений: 74
|
TImage растягивание без масштабирования
Есть такая картинка:
Нужно превратить её в: Как можно реализовать подобное? |
02.02.2011, 10:16 | #2 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
Св-во Strech у имиджа в true
|
02.02.2011, 10:31 | #3 |
Delphi XE7
Пользователь
Регистрация: 26.07.2010
Сообщений: 74
|
То ли я не так понял, почитав про Stretch, то ли Вы меня.
Нужно растянуть картинку без искажения, то есть разрезать посередине, отрезанную часть сдвинуть на n пикселей и заполнить разрез шаблоном, взятым из вертикальной полоски в 1 пиксель слева (допустим) от места разреза. |
02.02.2011, 10:57 | #4 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Ручками программно в канве TImage
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
02.02.2011, 11:01 | #5 |
Delphi XE7
Пользователь
Регистрация: 26.07.2010
Сообщений: 74
|
Можно пример или ссылку на ман по Canvas? T_T
З.Ы. На моем Delphi документации нет. |
02.02.2011, 12:50 | #6 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
Код:
|
02.02.2011, 14:28 | #7 |
Delphi XE7
Пользователь
Регистрация: 26.07.2010
Сообщений: 74
|
{Кнопки "спасибо" не видно...
Спасибо большое!} upd: Все работает замечательно, только теперь появилась другая проблема: использую Vampyre Imaging Library, загружаю на форму dds с альфа-каналом. При использовании Canvas он пропадает, т.е. вместо полупрозрачного черного получаю непрозрачный черный. Последний раз редактировалось Stilet; 04.02.2011 в 14:16. |
03.02.2011, 16:55 | #8 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
попробуйте вот так, но я не уверен что поможет
Код:
|
04.02.2011, 13:34 | #9 |
Delphi XE7
Пользователь
Регистрация: 26.07.2010
Сообщений: 74
|
Проблема решена использованием мозгов и документации (полезно иногда, кстати):
Код:
Код:
Делал это исключительно для dds и под себя. Исходная картинка: Перерисованная: Последний раз редактировалось JoLan; 04.02.2011 в 15:59. |
05.04.2011, 18:01 | #10 | |
Пользователь
Регистрация: 24.02.2011
Сообщений: 28
|
Цитата:
Отаку
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Растягивание формулы | fadsozaur | Microsoft Office Excel | 28 | 08.08.2013 17:54 |
Алгоритм масштабирования | Alex Cones | Свободное общение | 4 | 25.05.2010 16:02 |
Существует ли компонент для автоматического масштабирования | zmey31313 | Компоненты Delphi | 1 | 12.12.2009 03:11 |
растягивание значений без формата ячейки | marc-nikita | Microsoft Office Excel | 3 | 08.12.2009 11:24 |