изменение цвета ячейки dbgrid(a)

[Konstantin_ua]

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

procedure TF_Main.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin


	if ((Column.FieldName ='status') and (Column.Field.AsString='geen'))then
  begin
	with  DBGrid1.Canvas do
	begin
		 DBGrid1.Canvas.Brush.Color := clGreen;
     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
     DBGrid1.Canvas.Brush.Color := holdColor;
	end;
	end;

но ругается, если убрать в проверке Column.Field.AsString='geen' то закрашивает но все поля, как быть? defaultDrowing пробовал юзать тру и фолс не помогает, Есть ли еще метод закрасить ячейку, но что бы в другом событие например по нажатию кнопки(определенная ячейка меняет цвет)

вот код запроса

 try
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('SELECT * FROM Putt');
    ADOQuery1.Active:=True;
   except
    on e:Exception do
   end;

[Toxa]

что за ошибка?

попробуй вместо Column.Field.AsString вставить Column.Field.FieldName

[Serge_Bliznykov]

а если так написать?

procedure TF_Main.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

  if ((Column.FieldName ='status') and (ВашДатаСет.FieldByName('status').AsString='geen')) then
  begin
 	 DBGrid1.Canvas.Brush.Color := clGreen;
 	 DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
 	 DBGrid1.Canvas.Brush.Color := holdColor;
  end;

где ВашДатаСет - это датасет, в котором находятся данные (ну который связан с DBGrid1)

[Toxa]

а если так написать?

а если локейт будет на другой строке, то не закрасит

[Konstantin_ua]

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

что за ошибка?

https://www.dropbox.com/s/83ntiai7um...2013.07.53.png

[Konstantin_ua]

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

а если так написать?

procedure TF_Main.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

  if ((Column.FieldName ='status') and (ВашДатаСет.FieldByName('status').AsString='geen')) then
  begin
 	 DBGrid1.Canvas.Brush.Color := clGreen;
 	 DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
 	 DBGrid1.Canvas.Brush.Color := holdColor;
  end;

где ВашДатаСет - это датасет, в котором находятся данные (ну который связан с DBGrid1)

https://www.dropbox.com/s/hq28a6dkd0...2013.14.57.png

[Konstantin_ua]

	if (Column.FieldName='status')then
   //if (ADOQuery1.FieldByName('status1').AsString='geen')then
  
 begin
	with  DBGrid1.Canvas do
	begin
		 DBGrid1.Canvas.Brush.Color := clGreen;
     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
     DBGrid1.Canvas.Brush.Color := holdColor;
	end;
	end;

вот так закрашивает весь столбец ну мне нужно как то прикрепить то условие что закоментированно, может его где то в другом месте прописать?

[Serge_Bliznykov]

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

а если локейт будет на другой строке, то не закрасит

возможно Вы ошибаетесь.

Konstantin_ua, проверяйте, как точно называются поля в таблице Putt. есть сомнение, что у Вас в ADOQuery1 нет поля Status ?!

[Konstantin_ua]

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

возможно Вы ошибаетесь.

Konstantin_ua, проверяйте, как точно называются поля в таблице Putt. есть сомнение, что у Вас в ADOQuery1 нет поля Status ?!

С полями все нормально, может я не там пишу сам запрос? если в теле события писать то начнет лагать страшно, пишу в форм криейте.
вот
https://www.dropbox.com/s/orwtjabn572kmbl/Ado.rar пасс 12345 лог админ

[xxbesoxx]

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

С полями все нормально, может я не там пишу сам запрос? если в теле события писать то начнет лагать страшно, пишу в форм криейте.
вот
https://www.dropbox.com/s/orwtjabn572kmbl/Ado.rar пасс 12345 лог админ

Я прошу прошения . На ваши проекте я нечего не понял. Но вот маленький пример ( Как покрасит строки ) по условие поля (Color) который мы Gride не отображаем

procedure TfrmMain.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if ADOQuery1.FieldByName('Color').AsCurrency = 1 then
     begin
      DBGrid1.Canvas.Brush.Color:=clAqua;
      DBGrid1.DefaultDrawColumnCell
      (Rect, DataCol, Column, State);
     end
   else
     if ADOQuery1.FieldByName('Color').AsCurrency = 2 then
       begin
         DBGrid1.Canvas.Brush.Color:= clYellow;
         DBGrid1.DefaultDrawColumnCell
         (Rect, DataCol, Column, State);
       end
     else
     if ADOQuery1.FieldByName('Color').AsCurrency = 3  then
       begin
        DBGrid1.Canvas.Brush.Color:= clLime;
        DBGrid1.DefaultDrawColumnCell
        (Rect, DataCol, Column, State);
       end
       else
     if ADOQuery1.FieldByName('Color').AsCurrency = 4  then
       begin
        DBGrid1.Canvas.Brush.Color:= clMoneyGreen;
        DBGrid1.DefaultDrawColumnCell
        (Rect, DataCol, Column, State);
       end;
end;

end.

Но если вам не ( Все строки ) и только ячейки . Посмотрю