В компоненте Crossview переменные не работают

nikolay-almaty

Помогите, пожалуйста! В компоненте CrossView переменные не работают.
Причем, не выводится ни системная переменная, ни значение поля, ни собственные параметры!
В обработку события OnGetValue даже не попадаю при отладке, когда переменные в заголовках CrossView!

Как мне динамические значения в заголовки CrossView подставлять?
Заголовки требуется собственными переменными заполнять, которые начинаются на [LANG_

nikolay-almaty

Если так все и должно быть, подскажите хотя бы, пожалуйста,
как из события OnEndDoc достучаться до заголовков CrossView и заменить переменные на нужные значения?!

gpi

http://www.fast-report.com/ru/forum/index....;hl=Cornermemos
http://www.fast-report.com/ru/forum/index....;hl=Cornermemos

nikolay-almaty

А в каком событии компонента TfrxReport в Delphi мне написать этот код,
чтобы при предварительном просмотре уже было нужное значение?

TfrxCrossView(frxReport1.FindObject('Cross1')).CornerMemos[3].Text:='123456';

nikolay-almaty

Вот процедура, которая пытается заменить переменные в DBCrossView:

procedure TfmChildRep.CrossViewLang;
var
  i, ii, iPos1, iPos2: integer;
  sPar: string;
begin
  if frxReport.ComponentCount > 0 then
    for i := 0 to frxReport.ComponentCount - 1 do
      if frxReport.Components[i].ClassType = TfrxDBCrossView then
        with frxReport.Components[i] as TfrxDBCrossView do
        begin
          if Corner <> nil then
            if Corner.Count > 0 then
              for ii := 0 to Corner.Count - 1 do
              begin
                sPar := CornerMemos[ii].Text;
                iPos1 := Pos('[', sPar);
                iPos2 := Pos(']', sPar);
                if (iPos1 > 0) and (iPos2 > 0) and (iPos2 > iPos1) then
                begin
                  sPar := Copy(sPar, iPos1 + 1, iPos2 - iPos1 - 1);
                  if fmMain.IsRepParamLang(sPar) then
                    TfrxMemoView(CornerMemos[ii]).Text := GetParValueLang(sPar); // <---- Здесь Access Violation. Свойство Text в дизайнере отчета не вижу!
                end;
              end;
        end;
end;

Вызываю процедуру в Delphi в событии OnEndDoc для компонента TfrxReport
Access Violation вылетает на строке где пробую заменить свойство Text для TfrxMemoView.
Посмотрел в дизайнере отчета - свойства Text не видно вообще... Как можно заменить?

gpi

Менять нужно перед началом формирования отчёта (ShowReport, PrepareReport)
При вызове OnEndDoc отчёт уже полностью сформирован. Тогда нужно менять TfrxReport.PreviewPages

nikolay-almaty

Если вызываю свою процедуру перед ShowReport, тогда TfrxDBCrossView.Corner = NIL ((((

nikolay-almaty

А если пойти во второму пути и менять PreviewPages, как обойти циклом компоненты на странице просмотра отчета, чтобы найти CrossView?
У меня frxReport.PreviewPages.Page.ComponentCount = 0 в событии OnEndDoc

gpi

написал:

Если вызываю свою процедуру перед ShowReport, тогда TfrxDBCrossView.Corner = NIL ((((

Используйте
for j := 0 to 3 + cross.RowLevels - 1 do

написал:

А если пойти во второму пути и менять PreviewPages, как обойти циклом компоненты на странице просмотра отчета, чтобы найти CrossView?

В превью кросса нет. Есть набор TfrxMemoVew

nikolay-almaty

Ураааа! Спасибо большое!!! Получилось!

Почему в цикле по CornerMemos[] прибавляется 3 да еще и к RowLevels?

     for j := 0 to 3 + cross.RowLevels - 1 do
        sPar := cross.CornerMemos[j].Text;

Как мне также заменить итоги:

     // Заголовки
     for j := 0 to 3 + cross.RowLevels - 1 do
       cross.CornerMemos[j].Text := ReplaceCrossParam(cross.CornerMemos[j].Text);

     // Итоги строки
     for j := 0 to ??? do // <--------------
       cross.RowTotalMemos[j].Text := ReplaceCrossParam(cross.RowTotalMemos[j].Text);

     // Итоги колонки
     for j := 0 to ??? - 1 do // <--------------
       cross.ColumnTotalMemos[j].Text := ReplaceCrossParam(cross.ColumnTotalMemos[j].Text);

nikolay-almaty

Спасибо большое! Все получилось!
Вопрос можно закрывать.