• Registered: 2015-03-18
  • Posts: 94

Topic: Условие в таблице

Приветствую. Подскажите пожалуйста, как подсветить строку в таблице если Resault = положительному числу в один цвет, если отрицательному числу в другой?

Post's attachments

Attachment icon 2016-04-01_20-49-43.png 33.02 kb, 241 downloads since 2016-04-01 

  • Registered: 2016-03-12
  • Posts: 73

Re: Условие в таблице

Попробуйте создать событие OnChange для вашего грида

procedure Form1_TableGrid1_OnChange (Sender: string);
var
    i,c,f,r: integer;
begin
    c := Form1.TableGrid1.RowCount - 1;
    f := Form1.TableGrid1.Columns.Count - 1;
    for i := 0 to c do
begin
if Form1.TableGrid1.Cells[4,i]>=0
THEN
for r := 0 to f do
Form1.TableGrid1.Cell[r,i].Color := clGreen;
if Form1.TableGrid1.Cells[4,i]<0
THEN
for r := 0 to f do
Form1.TableGrid1.Cell[r,i].Color := clRed;
end;
end;

За правильность не ручаюсь, сам начинающий smile

  • Registered: 2015-03-18
  • Posts: 94

Re: Условие в таблице

В этой строке ошибка. Правильно вот так

if Form1.TableGrid1.Cells[4,i]>'0'
  • Registered: 2015-03-18
  • Posts: 94

Re: Условие в таблице

Спасибо за помощь