Etape 6 - Ajouter des propriétés pour changer l'apparence
Remonter à Création d'un contrôle primitif FireMonkey
Vous pouvez améliorer le composant TRegularPolygon et activer les changements d'apparence. Par exemple, vous pouvez changer la couleur d'arrière-plan.
Les autres composants primitifs FireMonkey ont typiquement les propriétés d'apparence suivantes :
- Propriété Fill
- Propriété Stroke
- Propriété StrokeCap
- Propriété StrokeDash
- Propriété StrokeJoin
- Propriété StrokeThickness
Pour être en mesure d'utiliser ces propriétés, réintroduisez-les en tant que propriétés publiées.
La section interface du composant TRegularPolygon devrait ressembler maintenant à ceci :
type
TRegularPolygon = class(TShape)
private
{ Private declarations }
FNumberOfSides: Integer;
FPath: TPathData;
procedure SetNumberOfSides(const Value: Integer);
protected
{ Protected declarations }
procedure CreatePath;
procedure Paint; override;
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function PointInObject(X, Y: Single): Boolean; override;
published
{ Published declarations }
property NumberOfSides: Integer read FNumberOfSides write SetNumberOfSides;
property Fill;
property Stroke;
property StrokeCap;
property StrokeDash;
property StrokeJoin;
property StrokeThickness;
end;
Dans le Gestionnaire de projets, construisez et installez le package. Revenez au TestRegularPolygonUnit. Vous avez maintenant les options pour changer l'apparence de votre nouveau composant.
