Помощи прошу.
Решил не плодить темы и написать сюда.
Посмотрите пожалуйста в чем ошибка.
Скрипт должен окрашивать ячкйку по условию. Скрипт брал тут на форуме, но что то видимо сделал не так.
procedure uzsakymas_result_OnChange (Sender: string);
var
i,c: integer;
begin
uzsakymas.result.BeginUpdate;
c := uzsakymas.result.RowCount - 1;
for i := 0 to c do
begin
if uzsakymas.result.Cells[8,i] = 'Pristatyta' then uzsakymas.result.Cell[8,i].Color := clRed;
if uzsakymas.result.Cells[8,i] = 'Užsakyta' then uzsakymas.result.Cell[8,i].Color := clGreen;
if uzsakymas.result.Cells[8,i] = 'Ieškoma' then uzsakymas.result.Cell[8,i].Color := clBlue;
end;
uzsakymas.result.EndUpdate;
end;
begin
end.