Перекрашивание строк DBGrid по условию

[ГОСЕАН]

начало вроде бы так:
IF DBEdit5=1 Then
Begin
дальше не знаю как, в общем необходимо перекрасить в красный свет строку с полем содержащим 1.

[ГОСЕАН]

procedure TForm9.DBGrid2DrawColumnCell(Sender : TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DBGrid2.an=1 then begin
with DBGrid2.Canvas do
begin
Brush.Color:=clRed;
Font.Color:=clWhite;
FillRect(Rect);
TextOut(Rect.Left+2,Rect.Top+2,Colu mn.Field.Text);
end;
end;

[Alexander_20]

http://www.citforum.ru/programming/a...advice04.shtml - перейди вот по этой ссылки,может поможет,статья называется
Как изменить цвет строки в TDBGrid

[yulia]

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

procedure TFMenu.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  i,j:integer;
begin
DM.t_katalog.RecNo:=0;
DM.t_takenbooks.RecNo:=0;
for j:=0 to DM.t_katalog.RecordCount do begin
for i:=0 to DM.t_takenbooks.RecordCount do begin
if DM.t_katalog.FieldByName('BARECODE').AsFloat=DM.t_takenbooks.FieldByName('BOOK').AsFloat then begin
DBGrid1.Canvas.Brush.Color:=Clred;
DBGrid1.Canvas.Font.Color:=clWhite;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
end;
DM.t_takenbooks.Next;
end;
DM.t_katalog.Next;
end;
end;

[koma_grusha]

Для таких целей лучше использовать while. Попробуй так

procedure TFMenu.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    DM.t_katalog.First;
    DM.t_takenbooks.First;
    while not DM.t_katalog.Eof do
        begin
        while not DM.t_takenbooks.Eof do 
            begin
            if DM.t_katalog.FieldByName('BARECODE').AsFloat=DM.t_takenbooks.FieldByName('BOOK').AsFloat then
                begin
                DBGrid1.Canvas.Brush.Color:=Clred;
                DBGrid1.Canvas.Font.Color:=clWhite;
                DBGrid1.Canvas.FillRect(Rect);
                DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
                end;
            DM.t_takenbooks.Next;
            end;
        DM.t_katalog.Next;
        end;
end;