Topic: [Скрипт] Изменить цвет ячейки компонента TableGrid при условии
Изменение цвета ячеек компонента TableGrid, в зависимости от его содержимого.
procedure Form1_GridEmployees_OnChange (Sender: string);
var
i,c: integer;
begin
c := Form1.GridEmployees.RowCount - 1;
for i := 0 to c do
begin
if Form1.GridEmployees.Cells[3,i] = 'Yes' then Form1.GridEmployees.Cell[3,i].Color := clRed
else Form1.GridEmployees.Cell[3,i].Color := clGreen;
end;
end;
begin
end.
Проект с примером: