Control.DefaultBtn := _prop_DefaultBtn;
сделал
if _prop_DefaultBtn then Control.DefaultBtn := true;
Правда, не смог установить, где именно в KOL возникает эта ошибка - в TControl.SetDefaultBtn вроде нет, похоже, в одной из процедур обработки сообщений.
Что-то подобное сделал и для Ctrl3D (иначе рисовало рамки вокруг компонентов при False).
Кстати, были вылеты GroupBox на этом месте:
procedure THIWin.Init;
...
Color := _prop_Color;
...
end;
Оказалось, эта конструкция в новом компиляторе работает не так, как ожидалось:
...
Color := _prop_Color;
...
end;
constructor THIGroupBox.Create(Parent: PControl);
begin
...
Control.Font.Create;
...
end;
begin
...
Control.Font.Create;
...
end;
Поиск
Друзья
Администрация