Форум: "Компоненты";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];
ВнизDefault свойства Найти похожие ветки
← →
Бывший студент © (2005-04-25 11:48) [0]В элементе коллекции (потомок TCollectionItem) публикую свойство Color, предполагаю, что по умолчанию выставляется clWhite. Но при создании компонента в инспекторе объектов отображается чёрный. Прошу помочь, заранее благодарен.
property Color: TColor read GetColor write SetColor default clWhite;
procedure TColStyle.SetColor(Value: TColor);
begin
FColor:=Value;
end;
function TColStyle.GetColor: TColor;
begin
Result:=FColor;
end;
← →
icWasya © (2005-04-25 11:55) [1]Default означает только что если Color = clWhite, то такой цвет не будет записываться в файл DFM (и соответственно считываться из него). Кроме этого нужно сделать установку цвета в конструкторе
type TColStyle=class(CollectionItem)
...
constructor Create(Collection: TCollection);override;
...
constructor TColStyle.Create(Collection: TCollection);
begin
inherited;
FColor :=clWhite;
end;
← →
Юрий Зотов © (2005-04-25 12:02) [2]> Бывший студент © (25.04.05 11:48)
А ведь в статье об этом сказано. Елы-палы, ну как же Вы читаете-то?
Бывший студент - это ведь уже не студент, верно? Значит, от системы "читать, лишь бы сдать" и "сдал-забыл" надо отвыкать...
:о)
← →
Бывший студент © (2005-04-25 12:14) [3]И правда сказано... Позор:)
← →
malkolinge © (2005-04-29 13:05) [4]А значения по умолчанию нужно присваивать в конструкторе
← →
Юрий Зотов © (2005-04-29 14:04) [5]> malkolinge © (29.04.05 13:05) [4]
Если они не нулевые. Точнее, если не соответствуют InitInstance.
Страницы: 1 вся ветка
Форум: "Компоненты";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.055 c