DBGrid DrawRow

[MSMK]

Возможно ли в DBGrid закрасить конкретную строку? на данный момент нашел только возможность закрасить ячейку

[MSMK]

procedure TfrmEdtRetSale.undbgrdPayDrawColumnCell(Sender: TObject; ACol,

  ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs);

begin

  if qryPaymentsVISIBLE.Value=0 then

  begin

    Attribs.Font.Style:=[fsStrikeOut];

    Attribs.Color:=clRed;

  end;

end;

 

Спасибо! Все работает

[Tokay]

Странный какой-то код. Мне кажется, что нужно так:

procedure TfrmEdtRetSale.undbgrdPayDrawColumnCell(Sender: TObject; ACol,
  ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs);
begin
  if ARow=0 then
  begin
    Attribs.Font.Style:=[fsStrikeOut];
    Attribs.Color:=clRed;
  end;
end;

[baha]

Уважаемый Токай, скажи пожалуйста, а как мне выделить не конкретную строку.

А строку в которая определенная ячейка имеет определенное значение (значение меньше 20 например).

if Column.FieldName = 'KOEF' then
  begin
    Attribs.Color := RGB(219, 248, 255);
    if Column.Field.AsInteger > 20 then
    begin
      if ARow = 0 then
      begin
        Attribs.Font.Color := clRed;
        Attribs.Color := RGB(219, 248, 255);
      end;
    end;
  end;

По данному коду он выделит мне эту ячейку в поле KOEF, а мне надо ячейку рядом выделить, ну или хотя бы всю строку.

[Tokay]

Quote

А строку в которая определенная ячейка имеет определенное значение (значение меньше 20 например).

тут традиционно важно понимать, что данные хранятся не в гриде, а в наборе данных. из этого и исходить:

if DataSet.FieldByName('COEFFICIENTS').AsInteger > 20 then

......

ну и дальше красить на что хватает фантазии.

[baha]

От души брат.

Шерзод вот такое подсказал:

if Column.Field.DataSet.FieldByName('KOEF').AsInteger > 20 then
  begin
    Attribs.Color := RGB(230, 184, 183)
  end;

Спасибо!

[baha]

On 9/3/2018 at 3:49 PM, =GGG= said:

Возможно ли в DBGrid закрасить конкретную строку? на данный момент нашел только возможность закрасить ячейку

А у меня все наоборот. Надо ячейку закрасить, а я знаю, как закрасить всю строку. Не подскажешь?

[stas]

On 7/6/2019 at 6:56 PM, baha said:

А у меня все наоборот. Надо ячейку закрасить, а я знаю, как закрасить всю строку. Не подскажешь?

undbgrdPayDrawColumnCell(Sender: TObject; ACol,
  ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs);