| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Default свойства

Бывший студент ©   (2005-04-25 11:48:00) 

В элементе коллекции (потомок 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;

---

Юрий Зотов   (2005-04-29 14:04:00) [1]

> malkolinge ©   (29.04.05 13:05) [4]

Если они не нулевые. Точнее, если не соответствуют InitInstance.

---

malkolinge   (2005-04-29 13:05:00) [2]

А значения по умолчанию нужно присваивать в конструкторе

---

Бывший студент   (2005-04-25 12:14:00) [3]

И правда сказано... Позор:)

---

Юрий Зотов   (2005-04-25 12:02:00) [4]

> Бывший студент ©   (25.04.05 11:48)

А ведь в статье об этом сказано. Елы-палы, ну как же Вы читаете-то?

Бывшийстудент - это ведь уже не студент, верно? Значит, от системы "читать, лишь бы сдать" и "сдал-забыл" надо отвыкать...
:о)

---

icWasya   (2005-04-25 11:55:00) [5]

Defaultозначает только что если Color = clWhite, то такой цвет не будет записываться в файл DFM (и соответственно считываться из него). Кроме этого нужно сделать установку цвета в конструкторе


type TColStyle=class(CollectionItem)
...
constructor Create(Collection: TCollection);override;
...

constructor TColStyle.Create(Collection: TCollection);
begin
 inherited;
 FColor :=clWhite;

end;

---

Наверх