c++ builder 改变状态栏字体颜色等样式

void __fastcall TForMain::stat1DrawPanel(TStatusBar *StatusBar,
      TStatusPanel *Panel, const TRect &Rect)
{
    TCanvas *pCanvas=stat1->Canvas;
    pCanvas->Font->Color=clGreen;
    pCanvas->Font->Style=TFontStyles()<<fsUnderline;//设置字体样式为下划线
    AnsiString str="http://www.cnblogs.com/zhangdongsheng/";
    pCanvas->TextOut(Rect.left+20,Rect.top+1,str);
}