円や楕円などを描画するときに図形外部を親コントロールの色と合わせたい

Question

実現したいこと

四角形や円などの図形と文字列を同時に生成する自作コンポーネントを作成しようとしています．

例：正方形の上に文字列を書いたインスタンスや円の横に文字列を書いたインスタンス(ペイントで作ったイメージ図)

###実現方法・困っていること
実現したいことに対する実現方法は次のように考えています．
0. 四角形や円などの図形と文字列を同時に生成する独自クラスを作成する．
0. 1で作成したクラスをコンポーネント化する．

その中で1は既に出来ています．簡単に1の独自クラスを説明すると，インスタンス生成時にTShape型とTLabel型のインスタンス生成しています．デフォルトのインスタンス(コンストラクタ利用時)生成時では例1のようなインスタンスが生成でき，メソッドで文字列(TLabel)の位置をずらすことで例2のようなインスタンスが生成できます．
現在，2に取り組んでいます．自作コンポーネントパッケージ自体は情報量の多いDelphiを使い開発し，それをC++Builderにインストールするつもりです．2自体の実現方法は次のように考えています．

1. TCustomControlクラスを継承したクラスをつくる．
2. 円や四角形，正方形など描画する．
3. 文字列を描画する．

1の独自クラスを実現するにはTShape型とTLabel型を同時に生成する必要があるので，TCustomContorlから継承したクラスを作る．2はCanvas, Pen, Brushなどを利用してプロパティ(Shape)で選択した形の図形を作成する．そして，Flabelプロパティ(TLabel型)を図形の上に描画すればよいと考えています．

###困っていること
自作コンポーネントをドラッグアンドドロップでフォーム上にインスタンス生成した後，インスタンスの色をBrushのColorプロパティから変えます．そのあと，フォームのColorプロパティをインスタンスとは異なる色に変えると，図形外部の余白部分が白色がフォームのColorと同じにならなくて困っています．原因は描画するときに矩形領域を白色に変えているからだとは分かるのですが，そうしないと図形外部も塗りつぶされてしまい困っています．描画の順番がおかしいなどご指摘を，どなたかご教授お願いいたします．

###試したこと
図形を描画する順番を1-1～1-3と2-1～2-4で試してみましたがどちらもダメでした．

1-1. penの設定
1-2. Brushの設定
1-3. 図形の描画(EllipseやRoundRectなど)

2-1. 矩形領域を白色で塗りつぶし
2-2. penの設定
2-3. Brushの設定
2-4. 図形の描画(EllipseやRoundRectなど)

図：stCircleが1-11-3で描画したインスタンス，それ以外が2-12-4で描画したインスタンス

###開発環境
OS：Windows10:64bit
IDE:Embarcadero Delphi 10.3 Community Eddition

###参考情報
開発環境自体はDelphiですが，作成したコンポーネントのパッケージをインストールして使用する環境自体は下記になります．
OS:Windows10:64bit
IDE:Embarcadero C++Builder 10.3 Professional

###ソースコード

unit Door;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes,
  Vcl.Controls, Vcl.Graphics, Vcl.Forms, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Dialogs;

type
  TDoor = class(TCustomControl)
  private
    { Private 宣言 }
    Flabel: TLabel;
    FShape: TShapeType;

    procedure SetShape(Value: TShapeType);
  protected
    { Protected 宣言 }
  public
    { Public 宣言 }
    left: Integer;
    top: Integer;

    //  コンストラクタ(オーバーライド)
    constructor Create( AOwner: TComponent ); override;
    procedure Paint; override;
  published
    { Published 宣言 }
    //  プロパティにdefaultを付けるとデフォルト値にできる
    property Shape: TShapeType read FShape write SetShape default stRectangle;
    //  継承プロパティ(再宣言するとオブジェクトインスペクタに表示できるようになる)
    property Anchors;
    property Brush;
    property Color;
    property Enabled;
    property Name;
    property ParentColor;
    property Visible;
    property OnClick;
    property OnDblClick;
  end;

procedure Register;

//---------------------------------------------------------------------------
implementation

procedure Register;
begin
  //  「Samples」パレットにドアを登録
  RegisterComponents('Samples', [TDoor]);
end;


constructor TDoor.Create( AOwner: TComponent );
begin
  //  継承元のTCustomControlクラスのCreateメソッドの呼び出し
  inherited Create(AOwner);
  //  必要かわからないから，試し中
{
  SetBounds(Left, Top, 25, 25);
  left:= Left;
  top:= top;
}
end;

//  WM_PAINTメッセージで起動
//  クライアントエリアに更新領域が存在するときにコール
procedure TDoor.Paint;
begin
  //  四角形の場合
  if FShape = stRectangle then
  begin
    with Canvas do begin
      //  Color色で塗りつぶし
      Brush.Color:= Color;
      Brush.Style:= bsSolid;
      FillRect(Rect(0, 0, Width, Height));
      //  黒色で太さ1で枠線描画
      Pen.Color:= clBlack;
      Pen.Style:= psSolid;
      Pen.Width:= 1;
      Rectangle(Rect(0, 0, Width, Height));
    end;
  end
  //  円の場合
  else if FShape = stCircle then
  begin

    with Canvas do begin
      if Width <> Height then
      begin
        Height:= Width;
      end;
{
      //  白色で塗りつぶし
      Brush.Color:= clWhite;
      Brush.Style:= bsSolid;
      FillRect(Rect(Left, Top, (Left+Width), (Top+Height)));
}
      //  Color色で塗りつぶし
      Brush.Color:= Color;
      Brush.Style:= bsSolid;
      //  黒色で太さ1で枠線描画
      Pen.Color:= clBlack;
      Pen.Style:= psSolid;
      Pen.Width:= 1;
      Ellipse(Left, Top, (Left+Width), (Top+Height));
    end;
  end
  //  楕円の場合
  else if FShape = stEllipse then
  begin
    with Canvas do begin
      //  フォームのColor色で塗りつぶし
      Brush.Color:= Color;
      Brush.Style:= bsSolid;
      FillRect(Rect(Left, Top, (Left+Width), (Top+Height)));
      //  ↓の図形内部の色を決めるBrushに何を書けばいいかわからない
      Brush.Color:= Brush.Color;
      Brush.Style:= bsSolid;
      //  黒色で太さ1で枠線描画
      Pen.Color:= clBlack;
      Pen.Style:= psSolid;
      Pen.Width:= 1;
      Ellipse(Left, Top, (Left+Width), (Top+Height));
    end;
  end
  //  角の丸い四角形の場合
  else if FShape = stRoundRect then
  begin
    with Canvas do begin
      //  白色で塗りつぶし
      Brush.Color:= clWhite;
      Brush.Style:= bsSolid;
      FillRect(Rect(Left, Top, (Left+Width), (Top+Height)));
      //  Color色で塗りつぶし
      Brush.Color:= Color;
      Brush.Style:= bsSolid;
      //  黒色で太さ1で枠線描画
      Pen.Color:= clBlack;
      Pen.Style:= psSolid;
      Pen.Width:= 1;
      RoundRect(Left, Top, Width, Height, 50, 50);
    end;
  end
  //  角の丸い正方形の場合
  else if FShape = stRoundSquare then
  begin
    with Canvas do begin
      if Width <> Height then
      begin
        Height:= Width;
      end;
      //  白色で塗りつぶし
      Brush.Color:= clWhite;
      Brush.Style:= bsSolid;
      FillRect(Rect(Left, Top, (Left+Width), (Top+Height)));
      //  Color色で塗りつぶし
      Brush.Color:= Color;
      Brush.Style:= bsSolid;
      //  黒色で太さ1で枠線描画
      Pen.Color:= clBlack;
      Pen.Style:= psSolid;
      Pen.Width:= 1;
      RoundRect(Left, Top, Width, Height, 50, 50);
    end;
  end
  //  正方形の場合
  else if FShape = stSquare then
  begin
    with Canvas do begin
      if Width <> Height then
      begin
        Height:= Width;
      end;
      //  白色で塗りつぶし
      Brush.Color:= Color;
      Brush.Style:= bsSolid;
      FillRect(Rect(0, 0, Width, Height));
      //  黒色で太さ1で枠線描画
      Pen.Color:= clBlack;
      Pen.Style:= psSolid;
      Pen.Width:= 1;
      Rectangle(Rect(0, 0, Width, Height));
    end;
  end;
end;

procedure TDoor.SetShape(Value: TShapeType);
begin
  //  FShapeが変更されていない場合
  if FShape <> Value then
  begin
    //  新しいコントロール形状を設定
    FShape:= Value;
    //  新しい図形の再描画
    Invalidate();

  end;

end;

end.

Answer 1

どちらかと言えば VCL の話なので VCL のタグを登録依頼してもらった方が良いかと思います。

VCL では ParentColor プロパティで親コントロールの色と合わせれたと思いますが、その辺の作りはどうなっていますか？ Color プロパティは直接設定せずに ParentColor を True に設定して、Color プロパティを参照すれば良いかと思います。

Comments

[dem0nmichik0]

atata0319様
回答ありがとうございます．VCLタグの登録は依頼しました．
回答いただいたParentColorプロパティなのですが，継承しているTCustomControlクラスの[プロパティ](http://docwiki.embarcadero.com/Libraries/Rio/ja/Vcl.Controls.TCustomControl_Properties)を調べてみましたが，ParentColorプロパティがないため，設定することができないと思います．
現時点では，ParentColorはプロパティにないため，trueに設定することができない状態です．

ParentColorを継承する方法を調べてみます．ありがとうございました．

[dem0nmichik0]

すいません，リンクを貼ろうと思い，Markdownで記述しましたが，貼れてませんでした．

[dem0nmichik0]

たびたびすいません，ParentColorプロパティはないといいましたが，自分でpropertyに追加していました．そしてfalseでした．
ただ，trueにしても，図形内部の色がフォームの色と変わる形になり，図形外部は白色のままでした．また，現状，プロパティにBrushプロパティとColorがある状態です．Brushの中にはColorとStyleプロパティがり，ParentColorをtrueにすると，ColorがclGrayになり，Brush->Colorがそのままになっている状態です．
「 property Color;」を記述しているから,Colorプロパティまで継承されてしまうと思い，コメントすると，「Door1.Colorの読み取り中のエラー：プロパティColorが存在しません．エラーを無視して続行しますか？注意：エラーを無視すると，コンポーネントまたはプロパティが失われる可能性があります．」といったエラーポップアップが表示されてしまいます．
お手数ですが，原因が分かりましたら，ご教授お願いいたします．

[atata0319]

貼り付けてある TShape と TLabel の ParentColor はどうなっていますか？TShape と TLabel に Color を設定しなければ、ParentColor プロパティはデフォルトで true になっており勝手に背景色が反映されるかと思いますが。

[atata0319]

というかコードを読んでませんでした。TShape と TLabel 関係ありませんね。FillRect に使うブラシを tcanvas の Color にすればよく、tcanvas の ParentColor は true になるようにすればよいかと思うのですが・・・。と思ったら、TControlCanvas ではなく TCustomControl の Canvas に描いてるんですね。

[atata0319]

FillRect に渡す Color プロパティとコントロールの描画に使う Color プロパティは分けましょうってのが解決案ですね。Color プロパティは背景色用です。

[dem0nmichik0]

atata0319様
回答ありがとうございます．
試しに楕円部分のソースコードを修正して，インスタンスのParentColorプロパティをtrueにして実行してみました．その結果，背景色も図形内部も同じ色になってしまう状況です．
publishedの箇所で追加した「Color」は背景色用だということは分かり，FillRect用のBrush.Colorに「Color」を設定しました．ただ，Ellipseの塗りつぶし色を決めるBrush.Colorに何を設定してよいかわかりません．
申し訳ありませんが，知っていましたらご教授お願いいたします．

[atata0319]

答えは単純で図形を塗りつぶす色を指定する別のプロパティを追加しましょう。例えば、ShapeColor のようなプロパティをコントロールに追加して、 Brush.Color:= ShapeColor; のようにしましょう。

[dem0nmichik0]

atata0319様
回答ありがとうございます．
ご指摘のように，図形内部用のFShapeColorフィールドをprivate，ShapeColorプロパティをpublished，SetShapeColorメソッドをpublicに追加して，SetShapeColorメソッド内で色の変化があったときに「FShapeColorフィールドの設定」と「FShape(コントロールの形状)フィールドを判断して，図形を塗りつぶす(EllipseやRoundRect)」処理を実装したところ，正常に動作しました．
丁寧に教えていただき，ありがとうございました．