Мышь в виде перекрестия на весь PaintBox (Image)

Здравствуйте! Использую PaintBox, но можно поговорить и об Image, т.к. почти одно и тоже)
Задача в следующем:

На своём PaintBox (далее PB) сверху (примерно 80% его высоты) у меня отведено под некий график, а в нижней части PB (20%) я вывожу другой график, который идейно связан с верхним. Т.е. каждая точка на нижнем графике "рассказывает" пользователю о состоянии соответствующей точки верхнего графика. Но зрительно проводить вертикаль между далеко отстоящими друг от друга графиками не всем пользователям позволит косоглазие ))) Поэтому возникла идея превратить мышь в вертикаль на всю картинку, которая будет точно показывать, какая точка нижнего графика соответствует какой точке верхнего. Ну, а горизонталь за компанию: значение оси Y показывать будет... хотя особой необходимости в ней нет... так что если от этого зависит решение, то горизонталью я готов пожертвовать )))

Можно использовать OnMouseMove и рисовать линии на PB. Но если перерисовывать всю картинку при каждом движении мышки на 1 пиксель - то PB нереально дёргается (как мониторы компьютеров, которые показывают по телевизору, только быстро), программа иногда вылетает, да и вообще, выглядит это не эстетично и ужасно...

Возникла идея создавать новый огромный курсор мыши в виде креста (ведь он не связан графически с PB и своим перемещением зарисовывать изображение на нём не будет). А поскольку расстояния от перекрестия до границ PB всегда будут разными, то создавать этот курсор надо каждый раз новый в OnMouseMove, а не просто загрузить курсор из файла размером в три монитора ))). Может, кто-то знает, как это сделать? Или у кого-то будет оригинальное гениальное решение? Смысл в том, чтоб рисовать крест не на PB и не удалять его, восстанавливая изображение под ним, после того, как мышь ушла в другое место. Заранее, спасибо.

0

Сообщение от Kvarcenar Я ж говорю, если перерисовывать всю картинку при каждом движении мышки на пиксель - то вся картинка дёргается сильно.

DoubleBuffered = true должен гасить.

0

Сообщение от Avazart DoubleBuffered = true должен гасить.

Сообщение от Kvarcenar Не помогает... И где эту строку писать? Я в событии FormActivate написал...

ну, и перед прорисовкой в онмаусмуве тоже пробовал.. и в онпэинте.. без изменений..
Друг предложил версию, что помогает в более новом билдере.. у меня 6-й..

0

Сообщение от Kvarcenar Друг предложил версию, что помогает в более новом билдере.. у меня 6-й..

Кстати да я когда-то делал такую штуку студенту

Тоже помню из-за чего-то B6 тоже подлагивало в отличие от XE3

0

Сообщение от Avazart Тоже помню из-за чего-то B6 тоже подлагивало

это ещё не лагает.. ))) может, потому что белый фон... у меня фон чёрный. и при каждой перерисовке моргает. Имидж - широкими белыми полосами сверху вниз проходит, а пэинтбокс - терпимо. иногда даже почти незаметно.. но проблема с перекрестием решилась, да ещё и картинка не исчезает.. ради мелкого неудобства с едва заметным морганием переходить на новую версию пока не дозрел.. )))

0

Так это TPainBox рисуется.
C TImage нужно иначе...
на TImage я делал https://www.cyberforum.ru/blog... og621.html - и работало нормально (на там правда быдлокод, ибо писал давно и много эксперементировал)

Нужно просто думать как прорисовывать так что бы с минимальной нагрузкой, и по меньше участок прорисовывать.

0

Сообщение от Avazart на TImage я делал...

Я с Имиджем тоже дружу. Когда-то писал расписание-бухгалтерию для студии звукозаписи - до сих пор пользуются:

думаете, СтрингГрид? Не-а! Имидж! тут ячейки можно разноцветными делать )))) а в СтрингГриде нельзя. А в Вашей проге чё ему дёргаться? Вы ж его не перерисовываете по ОнМаусМув. А у меня поток рисует и обновляет в реальном времени. А по ОнМаусМув комменты для каждой точки выводятся разные текстом на картинке.. хотя, как Вы там ярлыки по рабочему столу тягаете - не знаю... должно дёргаться... )))

0

Сообщение от Kvarcenar думаете, СтрингГрид? Не-а! Имидж! тут ячейки можно разноцветными делать )))) а в СтрингГриде нельзя.

Думаю для этого есть DrawGrid, и кстати в TStringGrid тоже можно )))

Добавлено через 1 минуту

Сообщение от Kvarcenar А у меня поток рисует и обновляет в реальном времени.

А понту? Таймер не?

P.S Я тоже когда-то подобную ерунду для расписания делал.

0

Сообщение от Avazart Думаю для этого есть DrawGrid

Пробовал.. Но не разобрался, как его цветным делать.. Сроки поджимали, поэтому долго не мучился - написал, как умел )))) Зато теперь можно хвастаться, что из фантиков парашют сделал ))))

Добавлено через 1 минуту

Сообщение от Avazart А понту? Таймер не?

ну, в потоке дэлэй, разумеется.. или Вы о чём?

0

Сообщение от Kvarcenar ну, в потоке дэлэй, разумеется.. или Вы о чём?

Смысла нет, морока с синхронизацией... Лучше и проще таймером.

0

Сообщение от Avazart Лучше и проще таймером.

Ну, как же таймером? Запускать я его где буду, если не в потоке?

Добавлено через 4 минуты

Сообщение от Avazart таймером

это типа компонент такой? ща буду разбираться...

Добавлено через 3 минуты

Сообщение от Kvarcenar ща буду разбираться.

капец... как всё просто.... )))) буду проверять на практике...

Добавлено через 10 часов 29 минут

Сообщение от Avazart Лучше и проще таймером.

Попробовал таймер - штука классная, но не совсем подходит. Когда выполняется поток, то сколько бы времени ни заняло его выполнение (хоть вечный цикл туда запихни) - я могу в программе делать всё, что угодно: двигать окно, менять его размер, перерисовывать картинку, менять пользовательские параметры и т.д. А если работает таймер - то программа висит, пока он не закончит свою работу, и её даже закрыть нельзя. Так что пока что остаюсь в потоке. Но за таймер спасибо - узнал о новом компоненте )))

0

Сообщение от Kvarcenar А если работает таймер - то программа висит, пока он не закончит свою работу, и её даже закрыть нельзя.

А у вас там большая работа? Как бы сама прорисовка все равно должна идти с синхронизацией с основным потоком.

0

Сообщение от Avazart А у вас там большая работа?

Ну, не то, чтобы очень... Основная работа - это рисование. Ещё он получает данные из соседнего приложения (по CopyMemory), ну и по мелочи там. Просто, на рисунке много информации, и в зависимости от настроек пользователя (что туда выводить и с какой детализацией) время рисования бывает разным. На ВПС иногда больше секунды рисует.. (подозреваю, из-за убитой на ВПС графики) и это неудобно получается.. сидишь, водишь перекрестием по рисунку, присматриваешься, что там к чему, а оно бац - и повисло на полсекунды - неприкольно.. а с потоком такого нет. Он из памяти данные получил - и даже если рисунок не нарисовался, то координаты мыши уже рассчитываются по новым данным и некоторую информацию уже видно в статусбаре, да и отсутствие тормозов не так нервирует..

Сообщение от Avazart Как бы сама прорисовка все равно должна идти с синхронизацией с основным потоком.

А что там синхронизировать? Есть глобальная булевая переменная - индикатор работы очередной итерации рисования. И пока рисование активно - доступ к функциям рисования другим баттонам и маусмувам запрещён. Так я частично избавился от упомянутого в теме вылета программы из-за ошибки "отказано в доступе" ))) А что ему ещё надо? Рисует себе в фоне - и пусть рисует )))

0

Сообщение от Kvarcenar Основная работа - это рисование.

Ну так рисовать можно только в основном потоке как не крути.
Т.е. синхронизация сводит весь выигрыш от потока на нет.

Добавлено через 1 минуту

Сообщение от Kvarcenar А что там синхронизировать? Есть глобальная булевая переменная - индикатор работы очередной итерации рисования. И пока рисование активно - доступ к функциям рисования другим баттонам и маусмувам запрещён. Так я частично избавился от упомянутого в теме вылета программы из-за ошибки "отказано в доступе" ))) А что ему ещё надо? Рисует себе в фоне - и пусть рисует )))

Это туфта, будет падать. Нужно или через Synchronize или через блокировку канвы.

Как сделать "Старт", "Пауза", Стоп"?

0

Сообщение от Avazart рисовать можно только в основном потоке

Ну, не знаю.. у меня рисует.. и поскольку все функции рисования я перенёс в событие ОнПэинт, то всё, что в программе способно рисовать вызывает это событие вот так: PaintBox1Paint(NULL); В его коде всё начинается с условия проверки глобальной переменной DrawProcFree, которая изменяется только в двух местах: в true при FormActivate и в самой
Поэтому пока кто-то рисует - никто другой рисовать не может. А поток у меня не такой, как у Вас в архиве. У меня _beginthreadex...

Сообщение от Avazart Это туфта, будет падать. Нужно или через Synchronize или через блокировку канвы.

Ну, иногда вылетает, да.. Не знаю, почему.. Поискал темы о синхронизации, погуглил - иногда встречаются фразы типа "в данном случае синхронизация не нужна".. Почему будет падать и что такое канва?

0

Сообщение от Kvarcenar Почему будет падать и что такое канва?

По тому что это туфта @
а не синхронизация и падает именно по тому что ее нет...
Стоит во время перерисовки из потока подергать,потаскать форму мышкой и приложение виснет и падает.
Канва = Canvas

Добавлено через 3 минуты

Сообщение от Kvarcenar У меня _beginthreadex...

Тем более, нужно использовать TThread который специально заточен на использования с VCL и имеет методы для синхронизации.

0

Ок. Это моя первая серьёзная программа с потоком, поэтому я в потоках не особо шарю. Вы выше сказали, что синхронизация сведёт на "нет" преимущество потока. Так могу ли я как-то избавиться и от зависания (как в таймере), и от вылетов (как в потоке)? Просто, смысл сейчас заморачиваться с синхронизацией, если результат будет как в таймере?

0

Сообщение от Kvarcenar Так могу ли я как-то избавиться и от зависания (как в таймере)

Ну я не знаю почему у вас висит, вероятно нужно смотреть почему висит.

0

Сообщение от Avazart Ну я не знаю почему у вас висит, вероятно нужно смотреть почему висит.

Висит - если долго рисует. Ещё для сравнения с потоком вставлял вечный цикл вайл(тру), в котором i++; дэлэй(10); и эдит->текст=i; Поток прописывает в эдит каждое i, и с приложением можно проводить любые махинации. А таймер висит вечно, и эдит не меняется. И даже закрыть окно крестиком нельзя. Вот и делаю вывод, что на компе, на котором рисовать будет долго (как на ВПС, например), будет и висеть долго. А это не есть хорошо.

Добавлено через 26 минут

Сообщение от Kvarcenar дэлэй

сорри, не дэлэй, а слип ))))

0

Sleep() - это вообще круто!! (типа: лучше не применять). А таймер сам собой не остановится; может из-за этого не выходит (раз вы с этим компонентом еще не работали). Для однократного применения в его обработчике в конце нужно прописать Timer1->Enabled = false; - тогда остановится.

0

Вечный цикл?

0