Проблема следующая: нужно отображать разные строки в таблице разным цветом в зависимости от условия. Прочел тучу примеров того, как это делается, сделал... работает! Похвастался коллеге. Он у себя давай то же самое делать... не работает! Во блин... Фрагменты кода практически идентичные, но у меня работает, а у него - нет. Бились мы с ним, бились... вот и у меня перестало работать. . Что же выяснилось: я в своих экспериментах просто кинул на форму DBGrid, подсоединил к DataSource, и успокоился. А у коллеги в программе колонки грида были добавлены через Column Editor. И как только я сделал то же самое... вся моя радуга с экрана пропала.
Вот код (Delphi 6)

Код

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;   Field: TField; State: TGridDrawState); begin   If Table1.FieldByName('age').AsInteger > 30 then      DBGrid1.Canvas.Font.Color := clNavy   Else      DBGrid1.Canvas.Font.Color := clRed;         DBGrid1.DefaultDrawDataCell(Rect, Field, State); end;

Есть ли методы получше?

Это сообщение отредактировал(а) Ptica - 24.3.2005, 14:32

Цитата(Ptica @ 24.3.2005, 14:30)

А у коллеги в программе колонки грида были добавлены через Column Editor

Если просто, оставляя всё как есть - прибить колонки в DBGrid, а добавить их из FieldEditor самого TTable или TQuery. Эффект тот же (название, длина, маска,видимость), а глюков меньше. Ну а главное, твой код выше будет работать

bursa
Спасибо, попробую. Пока что я обнаружил, что если вместо

Цитата

DrawDataCell

использовать

Цитата

DrawColumnCell

то все будет нормально. И правильно; написано же в хэлпе, что DrawDataCell оставлен только для обратной совместимости.

смотри DRKB23 там все прекрасно расписано

Кстати, а можно ячейки закрашивать, а не цвет шрифта менять?

Цитата

Кстати, а можно ячейки закрашивать, а не цвет шрифта менять?

DBGrid1DrawDataCell:

Код

if gdFocused in State then with (Sender as TDBGrid).Canvas do    begin      Font.Color := $D56A00;      FillRect(Rect);      TextOut(Rect.Left,Rect.top, Field.AsString);    end;

2DimW: У меня ничего не произошло...?
А, нет, все заработало, только все равно не то.
Надо сделать "шахматную доску" из DBGrid-а.

Это сообщение отредактировал(а) Bes - 5.4.2005, 09:51

Во класс, ну тебя прет...
А поподробнее можно!!!!
Может тему новую откроешь?

Не, ну т.е. есл каждую клеточку в особый цвет можно покрасить, значит любую задачу связаную с расцветкой ДБГрида решить можно.

Цитата

Надо сделать "шахматную доску" из DBGrid-а.

Все понял это ты образно сказал... а я и думаю почему DBGrig...

Ага, ну дак че, есть идеи. додумался только до того, чтобы программно модифицировать Рект в таком коде,

Код

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;   DataCol: Integer; Column: TColumn; State: TGridDrawState); Var      REC:TRect; begin      If ADOQuery1.FieldByName('sm').AsInteger = 12 then      begin           DBGrid1.Canvas.Font.Color := clNavy;           DBGrid1.Canvas.Brush.Color:=clYellow;           Rec:=Rect;           Rec.Left:=DBGrid1.Columns[0].Width+13;           Rec.Right:=Rec.Left+DBGrid1.Columns[1].Width;      //REC.Right:=2;      DBGrid1.DefaultDrawColumnCell(Rec,DataCol,Column,State);// (Rect, DataCol, State); }      end Else      begin           DBGrid1.Canvas.Font.Color := clRed;           //DBGrid1.Columns[1].Color:=clBlack;           DBGrid1.Canvas.Brush.Color:=clBlack;           DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);// (Rect, DataCol, State); }      end;      {Rec:=Rect;      Rec.Left:=1;      REC.Right:=2;      DBGrid1.DefaultDrawColumnCell(Rec,DataCol,Column,State);// (Rect, DataCol, State); } end;

но может есть что-то человеческое?

Bes вот тебе шахматная доска из DBGrid:

Код

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;   Field: TField; State: TGridDrawState); begin if Table1.RecNo mod 2<>0 then   begin   if  (Field.FieldNo mod 2=0) then DBGrid1.Canvas.Brush.Color := clblack;   if  (Field.FieldNo mod 2<>0)then DBGrid1.Canvas.Brush.Color := clYellow;   end; if Table1.RecNo mod 2=0 then   begin   if  (Field.FieldNo mod 2=0) then DBGrid1.Canvas.Brush.Color :=clYellow;   if  (Field.FieldNo mod 2<>0)then DBGrid1.Canvas.Brush.Color :=clblack;   end; DBGrid1.DefaultDrawDataCell(Rect, Field, State); end;

Все оказалось довольно просто, ведь правда?

в догонку ...
я бы к DataSet через DBGrid.DataSource.DataSet обращался

procedure ...
var DS : TDataSet;
begin
DS := DBGrid.DataSource.DataSet;
if DS.RecNo = ...
...
end;

и тогда эту процедуру на несколько DBGrid можно будет завести