Есть крос таблица
Никак не получается написать условие, чтобы строка "внос наличных" вместе с данными была другого цвета"
Как должно быть:
FastReport4
procedure Cross1OnPrintRowHeader(Memo: TfrxMemoView; HeaderIndexes, HeaderValues, Value: Variant);
begin
if HeaderValues[1] <> null then
if HeaderValues[1] = 'взнос наличных' then
Memo.Color := clRed;
end;
procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
if RowValues[1] <> null then
if RowValues[1] = 'взнос наличных then
gpiMay 24, 2020▼procedure Cross1OnPrintRowHeader(Memo: TfrxMemoView; HeaderIndexes, HeaderValues, Value: Variant);begin if HeaderValues[1] <> null then if HeaderValues[1] = 'взнос наличных' then Memo.Color := clRed;end;procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);begin if RowValues[1] <> null then if RowValues[1] = 'взнос наличных then Memo.Color := clRed;end;
Спасибо большое!!!! Всё получилось.
Комментарии
procedure Cross1OnPrintRowHeader(Memo: TfrxMemoView; HeaderIndexes, HeaderValues, Value: Variant);
begin
if HeaderValues[1] <> null then
if HeaderValues[1] = 'взнос наличных' then
Memo.Color := clRed;
end;
procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
begin
if RowValues[1] <> null then
if RowValues[1] = 'взнос наличных then
Memo.Color := clRed;
end;
Спасибо большое!!!! Всё получилось.