|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.01.2015, 14:59 | #1 |
Новичок
Джуниор
Регистрация: 16.01.2015
Сообщений: 2
|
Рисую линии поверх картинки при перемещении картинки линии исчезают(
Подскажите пожалуйста как сделать так чтобы при перемещении картинки линии которые я нарисовал поверх неё закрепились на картинке..ну чтоб картинка вместе с нарисованными линиями перемещалась...
Есть ли вообще такая тема чтоб закрепить линии прямо на картинке или делать так чтоб при перемещении картинки надо отслеживать координаты и отрисовывать линии по ходу перемещения... так я сделал перемещение картинки(x0 и y0 это координаты курсора во время MouseDown а r и t координаты левого верхнего угла картинки(изначально равны нулям после первого перемещения присваиваю r и t текущие координаты угла картинки, присваивание делаю в обработчике события MouseUp) Код:
Последний раз редактировалось Stilet; 16.01.2015 в 16:38. |
16.01.2015, 15:50 | #2 |
Участник клуба
Регистрация: 03.06.2009
Сообщений: 1,834
|
тебе надо на картинку наложить компонент PaintBox, В этом компоненте рисовать свои линии. но сам компонент своими размерами должен быть как и картинка
Код:
Код:
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
|
16.01.2015, 16:18 | #3 |
Новичок
Джуниор
Регистрация: 16.01.2015
Сообщений: 2
|
Я создал PaintBox сделал размеры как у Image(я присваиваю размеры в обработчике в которой я картинку загружаю) и этот компонент перемещается вслед за имэджем..только теперь линии вообще не рисуются и перемещение пропало....
вот какие изменения сделал: Код:
Код:
Последний раз редактировалось Stilet; 16.01.2015 в 16:39. |
16.01.2015, 18:32 | #4 |
Участник клуба
Регистрация: 03.06.2009
Сообщений: 1,834
|
вот, для примера накидал тебе проект. в Image загружаешь рисунок 123. и компилируешь - на рисунке он тебе отрисует линию чёрную. по нажатию кнопки рисунок переместиться и линия тоже. добавил процедуру перерисовки procedure TForm1.PaintBox1Paint(Sender: TObject);
разберёшься - там не более 30 строк кода
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
|
16.01.2015, 19:37 | #5 |
Форумчанин
Регистрация: 27.10.2014
Сообщений: 594
|
Так устроит? Без дополнительных компонентов типа PaintBox и всяких прочих...
Код:
Последний раз редактировалось kropotkina-alice; 16.01.2015 в 19:40. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Фон поверх картинки | bamvam | HTML и CSS | 1 | 07.01.2014 00:01 |
Delphi 7,как сделать так чтоб при перемещении определенной картинки на другую открывалась форма(подробнее в описании) | daniil4326 | Компоненты Delphi | 3 | 22.12.2012 14:32 |
Сделать из линии, толщиной в несколько пикселей, линии, толщиной 1 пиксель. | ImmortalAlexSan | Общие вопросы Delphi | 12 | 25.10.2012 19:05 |
Рисование линии поверх формы и лейблов | Abbath1349 | Общие вопросы .NET | 0 | 30.03.2011 07:04 |
текст поверх картинки | Viteef | HTML и CSS | 3 | 29.06.2007 16:58 |