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 | Просмотры: 490 | Нарушение авторских прав
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 |
|