Версия 2.65

← →
mdw © (2007-06-09 13:13) [0]

Обнаружил ошибку при выравнивании контролов.

Проявляется только в ASM_VERSION + NEW_ALIGN.
Заключается в том, что значение Border при выравнивании контрола берется не у его родителя, а у самого контрола.

Пример:
Кладем на форму панель, ставим у формы Border = 0, а у панели Border = 20 и Align = caClient. Запускаем. Панель должна запонять все пространство формы, но реально она располагается как раз с отступом = 20.

В какой версии появилось, точно не скажу, т.к. переходил с в 2.60 на 2.65, но в последней точно есть.
Сам ковыряться не стал, думаю авторам проще будет найти, где перепутаны Border"ы парента и собственный.

← →
Vladimir Kladov (2007-06-09 16:54) [1]

Принято, поправим.

← →
homm © (2007-06-09 19:25) [2]

Владимир, а почему не работает код?
procedure TForm1.KOLForm1Click(Sender: PObj); begin MsgOK("dfsdf"); end;

Это какой-то идиологический момент, который я упустил? Что-то не вирится, что-бы такое очевидное несоответствие ожиданиям, было ошибкой.

← →
Vladimir Kladov (2007-06-09 19:38) [3]

На форме - не работает OnClick. И никогда не работал. Устранять из MCK - себе дороже. (А может, кто-нибудь догоадается, как поправить. Хотя по мне, проще задействовать OmMouseUp).

← →
homm © (2007-06-09 19:40) [4]

> На форме - не работает OnClick.

Это еше верно как минимум для панели. Остальные компоненты не смотрел.

← →
Vladimir Kladov (2007-06-09 21:28) [5]

Для панели - неправда, как раз работает. Но не работает на memo/richedit. Сначала задумайтесь над смыслом OnClick. Это не клик мышкой, это команда контролу, который может быть нажат (кнопка, чек, радио, static). Передается WM_COMMAND через родителя (а у формы родителя-окна нет). И эта команда может быть отдана не только через мышь, но и кнопками (enter, пробел, акселераторы). Аналогичный смысл имеется в OnMenu... - для пунктов меню. Если нужна именно мышь, есть OnMouseDown/OnMouseUp.

В принципе да, понятно. Действительно идиологический момент :)

Версия 2.65 Найти похожие ветки