АкушерствоАнатомияАнестезиологияВакцинопрофилактикаВалеологияВетеринарияГигиенаЗаболеванияИммунологияКардиологияНеврологияНефрологияОнкологияОториноларингологияОфтальмологияПаразитологияПедиатрияПервая помощьПсихиатрияПульмонологияРеанимацияРевматологияСтоматологияТерапияТоксикологияТравматологияУрологияФармакологияФармацевтикаФизиотерапияФтизиатрияХирургияЭндокринологияЭпидемиология

Private. FButtonColor:TColor;

FButtonColor:TColor;

FButtonText:string;

FBorderColor:TColor;

FOverColor:TColor;

Procedure SetButtonColor(Value:TColor);

Procedure SetBorderColor(Value:TColor);

Procedure SetOverColor(Value:TColor);

Procedure SetButtonText(Value:string);

…

Рис. 4. Редактор кода. Модуль компонента GraphicButton.

Реализуем методы записи значения свойств: ButtonColor, ButtonText, OverColor, BorderColor.

…

Implementation

…

Procedure TGraphicButton.SetButtonColor(Value:TColor);

Begin

if FButtonColor<>Value then

Begin

FButtonColor:=Value;

Color:=Value;

Invalidate;

end;

end;

Procedure TGraphicButton.SetBorderColor(Value:TColor);

Begin

if FBorderColor<>Value then

Begin

FBorderColor:=Value;

Invalidate;

end;

end;

Procedure TGraphicButton.SetOverColor(Value:TColor);

Begin

if FOverColor<>Value then

Begin

FOverColor:=Value;

Invalidate;

end;

end;

Procedure TGraphicButton.SetButtonText(Value:string);

Begin

if FButtonText<>Value then

Begin

FButtonText:=Value;

Invalidate;

end;

end;

…

Объявим созданные нами свойства, и опубликуем унаследованные от класса TControl события:

…

Дата добавления: 2015-09-18 | Просмотры: 448 | Нарушение авторских прав