TDrawGrid,3行代码,问题何在?
void __fastcall TForm1::DrawGrid1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
//DrawGrid1->BeginDrag(false);
DrawGrid1->Canvas->Brush->Color = clBlack;
TRect Rect = DrawGrid1->CellRect(DrawGrid1->Col, DrawGrid1->Row);
DrawGrid1->Canvas->TextRect(Rect, Rect.Left, Rect.top, " ");
//DrawGrid1->Invalidate();
//if(Button == mbLeft)
// MakeColor(X, Y, clBlack);
//if(Button == mbRight)
// MakeColor(X, Y, clWindow);
}
DrawGrid1->Canvas->Brush->Color = clBlack;
if( DrawGrid1->Col == ACol && DrawGrid1->Row == ARow )
DrawGrid1->Canvas->TextRect(Rect, Rect.Left, Rect.top, " ");