Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.18;
Скачать: CL | DM;

Вниз

Правка компонента   Найти похожие ветки 

 
Сатир ©   (2002-11-06 14:40) [0]

как запретить редактирование read-only свойства Color в инспекторе объектов в таком компоненте:

TStyleColor = class(TCollectionItem)
private
fName:String;
fFormula: String;
fColor: TColor;
procedure SetName(const Value: String);
procedure SetFormula(const Value: String);
procedure SetColor(const Value: TColor);
protected
procedure SetDisplayName(const Value: string);override;
function GetDisplayName: string; override;
procedure CalculateColor;
public
constructor Create(Collection: TCollection); override;
procedure Assign(Source:TPersistent);override;
published
property Name: String read fName write SetName;
property Color: TColor read fColor;
property Formula: String read fFormula write SetFormula;
end;


 
Skier ©   (2002-11-06 14:44) [1]

>Сатир
1) ???
2) А зачем тебе метод SetColor ?


 
Сатир ©   (2002-11-06 15:12) [2]

>2)
какая разница, он всё равно в записи данного свойства в поток не участвует, просто зарезервирован, если надо будет редактировать

>1)
read-only properties по умолчанию не отображаются в инспекторе объектов, но если на нём кликнуть правой кнопкой, то в соответствующей закладке можно выставить галочку и на отображение последних, но в то же время, их поля становятся доступными для редактирования, и если пользователь данного компонента начитает выбирать в данном случае цвет из ниспадающего списка, получается Access violation at address 0000000. Поэтому нужно запретить редактирование последнего.


 
Андрей Прокофьев ©   (2002-11-06 15:20) [3]

а зачам он published?


 
Сатир ©   (2002-11-06 16:41) [4]

чтобы можно было просмотреть через инспектор объектов, какой цвет был получен в результате введённой формулы



Страницы: 1 вся ветка

Текущий архив: 2002.11.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
14-59418
Anatoly Podgoretsky
2002-10-29 08:50
2002.11.18
Именинники 29 октября


3-59046
Wano
2002-10-30 08:42
2002.11.18
БД


1-59145
Тень
2002-11-08 17:24
2002.11.18
Как сохронить текст в TStringGrid?


1-59176
GOD
2002-11-09 02:41
2002.11.18
БАГ и как с ним бороться!!!


3-58991
newb
2002-10-27 11:03
2002.11.18
Как организовать архивацию?