動作環境

C++ Builder XE4
Rad Studio 10.2 Tokyo

前回

C++ Builder XE4 > TControl > プロパティのコピー > Shape1からShape2へプロパティをコピーする

不可解な動作

上記の実装を使っていたが、不可解な動作となる

コピー元のTShapeがBrush->Color = clWhiteの時、色情報がコピーできない

実装

Unit1.cpp

//---------------------------------------------------------------------------

# include <vcl.h>
# pragma hdrstop

# include "Unit1.h"
//---------------------------------------------------------------------------
# pragma package(smart_init)
# pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	// Shape1は白に、他は任意の色
	Shape1->Brush->Color = clWhite;
	Shape2->Brush->Color = clAqua;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	copyProperties((TControl *)Shape1, (TControl *)Shape2);

	// 重なっているため
	Shape2->Left = Shape1->Left + 150;
}

void __fastcall TForm1::copyProperties(TControl *srcCtrl, TControl *dstCtrl)
{
	// 元の名前を保持
	String orgName_src = srcCtrl->Name;
	String orgName_dst = dstCtrl->Name;

	// プロパティコピー
	TMemoryStream *strm = new TMemoryStream;
	Shape1->Name = L"";  // to avoid source collision
	try {
		strm->WriteComponent(srcCtrl);
		strm->Position = 0;
		strm->ReadComponent(dstCtrl);
	}
	__finally
	{
		delete strm;
	}

	srcCtrl->Name = orgName_src;
	dstCtrl->Name = orgName_dst;
}

動作例

ソフト起動直後

Button1押下後

サイズに関するプロパティはコピーできたが、Brush->Color(=clWhite)はコピーできていない。

IDEのバグのようだ。

Shape1のBrush->ColorがclWhite以外の時はColorもコピーされる。

対処

以下のように、Colorをコピーしなおす処理が必要だろう。

	copyProperties((TControl *)Shape1, (TControl *)Shape2);
	Shape2->Brush->Color = Shape1->Brush->Color;

10.2 Tokyoでも同じ実装を確認したところ、再現した。

StackOverflow

StackOverflowにて質問をしている。

C++ Builder XE4, 10.2 Tokyo > TStreamWriter > clWhite cannot be copied

~~回答が付いたらここにも記載する予定。~~

2018-12-28
回答をいただいた。

clWhiteがdefaultカラーであるための挙動であるとのこと。
RTTIによるコピー方法のコード例も合わせて教えていただいた。

I appreciate it, Remy Lebeau.