- Код: Выделить всё
.......
TBGRALED = class(TGraphicControl)
.......
published
........
// property ParentColor; //TODO: What is this for?
property ParentColor: Boolean Default False; // Ругается на Default. Пришлось закомментировать
property ParentColor;
.......
end;
constructor TBGRALED.Create(AOwner: TComponent);
begin
..........
ParentColor:=False; // Чтобы сохранить функциональность пришлось добавить это свойство.
end;
Всё установилось и работает. Однако, не пойму - неужели разработчики допускают одну и ту же ошибку или я делаю что-то не так. Если кто устанавливал эти компоненты, то была ли у вас подобная ошибка?
Прилагаю файл bgraled.pas (строка 95), брал отсюда: http://wiki.freepascal.org/BGRAControls