TextRect работает неправильно

[bbk_serg]

Здраствуйте!!

Мне нужно при определенном условии закрасить строку таблицы.
Я новичок поэтому может не все понимаю, посмотрите что не так.
Заранее спасибо!!!

procedure TForm1.DCC(Sender: TObject; const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
begin
  DBGrid2.Canvas.Font.Color := clBlack;
  DBGrid2.Canvas.Brush.Color := clMoneyGreen;
  DBGrid2.Canvas.FillRect(Rect);

if DBGrid2.DataSource.DataSet.FieldByName('Oplacheno').Value = 'ні' then
  DBGrid2.Canvas.TextRect(Rect,Left+2,Rect.Top+2,Column.Field.Text);
end;

[Stilet]

procedure TForm1.DCC(Sender: TObject; const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
begin
 with DBGrid2.Canvas do begin
  Font.Color := clBlack;
  if DBGrid2.DataSource.DataSet.FieldByName('Oplacheno').Value = 'ні' then
   Brush.Color := clMoneyGreen else Brush.Color := clDefault;
  FillRect(Rect);
 TextRect(Rect,Left+2,Rect.Top+2,Column.Field.Text);
 end;
end;

[bbk_serg]

Работает но появилась другая проблема: текст не видно в этой строке и остальные строки закрашивает в черный.

[Stilet]

А ошибся:

   else
    Brush.Color := clWhite;

[bbk_serg]

Исправил, но с текстом проблема осталась.
Вот как виглядит таблица:
[IMG]C:\Users\Minicooper\Documents\Img.j pg[/IMG]

[bbk_serg]

Исправил, но с текстом проблема осталась.
Вот как виглядит таблица:

[vovk]

цвет шрифту задайте
Font.Color:= clBlack;

Звиняйте всё уже было..(и ведь у самого в подписи про внимательность)

[Stilet]

но с текстом проблема осталась.

Какая проблема?

[М_Виктор]

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

Исправил, но с текстом проблема осталась.
Вот как виглядит таблица:

Может быть, Вам следует попробовать примерно так:

            with DBGridEh2.Canvas do
               begin
                  Brush.Color:=$00CECEFF; {здесь укажите нужный Вам цвет заливки}
                  FillRect(Rect);
                  Font.Color:=clWindowText;
                  if (Column.Field.DataType=ftString) or (Column.Field.DataType=ftDate)  then
                     TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text)
                  else
                  if (Column.Field.DataType=ftFloat) or
                     (Column.Field.DataType=ftAutoInc) or
                     (Column.Field.DataType=ftSmallint) or
                     (Column.Field.DataType=ftInteger) then
                     begin
                       if Column.Width>TextWidth(Column.Field.Text) then
                         TextOut(Rect.Right-TextWidth(Column.Field.Text)-2,Rect.Top+2,Column.Field.Text);
                     end;
               end

[bbk_serg]

Появилась другая проблема: на заливке нет текста.