Чересстрочная раскраская DBGrid в фильтре

← →
Dim!S (2003-04-07 07:21) [0]

Мастера!
Как реализовать чересстрочную раскраску DBGrid"a для отфильтрованных записей (БД Paradox)

Использование TTable.RecNo не работает...

← →
AlexZ © (2003-04-07 07:38) [1]

Обрабатывай событие OnDrawColumnCell. На Королевстве статья есть, и даже не одна.

← →
Dim!S (2003-04-07 07:46) [2]

Спасибо, я знаю что в OnDrawColumnCell, вопрос в другом: Как узнать что запись четная(нечетная) в отфильтрованном наборе данных?

← →
AlexZ © (2003-04-07 07:53) [3]

Ну и бог с ним, с набором. Смотри четная(нечетная) ли запись в самом гриде.

← →
Dim!S (2003-04-07 08:24) [4]

Хорошо, а как это сделать?
Попиксельно вычислять размер ячейки, их количество в гриде...
Это сколько ж вычислений...

Может есть способ проще?

← →
Dim!S (2003-04-07 10:15) [5]

Неужели с этим никто не сталкивался???

← →
AlexSV © (2003-04-07 11:16) [6]

> Dim!S (07.04.03 08:24)
> Может есть способ проще?

Есть, можно и так:
type
THackGrid = class(TDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
HackGrid: THackGrid;
begin
HackGrid := THackGrid(Sender);
with HackGrid do begin
if ((DataLink.ActiveRecord mod 2) = 0) then
Canvas.Brush.Color := clRed
else
Canvas.Brush.Color := clGreen;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;

← →
Dim!S (2003-04-07 11:36) [7]

Спасибо, попробую...

EhLib

← →
Dim!S (2003-04-07 11:47) [9]

> Соловьев
спасибо, но не использую...

Чересстрочная раскраская DBGrid в фильтре Найти похожие ветки