Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.042 c