Вопросы по Tfrxdbcrossview

mvb · July 2012

1. Не работает код:

procedure DBCross1Row0OnAfterData(Sender: TfrxComponent);
begin
     TfrxMemoView(Sender).GapX := 2 + <qMain."LVL"> * 15;             
end;

где <qMain."LVL"> возвращает величину сдвига. Для обычных мемок это работает на "ура".

2. Мемо, которая является Corner'ом (самая левая верхняя), не "видит" выражений, т.е. если написано [q], то так и выводит. Установка AllowExpressinos ничего не дает (и скидывается).

Что тут можно сделать?

Yushinin · July 2012

Обрабатывать у DBCross OnBeforePrint, обращаясь к Corner напрямую по имени:

procedure DBCross1OnBeforePrint(Sender: TfrxComponent);
begin
  DBCross1Corner3.GapX:=10;
  DBCross1Corner3.Text:=FloatToStr(DBCross1Corner3.GapX);      
end;

Похоже, что только там можно заполнить Corner.
Остальные обработчики Corner просто не вызываются.

PS: Очень похоже на баг.

Вопросы по Tfrxdbcrossview

Комментарии

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