C++ builder / TCanvas > Timageの内部を白にする

動作環境

C++ Builder XE4

TCanvasで描画をする場合、描画内容の変更時に一度内部を白で塗りつぶす必要がある。

参考 http://www.delphigroups.info/2/c8/206300.html

C++ Builderでは以下のような関数を用意して使ってみる。

void __fastcall TForm1::clearTImage(TImage *imgPtr)
{
    imgPtr->Canvas->Brush->Color = clWhite;
    imgPtr->Canvas->FillRect(Rect(0, 0, imgPtr->Width, imgPtr->Height));
}

希望の動作になった。