Вверх ↑
Ответов: 4612
Рейтинг: 746
#1: 2012-09-29 22:04:07 ЛС | профиль | цитата
Minkovsky, спасибо, я тоже к этому пришел. Но решил все проще - в hiButton.pas в THIButton.Init вместо
Control.DefaultBtn := _prop_DefaultBtn;
сделал
if _prop_DefaultBtn then Control.DefaultBtn := true;
Правда, не смог установить, где именно в KOL возникает эта ошибка - в TControl.SetDefaultBtn вроде нет, похоже, в одной из процедур обработки сообщений.
Что-то подобное сделал и для Ctrl3D (иначе рисовало рамки вокруг компонентов при False).
Кстати, были вылеты GroupBox на этом месте:
procedure THIWin.Init;
...
Color := _prop_Color;
...
end;
Оказалось, эта конструкция в новом компиляторе работает не так, как ожидалось:
constructor THIGroupBox.Create(Parent: PControl);
begin
...
Control.Font.Create;
...
end;

карма: 26

0