Topic: Окраска строки таблицы по условию
Добрый день!
Подскажите скрипт для окраски последней записи в таблице.
Есть скрипт, позволяющий окрашивать строку по условию, но не знаю как сделать, чтобы он работал только по самой последней записи.
procedure Frm_main_t2_OnChange (Sender: TObject);
var
i,f,r,c: integer;
begin
c := Frm_main.t2.Columns.Count - 1;
r := Frm_main.t2.RowCount - 1;
for i := 0 to r do
begin
if Frm_main.t2.Cells[8,i] = 'задолженность' then
begin
for f := 0 to c do
Frm_main.t2.Cell[f,i].Color := $006B8DE7;
Frm_main.t2.ScrollToRow(0);
end;
end;
end;