Schritt 4 - Implementieren der Methoden "Paint" und "PointInObject"
Nach oben zu Erstellen eines grundlegenden FireMonkey-Steuerelements
In diesem letzten Schritt wird die grundlegende Komponente fertig gestellt. Definieren Sie die folgenden zusätzlichen Member (Member, die zuvor erstellt wurden, sind hier nicht aufgeführt):
type
TRegularPolygon = class(TShape)
protected
procedure Paint; override;
public
function PointInObject(X, Y: Single): Boolean; override;
end;
Verwenden Sie wie in den vorherigen Schritten STRG+UMSCHALT+C, um Platzhalter für diese Methoden zu erstellen. Implementieren Sie diese Methoden folgendermaßen:
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;
Die Komponente TRegularPolygon ist nun implementiert. Klicken Sie im Projektverwaltung mit der rechten Maustaste auf das Package TRegularPolygon.bpl, und wählen Sie im Kontextmenü Erzeugen. Wählen Sie anschließend Installieren, um das entwickelte Komponenten-Package zu installieren und die entwickelte Komponente zu registrieren.
Jetzt können Sie das neue Verhalten der TRegularPolygon-Komponente im Formular-Designer sehen.