Cross отчет заголовки в углу

отредактировано 16:30 Раздел: FastReport 4.0
Здравствуйте,

У меня есть кросс-отчет формируемый динамически, одна проблема не могу привоить название ячейкам которые в углу, это заголовки колонок и заголовок строк.
Пытаюсь через скриптовые переменные.

Вот в программе
frxReportPointIncome.Script.Variables := AnsiUpperCase(cmbbxColumnForReport.Text);
frxReportPointIncome.Script.Variables := AnsiUpperCase(cmbbxRowForReport.Text);

MyRowsHeader

ColumnsHeader

Вот в скрипте отчета

procedure Cross1OnPrintColumnHeader(Memo: TfrxMemoView; HeaderIndexes, HeaderValues, Value: Variant);
begin
if (HeaderIndexes[1] <> null) then
begin
if Value = 'Общие итоги' then
begin
Memo.ParentFont := false;
Memo.Font.Style := [fsBold];
end
end;
end;


procedure Cross1Corner3OnBeforePrint(Sender: TfrxComponent);
begin
TfrxMemoView(Sender).Text := MyRowsHeader;
end;

procedure Cross1Corner1OnBeforePrint(Sender: TfrxComponent);
begin
TfrxMemoView(Sender).Text := ColumnsHeader;
end;

procedure Cross1Corner3OnAfterData(Sender: TfrxComponent);
begin
TfrxMemoView(Sender).Text := MyRowsHeader;
end;

procedure Cross1OnPrintRowHeader(Memo: TfrxMemoView; HeaderIndexes, HeaderValues, Value: Variant);
begin
if Value = 'Row' then
Value := MyRowsHeader;
end;

Одна задается, а вторая нет :)

Комментарии

  • gpigpi
    отредактировано October 2007
    Попробуйте
    procedure Cross1OnBeforePrint(Sender: TfrxComponent);
    begin
       Cross1Corner3.Text := MyRowsHeader;  
    end;
    
  • отредактировано 16:30
    gpi написал: »
    Попробуйте
    procedure Cross1OnBeforePrint(Sender: TfrxComponent);
    begin
       Cross1Corner3.Text := MyRowsHeader;  
    end;
    


    Не работает : (( я не понимаю. Cross1Corner1 присваивается нормально, Cross1Corner3 ничего. причем если даже одну и ту же переменную присваивать. : ((
  • отредактировано 16:30
    Подскажите может это глюк какой-нибудь? что-делать? заголовока в отчете нет, вроде бы и не очень существенно но очень неприятно
  • pigpig г. Волноваха Донецкой области Украина
    отредактировано October 2007
    Вот модифицированный отчёт из демо (FR4.4.4)
  • отредактировано 16:30
    Я использую не TfrxDBCrossReport, а TfrxCrossReport, заполняю его в событии frxReportBeforePrint,
    все ок. а заголовки уголовые в OnBeforePrint для Cross1Corner3 и Cross1Corner1, для первого не работает, для второго все ок
  • gpigpi
    отредактировано October 2007
    Я же посоветовал в скрипте использовать
    procedure Cross1OnBeforePrint(Sender: TfrxComponent);
    begin
        Cross1Corner3.Text:='123456';                                  
    end;
    
    Смотрите 63.zip
    В Delphi используйте
    TfrxCrossView(frxReport1.FindObject('Cross1')).CornerMemos[3].Text:='123456';
    
  • отредактировано October 2007
    To gpi:
    Я видела в 63.zip, сделала тоже самое в обработки OnBeforePrint для Cross1Corner3, Cross1Corner3.Text присвоила константе. но все равно ничего не изменилось :)
    а вот код
    TfrxCrossView(frxReport1.FindObject('Cross1')).CornerMemos[3].Text:='123456';
    

    сработал : )) Спасибо вам огромное : ))
  • gpigpi
    отредактировано 16:30
    написал:
    сделала тоже самое в обработки OnBeforePrint для Cross1Corner3
    а в OnBeforePrint для Cross1 пробовали?
  • отредактировано October 2007
    Да у меня было 2 обработчик для углов, в том то и дело что тоже самое для одного (верхнего) работало, а для бокового не работало :)
    там оставался тот же текст, который был написан в дизайнере

    Извините предыдущее сообщение недочитала. и не досмотрела, пробовала в обработчике для угла, сейчас попробую для отчета
  • отредактировано 16:30
    В обработчике OnBeforePrint для отчета работает :)

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

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.