Не могу присвоить OnClick для динамического объекта

Создаю динамически картинки.
массив 4х4
Не могу присвоить объекту OnClick.

Создал на форме TImage, щелкнул на ней, появилась процедура OnClick.
Далее ее пытаюсь присвоить вновь созданному компоненту. Говорит незаявленный идентификатор

Все, что описано до присвоения работает, рисунки появляются

Миниатюры

   

0

Ну дуга понтная так то)) но по быстрому ее не начертить таким макаром ))
но можно же переписать на свой лад

Миниатюры

 

0

ну канвас и CAD сравнивать просто не надо. не надо и все , канвас пусть остается методикой рисования начальной стадии развития графики

а фишка в проге то прикольная рисоватьзавихренные дорожки шаблоном. надо в свой кад подобное! Супер идея.

а откуда берется вообще это имя? frmPP

0

Сообщение от Arcor но можно же переписать на свой лад

Пришлось бы, но спасибо праотцам (а не тем упырям, что сейчас губят альтиум),
разработавшим движок скриптов еще для protel 98, откуда и вышел альтиум.
Именно они дали доступ к определенным (т.е. почти всем) свойствам объектов.
Благодаря этому у дуги все, что нужно для отрисовки на канвасе есть.
например, координаты начала и конца, что очень облегчает задачу.
эти данные я тоже храню в реестре.

Сообщение от Arcor а фишка в проге то прикольная рисоватьзавихренные дорожки шаблоном

дело в том, что я трассировщик, а не программист.
идеи рождаются в процессе работы.

Сообщение от Arcor а откуда берется вообще это имя? frmPP

form primitive placer )

0

Сообщение от peshkoff-vn а откуда берется вообще это имя? frmPP form primitive placer )

я это к тому - надо разобраться, почему закрывается вся программа, при закрытии этой формы)

Сообщение от peshkoff-vn идеи рождаются в процессе работы.

так конечно! Иначе ходили бы все еще на мамонтов с камнями и кушали в пещере добычу

Сообщение от peshkoff-vn Осталась одна проблема, но по всей вероятности скриптом ее не победить. Заключается в том, что после выбора и скрытия формы мы не видим вставляемых объектов. Т.е. их пока и нет. они появятся только после указания точки вставки. потом включается альтиумовская команда по копированию и вставки по циклу, RubberStamp. В идеале мне хотелось бы, чтобы RubberStamp запускался сразу. Но как это сделать я даже не представляю, думаю что это невозможно. Поэтому лишние клики...

тут не совсем понятно, много местного сленга))

по сути ты выбираешь что-то вставить и оно появляется только после того, как ты вставил? Т.е. проблема прорисовки я так понимаю? А сверху рисовать их отдельно пока они еще не вставлены? т.е. прорисовка сперва шаблонного объекта, потом он вставляется и рисуется уже штатно. Или я не понимаю сути?)

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

Сообщение от peshkoff-vn Пришлось бы, но спасибо праотцам (а не тем упырям, что сейчас губят альтиум), разработавшим движок скриптов еще для protel 98, откуда и вышел альтиум. Именно они дали доступ к определенным (т.е. почти всем) свойствам объектов. Благодаря этому у дуги все, что нужно для отрисовки на канвасе есть. например, координаты начала и конца, что очень облегчает задачу. эти данные я тоже храню в реестре.

так есть такая функция уже внутри? я просто написал функцию. где задаешь:
- где рисовать
- точка центра эллипса
- радиус по X
- радиус по Y
- начальный угол
- конечный угол

и еще один момент. в каком событии ты рисуешь? я нигде не нашел OnPaint или что-то подобное, т.е. если нарисовать что-то по клику на кнопке, затем перекрыть эту зарисованную область, то оно по сути сотрется, почему и рисуют в событии перерисовки. в этом может еще проблемы

0

Сообщение от peshkoff-vn чтобы еще и эллипсоидную дугу засунуть.

Именно. Это часть эллипса, которая начинается от отрезка между центром прямоугольника и третьей парой координат и заканчивается на отрезке между центром прямоугольника и четвёртой парой координат. Никаких углов.

0

Сообщение от AzAtom Никаких углов.

ну так в этом и проблема заключается, что по углу человек воспринимает лучшее где начинаться будет дуга, просто задать угол радиус вектору. к тому же точнее будет НУЖНАЯ точка пересечения от того, что счет идет по углу) ну как-то так, что-то с объяснениями сегодня у меня опять не клеится

0

Сообщение от Arcor я это к тому - надо разобраться, почему закрывается вся программа, при закрытии этой формы)

не вся программа. на видео в левом верхнем углу транспарентное окно с отображением текущих координат, дельты и при наведении на объекты там куча информации еще, называется Heads Up Display. так вот, это окно исчезает после работы программы в случае, если я в своей программе окно скрываю в середине работы. а мне это нужно, напрмиер, в режиме вставки:
- Запускаю скрипт
- выбираю ячейку
- форма скрывается, скрипт продолжает работать, т.к. необходимо выбрать точку, размножить и т.п.
так вот если в этом моменте форму именно скрыть, то Heads Up Display с информацией исчезает. напрочь.
пока победил перемещением формы в координату .Left := 10000;
так что в целом незаметно.

Сообщение от Arcor так конечно! Иначе ходили бы все еще на мамонтов с камнями и кушали в пещере добычу

я не это хотел сказать. имею ввиду, что сейчас альтиум пишут программисты, которые ведать не ведают что там нужно трассировщикам. За последние 3 версии наделано всякой херни совершенно ненужной для работы, за то красиво. И по их мнению разработка платы это елозиение мышью по экрану шириной 3840, чо, у нас же много времени. Когда я выступил со своим видением ситуации и запросом на нормульную работу, меня с позором изгнали из тестовой команды.

Сообщение от Arcor тут не совсем понятно, много местного сленга)) по сути ты выбираешь что-то вставить и оно появляется только после того, как ты вставил? Т.е. проблема прорисовки я так понимаю? А сверху рисовать их отдельно пока они еще не вставлены? т.е. прорисовка сперва шаблонного объекта, потом он вставляется и рисуется уже штатно. Или я не понимаю сути?)

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

Почему буфер обмена? потому что у меня бы решилась вторая задача, присвоения объектам цепей.
В альтиуме, если вставляются треки на поле и попадают на переходные отверстия или контактные площадки, то трекам присваивается цепь этих переходных отверстий/КП. т.е. если я сейчас укажу точку вставки центр ПО, то цепь не присвоится, мне нужно будет вручную решать задачу присвоения цепей, а это тот еще геморрой.

Сообщение от Arcor так есть такая функция уже внутри?

функции нет, но у дуги есть StartX StartY EndX EndY, которые в Canvas.Arc соответствуют X3 Y3 X4 Y4,
что очень облегчает задачу

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

Сообщение от AzAtom Никаких углов.

ага. и все примеры для дуг с разворотом кратным 90 градусов. интересно почему.

ладно, я сперва просто еще подумал, что прямоугольник должен описывать только видимую часть дуги.
и опять тут альтиум спас, он дает для каждого объекта BoundingRectangle.
я уже и его приплел. потом понял, что прямоугольник описыват полную дугу, для меня так вообще квадрат. и вздохнул с облегчением.

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

Сообщение от Arcor в каком событии ты рисуешь? я нигде не нашел OnPaint

а зачем? я тоже прочитал, что что-то должно стереться. но у меня вроде ок. ничего не стирается.
но и "кнопки" мои не динамичные. нет эффекта нажатия.
рисуется в процессе чтения из реестра в RegistryRead, процедура DrawObjects(icol, jrow);

0

Сообщение от peshkoff-vn и все примеры для дуг с разворотом кратным 90 градусов. интересно почему.

Не знаю. Но тут же легко получить из углов эти самые X3, Y3, X4, Y4 с помощью синуса и косинуса.

0

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

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

0

Сообщение от Arcor сделать как-то копию объекта

да, это наименее затратный путь, если удалось бы "сделать копию" в буфер.
но как это сделать, для меня загадка. тут я вообще даже не знаю с какой стороны подойти

0