有关StringGrid控件的代码和一些注意

1.

StringGrid->FixedRows必须小于StringGrid->RowCount

StringGrid->FixedCols必须小于StringGrid->ColCount

 

2. 

如果想去掉StringGrid显示时选中的区域，就要将defaultdraw设为false，然后在自画StringGrid。

 

3.

设置单独某行的宽度StringGrid->ColWidths[i] = Width;

设置单独某列的高度StringGrid->RowHeights[i] = Height;

代码： 

1.确定选中区间：

void __fastcall TObjectForm::FormShow(TObject *Sender)

{

    TGridRect myRect;
    myRect.Top = 1;

    myRect.Bottom = 1;
    myRect.Left = 0;   

    myRect.Right = StringGrid->ColCount;   
    StringGrid->Selection = myRect;   

}

 

2.OnMouseDown事件：

void __fastcall TObjectForm::StringGridMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    TStringGrid *thisSender = (TStringGrid *)Sender;
    int row,col;
    thisSender->MouseToCell(X,Y,col,row);
    if (row <= 0){
        MouseIndex = 1;
        return;
    }
    MouseIndex = row;

    //判断鼠标是否点中小方块区域
    if (col == 0 && X < 20) {
        TDataLine *pTemp = (TDataLine*)ChartForm->List->Items[MouseIndex - 1];
        pTemp->ShowPoint = !pTemp->ShowPoint;
        ChartForm->DrawGraph();
        StringGrid->Repaint();                   //重画
    }

}

 

3.OnDrawCell事件：（StringGrid自画）

void __fastcall TObjectForm::StringGridDrawCell(TObject *Sender,
                int ACol, int ARow, TRect &Rect, TGridDrawState State)
{
    StringGrid->Canvas->Font->Color = clBlack;
    if (State.Contains(gdSelected)){
        StringGrid->Canvas->Brush->Color = clHighlight;
        StringGrid->Canvas->Font->Style = TFontStyles() << fsBold;
    }else{
        if (ARow == 0){
            StringGrid->Canvas->Brush->Color = clBackground;
            StringGrid->Canvas->Font->Color = clYellow;
        }else if (ARow % 2 == 0){
            StringGrid->Canvas->Brush->Color = clCream;
        }else{
            StringGrid->Canvas->Brush->Color = clSkyBlue;
        }
    }
    AnsiString text = StringGrid->Cells[ACol][ARow];
    StringGrid->Canvas->Pen->Color = clBlack;
    StringGrid->Canvas->FillRect(Rect);
    StringGrid->Canvas->Brush->Style = bsClear;
    if (ARow > 0 && ACol == 0){
        TRect SR(Rect.Left + 20, Rect.Top, Rect.Right, Rect.Bottom);
        DrawText(StringGrid->Canvas->Handle, text.c_str(), text.Length(),
                    &SR, DT_LEFT | DT_VCENTER | DT_SINGLELINE);
    }else{
        TRect SR(Rect.Left + 5, Rect.Top, Rect.Right, Rect.Bottom);
        DrawText(StringGrid->Canvas->Handle, text.c_str(), text.Length(),
                    &SR, DT_LEFT | DT_VCENTER | DT_SINGLELINE);
    }
   
    if (ARow == 0){
        return;
    }
    TDataLine *pTemp = (TDataLine*)ChartForm->List->Items[ARow-1];
    if ( ARow > 0 && ACol == 0){
        if (pTemp->ShowPoint){
            ImageList->Draw(StringGrid->Canvas, Rect.Left + 2, Rect.Top + 2, 1, true);
        }else{
            ImageList->Draw(StringGrid->Canvas, Rect.Left + 2, Rect.Top + 2, 0, true);
        }
    }
}