Главная страница
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.021 c
1-59094
_Nicola_
2002-11-05 17:45
2002.11.18
Сохранить набор иконок в 1 файле


3-59011
cypher
2002-10-28 22:54
2002.11.18
Проблема с MS SQL Server 2000


4-59500
MenyaZovutLion
2002-09-28 05:33
2002.11.18
<B>Ребята</B>, вот такое дело, я хотел перезагрузить ПК и .....


3-59034
Юрий
2002-10-29 23:32
2002.11.18
Где данные после TADOQuery?


14-59388
Number 1
2002-10-17 03:10
2002.11.18
Не может быть!!!