Раскрашивание строк в DBGrid по нечетным числам - Delphi

[S_007]

Спасибо Stilet! и за наводку Аватар! Разобрался! Получилось так...

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var
  holdColor: TColor;e,u:integer;
begin
 with DBGrid1.Canvas do begin
 if TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 1  then  begin
   Brush.Color:=clWhite
   Font.Color:=clblack;
  end else begin
   Brush.Color:=clblack;
   Font.Color:=clWhite;
  end;
  FillRect(rect);
  TextOut(Rect.Left,Rect.Top,Field.AsString);
 end;
end;

[Stilet]

Эх студент студент...

if odd(TDbGrid(Sender).DataSource.DataSet.RecNo) then

Все. Дальше сам.
Если RecNo дает -1 сделай глобальную переменную, которую увеличивай на единицу, пока событие по всем записям не пройдет - это тебе домашка будет )

Получилось так...

Ну можно и так )

[S_007]

Stilet, я даже не студент, а просто самоучка, не знаю как благодарить Вас, за Ваш форум, благодаря ему и вашей терпимости и отзывчивости к таким ка я... я что-то начинаю делать...
Низкий поклон Вам! Дай Вам Бог!
Спасибо!
С уважением

[Stilet]

а просто самоучка

Тогда книжками обкладывайся. В хелп заглядывай почаще. Если бы сразу, как Аватар отписалс, набрал в хелпе слово RecNo вопросов то и не было бы.
Ну и храни ссылку на Delphi world. Там найдешь много примеров, которые на мысли наталкивают. Плюс наш форум.

[S_007]

Похоже я рано радовался... Строки в таблице разноцветные, все красиво, но теперь если я щелкаю чтоб выделить строку, она не становится синей как раньше
Можно как то сделать чтоб работало и то и другое?

[evg_m]

Можно как то сделать чтоб работало и то и другое?

Можно, но рисовать выделение придется самому. Для этого достаточно при отрисовке анализировать флаг State: TGridDrawState и делать соответствующие поправки к рисованию (использовать нужные цвета).

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);

В хелп заглядывай почаще.

TGridDrawState represents state information about the cell of a grid that is being rendered. It is a set that includes 0 or more of the following:

Value Meaning

gdSelected The cell is currently selected.
gdFocused The cell has input focus.
gdFixed The cell is in the fixed region of the grid.

[Stilet]

Можно как то сделать чтоб работало и то и другое?

Можно. Опиши переменку (Глобальную), которая в событии AfterScroll будет принимать DataSet.Recno; Типа запомнить кликнутую запись.
И допилить событие отрисовки

 if TDBGrid(Sender).DataSource.DataSet.RecNo = <Та самая переменка>  then  begin
  Заливаем неким цветом
  Выводим некий текст на канву
  exit;
 end;
 if TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 1  then  begin

флаг State: TGridDrawState

Там можно узнать какая ячейка кликнута, а вот с номером записи, боюсь будет труднее. По крайней мере мне нормально не удавалось, поэтому я использовал всегда глобальную переменку, как описал выше.

[S_007]

Получилось так... Только теперь почему-то таким же цветам как и выделенная строка закрашивает всю форму
Почему так?

procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
  a:= DataSet.Recno;
end;

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin

  if TDBGrid(Sender).DataSource.DataSet.RecNo = a  then  begin
   Brush.Color:=clHighlight;
   Font.Color:=clBlack;
   exit;
   end;

  with DBGrid1.Canvas do begin
  if TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 1 then  begin
   Brush.Color:=clWhite;
   Font.Color:=clBlack;
  end else begin
   Brush.Color:=$00D2E8E8;
   Font.Color:=clBlack;
  end;
  FillRect(rect);
  TextOut(Rect.Left,Rect.Top,Field.AsString);
 end;
end;

[opencloser]

Использовать стили отображения

[S_007]

Сообщение от opencloser

Использовать стили отображения

я не знаю как это сделать