Закрашивает нужную ячейку, но та, что была закрашанна до этого, опять становится белой.. как запомнить все закрашивания??
| Код |
long left; long top;
void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol,
int ARow, bool &CanSelect)
{
TRect A = StringGrid1->CellRect(ACol, ARow);
left = A.left;
top = A.top;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1Click(TObject *Sender)
{
StringGrid1->Canvas->Brush->Color=clBlack;
left = left / 25; top = top / 25;
TRect A = StringGrid1->CellRect(left, top);
StringGrid1->Canvas->FillRect(A);
}
|
|
