Раскраска ячеек в отчете

Farseer · April 2017

Здравствуйте.
Создаю отчет в виде таблицы, который заполняю данными из массива (все как в примере Demos\BCB Demos\PrintArray). В качестве источника данных использую TfrxUserDataSet. Все работает, проблема в одном - как раскрасить ячейки, в которых данные выводятся, в зависимости от того, какие это данные. Как раскрашивать в принципе понимаю - в событии OnBeforePrint задаю нужный цвет ячейки. Непонятно, как сделать проверку данных - например если значение в ячейке больше нуля, сделать ее зеленой - как сделать эту проверку на ноль?

gpi · April 2017

procedure Memo3OnAfterData(Sender: TfrxComponent);
begin
  if Value = 5 then Memo3.Color := clRed else Memo3.Color := clNone;                                                                                                                                                        
end;

vochomurka · November 2023

попробуем развернуть данный вопрос:

1) правильно ли я понимаю, что если у меня в поле значение цвета, то можно задать это значение цвету поля?

TfrxMemoView(Sender).Color := Value;

2) и как прикрутить такой обработчик к динамически создаваемому полю?

aBand := AReport.FindObject(ABandName) as TfrxBand; 
aMemo := TfrxMemoView.Create(ABand);

vochomurka · November 2023

И сам же отвечу. В разделе Code отчета создаем обработчик:

procedure color_AfterData(Sender: TfrxComponent);
begin
 TfrxMemoView(Sender).Color := Value;
 TfrxMemoView(Sender).Text := '';               
end;

в программе заводим поле:

aBand := AReport.FindObject(ABandName) as TfrxBand; 
aMemo := TfrxMemoView.Create(ABand);
if  aMemo.DataField = 'color'  then
  aMemo.OnAfterData := 'color_AfterData';

Раскраска ячеек в отчете

Комментарии

Оставить комментарий