Привет всем! Хочу сделать так, чтобы цвет строчек в DBGrid был разным. Т.е., допустим, первая строчка светло серая, вторая темно серая, и так далее. Вот код:

Код

... type TMyDBGridEh = class(TDBGridEh)   property DataLink;   property UpdateLock; end; ... procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;   const Rect: TRect; DataCol: Integer; Column: TColumnEh;   State: TGridDrawState); var index: Integer;     Marked, Selected: Boolean; begin   Marked:=False;   if (dgMultiSelect in DBGridEh1.Options)and   (TMyDBGridEh(DBGridEh1).Datalink.Active) then Marked:=DBGridEh1.SelectedRows.Find(TMyDBGridEh(DBGridEh1).Datalink.Datasource.Dataset.Bookmark, index);   Selected:=(TMyDBGridEh(DBGridEh1).Datalink.Active) and (DBGridEh1.Row-1 =TMyDBGridEh(DBGridEh1).Datalink.ActiveRecord);   // цвет строки в зависимости от ее номера   if Main.RecNo mod 2=0 then     DBGridEh1.Canvas.Brush.Color:=RGB(224,234,243)   else     DBGridEh1.Canvas.Brush.Color:=RGB(237,242,249);   // цвет букв   DBGridEh1.Canvas.Font.Color:=RGB(14,69,121);   // если выделена строка   if Selected then     DBGridEh1.Canvas.Brush.Color:=RGB(169,184,201);   // перерисовка DBGridEh1   DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;

Все отлично работает! Но когда мне надо сделать выборку в данной базе, то происходит следующее: номера записей различны и какие-то записи подсвечиваются в таблице светло-серым, а какие-то темно-серым цветом, т.е. не по порядку, а вразнобой. Может идти 3 светло-серых строки, а потом 5 темно-серых. А мне надо, чтобы и во всех режимах работы DBGrid чередовался цвет строк. Как этого добиться? Пытался меня строку:

Код

if Main.RecNo mod 2=0 then

на

Код

if DBGridEh1.Row mod 2=0 then

но это мне не подходит. Работает в таком случает программа как-то странно... Посоветуйте, пожалуйста, что-нибудь!

MacTep
Придется перерисовывать каждый раз при выборке.

~FoX~, каким же образом перерисовывать? Я же смотрю по номеру записи, а номер записи всегда фиксирован!

Если хочешь сделать "зебру" из DBGrid, то перейди на EHLib (GridEh), там и пример есть, как "зебра" делается

kirilllius Так он и юзает ehLib

Цитата(MacTep @ 3.7.2005, 00:08)

DBGridEh1

MacTep
Ты каким макаром выборку делаешь?
Если хочешь зебру надо смотреть не на номер записи в БД, а на номер записи в рекордсете.

Ну так пусть смотрит первый пример, а именно вкладка DBLIST, чеквокс Dichromatic

Цитата(kirilllius @ 4.7.2005, 12:52)

Ну так пусть смотрит первый пример, а именно вкладка DBLIST, чеквокс Dichromatic

Там написано, мол, DBGridEh1.Invalidate; А вот откуда это взялось - не монимаю!

Вот код на событие onGetCellParams у грида

Взято из примера

Код

procedure TForm1.dbgListGetCellParams(Sender: TObject; Column: TColumnEh;   AFont: TFont; var Background: TColor; State: TGridDrawState); begin   if cbDichromatic.Checked then     if dbgList.SumList.RecNo mod 2 = 1 then       Background := $00FFC4C4     else       Background := $00FFDDDD; end;

>Вот код на событие onGetCellParams у грида
в этом случае чепуха при фильтрации получается

FIBPlus 6.4 + EhLib 4.1 Build 4.1.4 Russian version

при применении фильтра полосатость EhDBGrida исчезает, но при отмене фильтра также не появляется :(

как это побороть?

   Added OddRowColor and EvenRowColor property to draw odd and even
   rows with different colors. It works only if sequence numbers are available
   for DataSet(DataSet.IsSequenced = True) and DataSet.RecNo return valid info.

неужели нет решения?

хотябы полосатость вернуть при отмене фильтра и то уже дело - отличать фильтрованные данные от полных, но как!?

Это сообщение отредактировал(а) korotkov - 26.4.2007, 09:06

korotkov, 
DelphiKingdom - статья "Разноцветный DBGrid". В DRKB тоже есть.

Разноцветный D B G R I D
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=168

По следам «полосатого DBGrid»
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1193

Дополнение по теме 'полосатый DBGrid'
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=170

>и что такое DRKB?
http://www.drkb.ru/
скачать не могу, сижу на GSM GPRS инете :(

интересует полосатая раскраска EhDBGrid именно при фильтрации и после, а не раскраска отдельных ячеек и их текста в зависимости от значения ячейки, это мы умеем ;)

Это сообщение отредактировал(а) korotkov - 26.4.2007, 09:05

я так делал...

если можно поясни идею if(DataCol=0)then Inc(StrNum);

что есть StrNum когда он а обнуляется?

это для чередования строк, грид рисует каждый в каждой строке столбцы, а потом переходит на следующую строку...

просто поэкспериментируй и увидишь разницу...

Покрайней мере я другого методы не нашел... 

... это понятно что чередования , не понятна химия if(DataCol=0)then Inc(StrNum); и где, когда обнуляется StrNum???

этим ты поборол неполосатость при фильтрации и при снятии фильтра или просто сделал полосатую таблицу? так с версии 3.6 она делается полосатой штатными средствами.

Это сообщение отредактировал(а) korotkov - 26.4.2007, 12:25