(Лирическое отступление. На моем рабочем мониторе не видны светло-голубые ячейки строки на картинке...)
Итак, на форме TStringGrid, и заведена переменная iRow для запоминания индекса строки, на которой выделена ячейка.
goRowSelect = false
goRangeSelect = false
| Код |
int iRow=1; // индекс строки, на кот. есть выделенная клетка
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
for (int i = 0; i < 5; i++)
{ for (int j = 0; j < 5; j++)
{ mySG->Cells[i][j]=String(i+1)+String(j+1);
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::mySGSelectCell(TObject *Sender, int ACol, int ARow, bool &CanSelect)
{
iRow=ARow;
mySG->Repaint();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::mySGDrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
TGridDrawState State)
{
String sText=((TStringGrid*)Sender)->Cells[ACol][ARow]; // текст ячейки
TCanvas* sndCanvas=((TStringGrid*)Sender)->Canvas; // канва
sndCanvas->Font->Color=clWindowText; // цвет шрифта
if (State.Contains(gdFixed))
sndCanvas->Brush->Color=clBtnFace; // цвет фиксированной ячейки
else if (State.Contains(gdSelected))
{ sndCanvas->Brush->Color=clHighlight; // цвет выделенной ячейки
sndCanvas->Font->Color=clHighlightText; // цвет шрифта
}
else if (ARow==iRow)
{ sndCanvas->Brush->Color=clYellow; // здесь подставить светло-голубой
}
else
sndCanvas->Brush->Color=clWhite; // цвет ячейки
unsigned int uFlag; // флаг выравнивания
uFlag=DT_CENTER | DT_WORDBREAK; // по центру
sndCanvas->FillRect(Rect); // очистка ячейки
Rect.Top+=2;
Rect.Left+=2;
Rect.Right-=2;
Rect.Bottom-=2;
DrawText(sndCanvas->Handle, sText.c_str(), -1, &Rect, uFlag); // отрисовка
}
|
Мерцания нет, хоть с DoubleBuffered = true, хоть DoubleBuffered = false.
| Цитата |
Не будет работать, если вы выполните все условия.
|
Не знаю, все ли ваши условия выполнены, но прекрасно работает и при навигации клавиатурой!
На TAdvStringGrid не тестировалось.
|
)
Подставлять некуда.