• dates
  • New member
  • Offline
  • Registered: 2015-03-16
  • Posts: 9

Topic: Условие цвета ячейки (в TableGrid)

1. Можно ли реализовать смену цвета ячейки при условии нахождения в ней определенного ключевого слова в совокупности с другим текстом, числом?

Form1.GridEmployees.Cells[3,i] = 'Yes'

Как допустим в стандартном примере выше, но используя Yes+что угодно. То есть, если в строке будет "Yes, but none of those pics", или "What is a yes man?", или что угодно еще, но содержащее yes; то произойдет смена цвета ячейки.


2. Как можно не закрашивать ячейку если условие не выполняется?

if Form1.GridEmployees.Cells[3,i] = 'Yes ' then Form1.GridEmployees.Cell[3,i].Color := clRed
             else Form1.GridEmployees.Cell[3,i].Color := clGreen;

То есть после else не грин, а обычная ячейка таблицы.

  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Условие цвета ячейки (в TableGrid)

dates wrote:

2. Как можно не закрашивать ячейку если условие не выполняется?

if Form1.GridEmployees.Cells[3,i] = 'Yes ' then Form1.GridEmployees.Cell[3,i].Color := clRed
             else Form1.GridEmployees.Cell[3,i].Color := clGreen;

То есть после else не грин, а обычная ячейка таблицы.

else Form1.GridEmployees.Cell[3,i].Color := clWhite;

Не боги горшки лепят!
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Условие цвета ячейки (в TableGrid)

1.

if Pos('Yes', frmAddInspection.TableGrid1.Cells[3,i]) > 0 then ....

2. Просто убрать else

if Form1.GridEmployees.Cells[3,i] = 'Yes ' then Form1.GridEmployees.Cell[3,i].Color := clRed;
Dmitry.

4 Reply by dates (edited by dates 2015-03-17 12:36:00)

  • dates
  • New member
  • Offline
  • Registered: 2015-03-16
  • Posts: 9

Re: Условие цвета ячейки (в TableGrid)

1. М, что есть frmAddInspection - как реализуется? Выполнение скрипта на нем и останавливается.

Вопрос снят. Понял, чет ступил совсем.