Вопрос в продолжении.
Как срабатывает событие Paint? Как оно влияет на обновление канваса?
Попробовал рисовать стрелку в событии Paint PintBox-а но на канвасе родителя, но получилось не очень. Канвас обновляется не весь сразу, а после отрисовки каждого ПаинБокса (при том сами пайнбоксы все сразу обновляются, а вот стрелки - нет). Как-то попросить/заставить его этого не делать можно? Двойная буферизация включена.
В жизни всё не так плохо, как на гифке, просто мерцает. Вторая часть гифки когда пошагово выполнял. Дабы не вносить лишние ошибки рисую линию простым MoveTo;

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

DimaBrАндрей Игоревич

Зачем вы рисуете на Parent ?
Тут можно понять вопрос в двух вариантах.
1. Почему на Parent, а не на Пеинтбоксе? - Потому что стрелки могут выходить сильно за пределы шестигранника и рисовать их на канвасе пеинтбокса неразумно, он тогда будет перекрывать доступ ко всему.
2. Почему написал Parent, а не конкретный компонент? - есть дальнейшие планы по реализации, и там хочется все "шестигранные компоненты" включить в компонент наследник панели с канвасом в виде MyDrawPanel.Item[xxx].(процедуры и параметры) . В принципе описать можно по разному, сути не меняет. На указанную проблему мерцания не влияет, можно и конкретный канвас указать, так же будет. Мне больше интересно как вообще событие Paint обновляет канвас, видимо из него рисовать на других канвасах вне ПейнБокса плохая идея, надо будет разобраться.

mkrа если всё это рисовать в directX (2d) или opengl?!Освоение возможностей данных библиотек я оставил на чуть попозже. Стоит ли сейчас туда лезть?

По поводу стрелок. Чего-то не соображу как их рисовать.
Дело в чем, событие Pain у TPainBox срабатывает в самом конце, после любого кода. То есть если я нарисуют стрелки на канвасе родителя в коде даже после создания TPainBox, пример для сути (не код, просто суть)


То событие Paint всё равно нарисует PaintBox поверх линии.

Если же рисовать стрелку вызывая на канвасе родителя из события Paint, то могут происходить самые разные вакханалии, например обновление канваса родителя вызывает событие Paint у PaintBox-ов который вызывает канвас родителя который... (ну вы поняли, зациклится и будет мерцать вечтно). При двойной буферизации такого не происходит, но происходят другие неприятности (видимо, просто цикл обновлений канваса прерывается на случайном месте и стрелка то видна, то нет).
Если попробовать рисовать стрелки в событии OnMove тоже интересные эффекты рядом с ПаинБоксом (видимо канвас родителя перерисовывается не весь, а только рядом с перемещаемым ПаинБоксом).
В общем мои идеи рисования стрелок что-то не сработали. Вот блин сложная задача для меня :).

s62кажется тут уже писали, есть другой вариант, идея которого в том, что не использовать какие-либо компоненты для изображения шестиугольников и стрелок, а рисовать всё прямо на одном PaintBox (или на Canvas какого-то другого компонента).
Написать функцию, которая рисует шестиугольник заданного размера и цвета в заданном месте, функцию, которая рисует стрелку в заданном направлении в заданном месте. Хранить данные о всех шестиугольниках и стрелках в массивах или каком-то другом контейнере.
Перемещение реализовать через обработку событий мыши. Мышка нажата - в массиве шестиугольников отыскивается тот, на котором она нажата. Когда отпускается - этот шестиугольник перерисовывается в новом месте.
Всё рисуется на скрытом Bitmap, а потом готовая, полностью нарисованная картинка копируется на PaintBox.

Один в один всё уже реализовано в работающем коде именно так :), смотри первый пост, даже на битмапе уже рисую "ассоциирую". Мне то чего хотелось:
Я хотел сделать компонент который был полностью самодостаточен и существует отдельно от остального кода (многоугольник + стрелка + лейблы + рисунок типа стрелки). Создал в коде - там сразу всё по умолчанию уже хорошо. Далее меняя параметры получаю нужную мне картинку.
Ну и хотел реализовать события на клики по лейблам и высвечивающиеся подсказки. Ещё дополнительно компонент родитель в виде массивов компонентов типа описанного выше с доступом Родитель.Item[...].(Свойство или Метод)

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

Наверно тут мудрёно написано и оно вам не особо надо, просто хз как объяснить :). Ну для примера, вы же не рисуете на форме все компоненты рисунками (сами, а не готовые из делфи), а потом не начинаете писать тучу кода для того, что бы реализовать все возможные взаимодействия (через перехват координат или ещё как). Вы пользуетесь готовыми решениями (даже если по сути это тоже рисунок), для которых всё уже написано и сделано, и в которых каждый компонент "вещь в себе".
Вот и для меня этот рисунок из многоугольников по сути целая интерактивная панель, работать с которой (в части кода) гораздо удобнее если каждый элемент - это компонент. Но это не отменяет возможности работы с ней, как с рисунком.

DimaBr


В принципе рабоче, хотя уже почти то же самое, что и было изначально :). Ладно, видимо только так можно.

Наконец появилось свободное время поковыряться. В принципе всё что хотел изначально - сделал. Не так просто в коде как с панельками, но пойдет. Не уверен, конечно, в своих решения, но, вроде, работает :). От лейблов пришлось отказаться, всё-таки 500 штук сильно долго рисуются (0.2-0.3 секунды).
Единственно Хинты не совсем идеально работают. Вывод Хинта привязал к MouseMove (если попал в многоугольник то..., если в шестиграннике попал на текст, то..). Но, видимо, так как всё один компонент - само не перерисовывалось (хотя в статусбаре при присвоении менялось сразу), пришлось выводить через Application.ActivateHint(), но он мгновенно рисуется при наведении. В принципе и так неплохо, может даже и лучше.

В принципе по алгоритмам вопросов много (часто кажется, что как-то неправильно сделал), но, наверное, наглеть не стоит с вопросами. Всем просто огромнейшее спасибо.

Такой вопрос возник. Есть панель, на основании делаю наследника с нужными мне особенностями, пусть будет ChangingPanel (панель с возможностью изменения размеров + рамка + иконка указателя) и на основании неё уже делаю наследника с нужным содержимым панели - пусть будет LegendPanel.
Сложность в чём, я хотел бы рисовать рамку в ChangingPanel (дабы в наследниках уже не думать об этом), а в наследнике рисовать уже то, что мне нужно.
Делал так:
В ChangingPanel и LegendPanel:


В ChangingPanel


в LegendPanel уже



но Inherited вызывает Paint изначальной Панели, а не ChangingPanel. Почему?

(по факту рисую посложнее, на панели - paitbox с отступами от границ для рамки и везде использую буферный канвас который в конце процедуры копирую).

Для наглядности, рисую легенду.

Ну и в принципе, есть ли более простые способы реализовать показанное на гифке, сейчас я рамку вообще в ручную рису (прямоугольник + 4 прямоугольника по углам, перемещение через ReleaseCapture; perform(WM_SysCommand, $F0.., 0) ну и тому подобное ), может уже всё давно готовое есть и я кривой велосипед изобретаю?

А, и ещё хотел спросить, можно ли сделать, что бы процедура/функция или свойство было доступно только для потомка (не глубже), а уже для основной программы всё было недоступно, кажется где-то я что-то такое видел.
И можно ли вообще сделать так же, но для родителя? Чтоб потомок имел доступ к свойству родителя (пусть через parent.property), и никто более. Просто ну очень сложно мне продумать логику так, чтоб всё в private было и писать для каждой фигни property тоже тяжко. А всё public как-то неправильно.

ёёёёёАвтар, http://docwiki.embarcadero.com/RADStudio/Rio/en/Methods_(Delphi)#Final_Methods
Слегка не понял. Да и на 7ке, вроде, не работает, как я понимаю. Но поизучаю поподробнее.

white_niggerАндрей Игоревич, ты это собираешься продавать программистам? Если нет - не парься над тем что неважно. Главное чтоб тебе было всё ясно-понятно и легко было поддерживать. Культура программирования хорошо оттачивается в командах, но это отдельная песня. Лучше найми дизайнера, а то в цветовой каше глаза сломаешь, хрен прочтешь половину текста

Ну так, в рамках развития потихоньку приучаю себя к культуре :), когда программа разрастается до очень больших размеров это очень помогает. Ну и очень помогает, когда свой код читаешь через некоторое время.

white_nigger Лучше найми дизайнера ха-ха :(

Это отладочная программа в которой вывожу почти всё, что только можно, дабы сразу отловить ошибки. В основной программе такого объема данных не будет (по факту на гифке просто огромное количество информации выводиться, такое в принципе читать сложно, в основной программе выводятся отдельные группы данных)

alekcvpАндрей ИгоревичА, и ещё хотел спросить, можно ли сделать, что бы процедура/функция или свойство было доступно только для потомка (не глубже), а уже для основной программы всё было недоступно, кажется где-то я что-то такое видел.
strict protected ?
У меня и так каждый компонент в отдельном модуле, думаю это избыточно.