Ошибка при компиляции своего компонента [Решено]

[alaken]

Пытаюсь создать свой компонент руководствуясь статьей с сайта "Создание визуальных компонент для Lazarus"
компиляция останавливается на строке

Код: Выделить всё

Include(FCloseButton.ComponentStyle, csSubComponent);

с ошибкой

xtabcontrol.pas(199,54) Error: Can't take the address of constant expressions

в чем проблема?

[Vadim]

Can't take the address of constant expressions

Это переводится примерно так:
"Не могу получить адрес константного выражения".

xtabcontrol.pas(199,54)

А Вы не могли бы сюда поместить строку 199 из указанного файла?

[alaken]

могу, она в первом посте указана...

Код: Выделить всё

Include(FCloseButton.ComponentStyle, csSubComponent);

в позиции 54 находится csSubComponent эта константа описана в типе TComponentStyle

Код: Выделить всё

TComponentStyle = set of (csInheritable, csCheckPropAvail, csSubComponent,  csTransient);

тип описан в classesh.inc
в uses

uses
Classes
,LCLClasses...

однако лыжи не едут...

[Vadim]

alaken
Вот что мне по этому поводу рассказал www.translate.ru

Эта ошибка может также быть отображена, если Вы пытаетесь передать свойство к переменному параметру.

Или, иными словами, константа передаётся в параметр функции, который обозначен как var.

[alaken]

посмотрите пожалуйста статью (ссылка в первом посте) я делал абсолютно как показано там, причем тот пример из статьи тоже не компилится с похожей проблемой, вероятно механизм изменился, как правильно внедрять компоненты?

[Mr.Smart]

Код: Выделить всё

Include(FCloseButton.ComponentStyle, csSubComponent);

с ошибкой

xtabcontrol.pas(199,54) Error: Can't take the address of constant expressions

в чем проблема?

А вы не учли, то что свойство ComponentStyle только для чтения! Об этом вам косвенно хочет сообщить и компилятор.
Изменить данное свойство можно только в потомке от TComponent обратившись к защищённой переменной FComponentStyle!

Код: Выделить всё

Include(FComponentStyle, csSubComponent);

[Vadim]

alaken
Насколько я понял, свойство FCloseButton.ComponentStyle - только для чтения, а Вы пытаетесь изменить значение.
Попробуйте сделать так:

Код: Выделить всё

Include(FCloseButton.FComponentStyle, csSubComponent);

[FeodoR]

Изменения в версии 2.4.0
alaken
Посмотри, какой из параметров передаётся как const/var, определи переменную соответствующего типа, задай ей нужное значение и засунь в процедуру. Должно сработать.

[alaken]

alaken
Насколько я понял, свойство FCloseButton.ComponentStyle - только для чтения, а Вы пытаетесь изменить значение.
Попробуйте сделать так:

Код: Выделить всё

Include(FCloseButton.FComponentStyle, csSubComponent);

пишет:

xtabcontrol.pas(209,24) Error: identifier idents no member "FComponentStyle"

Добавлено спустя 42 секунды:

Изменения в версии 2.4.0
alaken
Посмотри, какой из параметров передаётся как const/var, определи переменную соответствующего типа, задай ей нужное значение и засунь в процедуру. Должно сработать.

не срабатывает...

Добавлено спустя 2 минуты 8 секунд:
для теста, похожий проект из статьи

[Mr.Smart]

alaken
Насколько я понял, свойство FCloseButton.ComponentStyle - только для чтения, а Вы пытаетесь изменить значение.
Попробуйте сделать так:

Код: Выделить всё

Include(FCloseButton.FComponentStyle, csSubComponent);

пишет:

xtabcontrol.pas(209,24) Error: identifier idents no member "FComponentStyle"

А другое он и не должен писать т.к. данная переменная является protected и доступна только в потомках класса.
Для того чтобы установить значение переменной необходимо с начало унаследовать...

Код: Выделить всё

type
  THackButton = class(TButton) // Зависит от того к какому классу относится ваша переменная FCloseButton
   end;
...
  Include(THackButton(FCloseButton).FComponentStyle, csSubComponent);
...


Добавлено спустя 1 минуту 32 секунды:
з.ы. Всё должно быть объявлено в пределах одного модуля

[alaken]

спасибо за наводку об "обертке" класса.

посмотрел кучу исходников компонентов, нигде подобной конструкции нет...
может это уже не актуально или правильным будет делать как написано в статье?

отрывок статьи:

Далее создадим сам ProgressBar и укажем, что он является встроенным компонентом. Это позволит сохранять его свойства вместе со свойствами основного компонента в файле определения формы.

Код: Выделить всё

FProgressBar := TProgressBar.Create(Self);
Include(FProgressBar.ComponentStyle, csSubComponent);

[Mr.Smart]

посмотрел кучу исходников компонентов, нигде подобной конструкции нет...
может это уже не актуально или правильным будет делать как написано в статье?

Почему не актуально? Это обычная конструкция ООП. Если вы не встретили данный трюк в исходниках компонетов, это не означает, что так делать нельзя.

Добавлено спустя 3 минуты 28 секунд:
В данной статье есть ошибка, на которую вы как раз и наткнулись.

[alaken]

...В данной статье есть ошибка, на которую вы как раз и наткнулись.

это уже вторая статья с ошибкой, первая статья была о TProcess это очень плохо...

к тому же не радостная новость: "...в отчете Корус Кнсалтинг по развитию и внедрению свободного ПО в госструктуры Лазарус не рекомендован к использованию как не достаточно зрелый проект..."

[GrayEddy]

Можно ссылочку на эту новость?

Так. нашел pdf-файл с этим отчетом, гугль рулит, но это по состоянию на 2008 г.

[Vadim]

Лазарус не рекомендован к использованию как не достаточно зрелый проект..."

Ах они змеи, сидящие на четвереньках!