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

[DIgorevich]

А цвет текста какой ставите и заливку?

[bbk_serg]

Brush.Color:=clMoneyGreen;
FillRect(Rect);
Font.Color:=clWindowText;

[DIgorevich]

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

[bbk_serg]

with DBGrid2.Canvas do begin
  Brush.Color:=clMoneyGreen;
  FillRect(Rect);
  Font.Color:=clWindowText;
  if DBGrid2.DataSource.DataSet.FieldByName('Oplacheno').Value = 'í³' then
   TextOut(Rect.Right-TextWidth(Column.Field.Text)-2,Rect.Top+2,Column.Field.Text)
   else
   if DBGrid2.DataSource.DataSet.FieldByName('Oplacheno').Value = 'òàê' then
   begin
   Brush.Color:=clWhite;
   FillRect(Rect);
  if Column.Width>TextWidth(Column.Field.Text) then
  TextOut(Rect.Right-TextWidth(Column.Field.Text)-2,Rect.Top+2,Column.Field.Text);
  end;
 end;

[DIgorevich]

Попробуйте так:

Font.Color:=clWindowText;
  with DBGrid2.Canvas do
  begin
      if DBGrid2.DataSource.DataSet.FieldByName('Oplacheno').Value = 'ДА' then
        begin
          Brush.Color:=clMoneyGreen;
          FillRect(Rect);
          TextOut(Rect.Right-TextWidth(Column.Field.Text)-2,Rect.Top+2,Column.Field.Text);
        end
      else
      if DBGrid2.DataSource.DataSet.FieldByName('Oplacheno').Value = 'НЕТ' then
        begin
           Brush.Color:=clWhite;
           FillRect(Rect);
         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]

СПАСИБО!!!

Все работает.

[DIgorevich]

хм-м странно... там строку

Font.Color:=clWindowText;

надо в тело цикла поместить...