ステップ 6 - ルック アンド フィールを変更するためのプロパティを追加する
FireMonkey のプリミティブ コントロールを作成する への移動
TRegularPolygon コンポーネントを拡張してルック アンド フィールの変更を可能にすることができます。たとえば、背景色を変更できます。
他の FireMonkey プリミティブ コンポーネントには、通常、以下のようなルック アンド フィールに関するプロパティがあります。
- Fill プロパティ
- Stroke プロパティ
- StrokeCap プロパティ
- StrokeDash プロパティ
- StrokeJoin プロパティ
- StrokeThickness プロパティ
これらのプロパティを使用できるよう、published プロパティとして改めて追加します。
TRegularPolygon コンポーネントの interface セクションは次のようになります。
type
TRegularPolygon = class(TShape)
private
{ private 宣言 }
FNumberOfSides: Integer;
FPath: TPathData;
procedure SetNumberOfSides(const Value: Integer);
protected
{ protected 宣言 }
procedure CreatePath;
procedure Paint; override;
public
{ public 宣言 }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function PointInObject(X, Y: Single): Boolean; override;
published
{ published 宣言 }
property NumberOfSides: Integer read FNumberOfSides write SetNumberOfSides;
property Fill;
property Stroke;
property StrokeCap;
property StrokeDash;
property StrokeJoin;
property StrokeThickness;
end;
[プロジェクト マネージャ]でパッケージをビルドして、インストールします。TestRegularPolygonUnit に戻ります。これで、新しいコンポーネントのルック アンド フィールを変更するオプションを使用できます。