Как раскрасить продольные строки в DBGrid разным цветом (нюанс)

← →
Layner © (2004-04-09 13:26) [0]

с чередованием 2. Т.е. определяем четность строки, (div или mod) на остаток, если четный то один цвет, не четный другой. Вопрос, как в DBGrid определить номер строки?

← →
Ega23 © (2004-04-09 13:29) [1]

У RX есть раскрашиваемый Grid

← →
Ann © (2004-04-09 13:29) [2]

http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=168
а именно "ПОЛОСАТОЕ ОКНО"

← →
serge © (2004-04-09 13:33) [3]

> как в DBGrid определить номер строки?

DBGrid.DataSource.DataSet.RecNo

← →
Layner © (2004-04-09 13:36) [4]

serge © (09.04.04 13:33)
Точно блин! Спасибо!
За ссылку и компанент тоже спасибо!

← →
tpa (2004-04-09 13:43) [5]

>DBGrid.DataSource.DataSet.RecNo
Insert and Delete ...

← →
Layner © (2004-04-09 15:14) [6]

tpa (09.04.04 13:43)
тут только чтение, так что...

Опять вопрос появился по закрашиванию ... если есть в опр. столбце и строке цифра, то всю эту строку надо в один цвет покрасить... Работаю по событию DrawColumnCell, с ним возможно ли сделать так? Т.е. покрасить всю строку, если в одной из ячеек опр. значение? (А это значение есть только в опр. стобце, т.е. я его просматриваю, с этим нет проблем)
Заранее спасибо.

← →
Stas © (2004-04-09 15:19) [7]

if DBGrid.DataSource.DataSet.FieldByName ("MyField").asInteger=1 then ...

← →
tpa (2004-04-09 15:24) [8]

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with TDBGrid(Sender) do begin
if TDBGrid(Sender).DataSource.DataSet.FieldByName("Field1").AsInteger = 1 then Canvas.Font.Color := clRed;
DefaultDrawDataCell(Rect, Column.Field, State);
end;
end;

Огромное спасибо!!!

Как раскрасить продольные строки в DBGrid разным цветом (нюанс) Найти похожие ветки