StringGrid设置单元格信息

BCB封装了StringGrid自绘消息OnDrawCell 我们只要重写该事件即可

事实上我们只要判断是否要自绘 但是如果StringGrid作为输入 需要设置任意一个单元格信息 那就要做些额外的工作

我们这里采用list记录每个设置了自绘的单元格

代码如下：

//首先我们需要定义结构来存储自绘信息

struct CellInfo
{
    POINT p;
    struct{
      String fontname;
      TColor c;
      int size;
      TFontStyles s;
      TColor b;
    }FontInfo;
    bool operator==(const CellInfo& Info)
    {
        if(this->p.x==Info.p.x&&
           this->p.y==Info.p.y)
        return true;
        return false;
    }
};
 
#include <list.h>//STL list声明
 
list<CellInfo> CellList;

//添加一个PopupMenu、FontDialog

//在PopupMenu菜单事件里响应FontDialog

//将自绘信息插入list

void __fastcall TForm1::N1Click(TObject *Sender)
{
    if(FontDialog1->Execute())
    {
        GellInfo Info;
        Info.p.x=StringGrid1->Col;
        Info.p.y=StringGrid1->Row;
        Info.FontInfo.fontname=FontDialog1->Font->Name;
        Info.FontInfo.size=FontDialog1->Font->Size;
        Info.FontInfo.s=FontDialog1->Font->Style;
        Info.FontInfo.c=FontDialog1->Font->Color;
        Info.FontInfo.b=clRed;
        list<CellInfo>::iterator it;
        it=find(CellList.begin(),CellList.end(),Info);
        if(it==CellList.end())
        {
           CellList.push_back(Info);
        }
        else
        {
           (*it).p=Info.p;
           (*it).FontInfo.fontname=Info.FontInfo.fontname;
           (*it).FontInfo.c=Info.FontInfo.c;
           (*it).FontInfo.size=Info.FontInfo.size;
           (*it).FontInfo.s=Info.FontInfo.s;
        }
    }
}

//在OnDrawCell事件编写自绘处理

CellInfo Info;
   Info.p.x=ACol;
   Info.p.y=ARow;
   list<CellInfo>::iterator it=find(CellList.begin(),CellList.end(),Info);
  if(it!=CellList.end())
   {
       dynamic_cast<TStringGrid*>(Sender)->Canvas->Font->Color=(*it).FontInfo.c;
       dynamic_cast<TStringGrid*>(Sender)->Canvas->Font->Name=(*it).FontInfo.fontname;
       dynamic_cast<TStringGrid*>(Sender)->Canvas->Font->Size=(*it).FontInfo.size;
       dynamic_cast<TStringGrid*>(Sender)->Canvas->Font->Style=(*it).FontInfo.s;
       dynamic_cast<TStringGrid*>(Sender)->Canvas->Brush->Color=(*it).FontInfo.b;
       dynamic_cast<TStringGrid*>(Sender)->Canvas->FillRect(Rect);
       dynamic_cast<TStringGrid*>(Sender)->Canvas->TextOutA(Rect.Left+2,Rect.Top+2,StringGrid1->Cells[ACol][ARow]);
   }