828
社区成员
发帖
与我相关
我的任务
分享
//自绘列的表头标题
void __fastcall TForm1::StringGrid1DrawColumnHeader(TObject *Sender, TCanvas * const Canvas,
TColumn * const Column, const TRectF &Bounds)
{
TRectF r(Bounds);
r.right--;
Canvas->BeginScene();
Canvas->ClearRect(r,claLightgray);
Canvas->Fill->Color=claBlue;
Canvas->FillText(Bounds,Column->Header,true,1,TFillTextFlags(),TTextAlign::taCenter,TTextAlign::taCenter);
Canvas->EndScene();
}
//---------------------------------------------------------------------------