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

[xxbesoxx]

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

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

Покрасить ячейка . Условия на полей 'nam' покрасим ( Кофе и 'Макарон)

procedure TfrmMain.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
   if Column.FieldName = 'nam' then
       if (Column.Field.AsString ='Кофе') then
         begin
           DBGrid1.Canvas.Brush.Color := clLime;
           DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
        end
        else
        if (Column.Field.AsString ='Макарон') then
           begin
             DBGrid1.Canvas.Brush.Color := clYellow;
             DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
          end
end;

end.

[Konstantin_ua]

все работает, просто в начале когда создается датасет то у него нету еще полей типа Status? sql запрос еще не был выполнен и поля пустые, проблему решил кинул чек бокс и меняю его после того как заполняю таблицу, в самом событие

DBGrid1DrawColumnCell

поставил проверку и там уже рисую нужным цветом. Если кто то знает как проще сделать жду ваших предложений.

[SunnyCrash]

Посмотри мож поможет

[SunnyCrash]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBGridEhGrouping, DB, ADODB, GridsEh, DBGridEh, StdCtrls,
IWControl, IWCompListbox, IWDBStdCtrls, CheckLst, DBCheckListBox;

type
TForm1 = class(TForm)
DBGridEh1: TDBGridEh;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Button1: TButton;
Button2: TButton;
Button3: TButton;
CheckBox1: TCheckBox;
DBCheckListBox1: TDBCheckListBox;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
ADOQuery1.SQL.Add('SELECT * FROM TableTest');
ADOQuery1.Active:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Insert;
ADOQuery1.Fields.FieldByName('check box').AsVariant:=1;
ADOQuery1.Post;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM TableTest WHERE checkbox=:check');
ADOQuery1.Parameters.ParamByName('c heck').Value:=CheckBox1.Checked;
ADOQuery1.Active:=True;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery1.First;
ShowMessage(ADOQuery1.Fields.Fields[1].AsVariant);
end;

procedure TForm1.DBGridEh1DrawColumnCell(Send er: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);

var
holdColor: TColor;
begin
holdColor := DBGridEh1.Canvas.Brush.Color; {сохраняем оригинальный цвет}
{"раскрашиваем" ячейки только для поля EmpNo}
if Column.FieldName = 'id' then
if (Column.Field.AsInteger mod 2 <> 0) then
begin
DBGridEh1.Canvas.Brush.Color := clRed;
DBGridEh1.DefaultDrawColumnCell(Rec t, DataCol, Column, State);
DBGridEh1.Canvas.Brush.Color := holdColor;
end;
end;
//Для разных цветов ячеек
end.