Etape 4 - Implémenter les méthodes Paint et PointInObject
Remonter à Création d'un contrôle primitif FireMonkey
C'est l'étape finale pour terminer ce composant primitif. Définissez les membres supplémentaires suivants (les membres créés antérieurement ne sont pas listés ici) :
type
TRegularPolygon = class(TShape)
protected
procedure Paint; override;
public
function PointInObject(X, Y: Single): Boolean; override;
end;
Comme dans les étapes précédentes, utilisez CTRL+MAJ+C pour créer des espaces réservés pour ces méthodes. Implémentez ces méthodes comme suit :
procedure TRegularPolygon.Paint;
begin
CreatePath;
Canvas.FillPath(FPath, AbsoluteOpacity);
Canvas.DrawPath(FPath, AbsoluteOpacity);
end;
function TRegularPolygon.PointInObject(X, Y: Single): Boolean;
begin
CreatePath;
Result := Canvas.PtInPath(AbsoluteToLocal(PointF(X, Y)), FPath);
end;
Le composant TRegularPolygon est à présent implémenté. Dans le Gestionnaire de projets, cliquez avec le bouton droit sur le package TRegularPolygon.bpl et sélectionnez Construire dans le menu contextuel. Sélectionnez ensuite Installer pour installer le package de composant développé et recenser le composant :
Vous pouvez à présent voir le nouveau comportement du composant TRegularPolygon dans le Concepteur de fiches.