Etape 6 - Ajouter des propriétés pour changer l'apparence

De RAD Studio
Aller à : navigation, rechercher

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.

Resized1727.png

Précédent