Topic: Условие в таблице
Приветствую. Подскажите пожалуйста, как подсветить строку в таблице если Resault = положительному числу в один цвет, если отрицательному числу в другой?
My Visual Database → Russian → Условие в таблице
Приветствую. Подскажите пожалуйста, как подсветить строку в таблице если Resault = положительному числу в один цвет, если отрицательному числу в другой?
Попробуйте создать событие 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;
За правильность не ручаюсь, сам начинающий
В этой строке ошибка. Правильно вот так
if Form1.TableGrid1.Cells[4,i]>'0'
Спасибо за помощь
My Visual Database → Russian → Условие в таблице
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi