Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Графика и игры
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 17.03.2008, 08:11
somlich somlich вне форума
Прохожий
 
Регистрация: 03.11.2006
Сообщения: 19
Репутация: 10
По умолчанию Измерение растояния в мм на bmp картинке

В общем задача такова, загружается в программу bmp файл в TImage и в нем есть некоторый обект который нужно измерить. Пользователь мышкой растягивает линию и программа в зависимости от длины линии пишет размер данного объекта в мм. Расширение картинки 640-480, что узнать количество пикселей на мм можно в кадр засунуть шаблон с заранее известным размером и по нем уже расчитать отношение мм/пиксели.

Проблема в том, каким макаром сделать чтоб можно было рисовать линию мышкой (т.е. щелкнул, началось рисование дальше растянул в нужную строну, щелкнул - закончилась линия, потом рачиталась ее длина, а если не понравилось щелкнул второй кнопкой мыши и линия исчезла и начал измерение заново).

Заранее спасибо за ответ
Ответить с цитированием
  #2  
Старый 27.03.2008, 22:25
Smirnov Ivan Smirnov Ivan вне форума
Прохожий
 
Регистрация: 26.02.2008
Сообщения: 12
Репутация: 10
Сообщение

Вот сделал, разберайся.... а вот как удалить предыдущую линию, не знаю( в общем у меня есть идеи,но они не получаються т.к. эти mouseup,down,move запрограммированы на левую и правую кнопку , в исходнике оставил код правой кнопки , и далее кто-нибудь может поможет
Вложения
Тип файла: zip Измерение длины линии.zip (1.9 Кбайт, 21 просмотров)

Последний раз редактировалось Smirnov Ivan, 27.03.2008 в 22:29.
Ответить с цитированием
  #3  
Старый 27.03.2008, 22:59
Adler Adler вне форума
Прохожий
 
Регистрация: 20.01.2008
Сообщения: 34
Репутация: 10
По умолчанию

somlich
*rofl* вот это проблемма. смотри скоко делать. нарисовать линию. запомнить первую точку. запомнить вторую точку. найти длину линии. а самое сложно это перерисовать без линии. ыы... ржаччь.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 18:30.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter