Witam,
Chciałbym, aby w DBGridzie wiersze miały otrzymywały kolory naprzemian szary i biały.
Udało mi się to zrobić tak:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
DBGrid1.Canvas.Font.Color:=clblack;
if DataSource1.DataSet.RecNo mod 2 =0 then
DBGrid1.Canvas.Brush.Color:=cl3Dlight
else
DBGrid1.Canvas.Brush.Color:=clwhite;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
I wszystko byłoby ok, gdyby nie to, ze po zastosowaniu takiego rozwiązania, nie podswietlają się kolejne rekordy kiedy klikne na nie myszką.
Wcześniej, ustawiłem parametr dbAlwaysShowSelection na True i po wyborze komorki, cały wiersz ładnie się podświetlał.
Czy jest jakiś sposób aby przy takim kolorowaniu jakie zastosowałem była mozliwość podswietlenia aktywnej komorki? Dzięki temu DBGrid byłby czytelniejszy.
Dziękuję za odpowiedź.