DB Cross-tab

aseroff

Есть запрос, который отображается в DB Cross-tab'е.
Необходимо клеточки, на которых есть данне, закрасить цветом, остальные оставить незакрашенными и пустыми.
Данные на пересечении Cross-tab'а символьные.

Как такое можно сделать?

gpi

procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
begin
if Trim(VarToStr(Value))<>'' then
Memo.Color:=clRed
else
Memo.Color:=clNone;
end;

aseroff

Спасибо! Работает!
Я все пытался поставить условие в дизайнере Cross-tab'а, но там даже это условие не работает.