为什么我用BCB的TImage的Canvas写不出实心字？

Canvas->Font->Name=L"Courier New(TrueType)";
Canvas->Font->Height=40;
Canvas->Font->Color=clWhite;
Canvas->Brush->Color=clWhite;
Canvas->Brush->Style=bsSolid;

Area=Canvas->TextWidth(Str);
Area=(Width-Area)/2;
Canvas->TextOut(Deep,Height/2-23,Str);

继承自TImage的。结果显示出来的总是只有字的边沿，十分难看

最后一句的Deep改成Area 。
不过我猜这个没有关系吧

我的实验是：

TCanvas * cv = this->Image1->Canvas;
cv->Font->Name=L"Courier New(TrueType)";
cv->Font->Height=140;
cv->Font->Color=clWhite;
cv->Brush->Color=clWhite;
cv->Brush->Style=bsSolid;
cv->TextOut(30,30,"BBBB");

cv->Font->Color=clWhite;
cv->Brush->Color=clWhite;
什么也没有

cv->Font->Color=clBlack;
cv->Brush->Color=clWhite;
白底黑字

cv->Font->Color=clBlack;
cv->Brush->Color=clBlack;
一个黑块

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息