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

Nimua

Здравствуйте,

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

Вот в программе
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;

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

gpi

Попробуйте

procedure Cross1OnBeforePrint(Sender: TfrxComponent);
begin
   Cross1Corner3.Text := MyRowsHeader;  
end;

Nimua

gpi написал: »

Попробуйте

procedure Cross1OnBeforePrint(Sender: TfrxComponent);
begin
   Cross1Corner3.Text := MyRowsHeader;  
end;

Не работает : (( я не понимаю. Cross1Corner1 присваивается нормально, Cross1Corner3 ничего. причем если даже одну и ту же переменную присваивать. : ((

Nimua

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

pig

Вот модифицированный отчёт из демо (FR4.4.4)

Nimua

Я использую не TfrxDBCrossReport, а TfrxCrossReport, заполняю его в событии frxReportBeforePrint,
все ок. а заголовки уголовые в OnBeforePrint для Cross1Corner3 и Cross1Corner1, для первого не работает, для второго все ок

gpi

Я же посоветовал в скрипте использовать

procedure Cross1OnBeforePrint(Sender: TfrxComponent);
begin
    Cross1Corner3.Text:='123456';                                  
end;

Смотрите 63.zip
В Delphi используйте

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

Nimua

To gpi:
Я видела в 63.zip, сделала тоже самое в обработки OnBeforePrint для Cross1Corner3, Cross1Corner3.Text присвоила константе. но все равно ничего не изменилось
а вот код

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

сработал : )) Спасибо вам огромное : ))

gpi

написал:

сделала тоже самое в обработки OnBeforePrint для Cross1Corner3

а в OnBeforePrint для Cross1 пробовали?

Nimua

Да у меня было 2 обработчик для углов, в том то и дело что тоже самое для одного (верхнего) работало, а для бокового не работало
там оставался тот же текст, который был написан в дизайнере

Извините предыдущее сообщение недочитала. и не досмотрела, пробовала в обработчике для угла, сейчас попробую для отчета

Nimua

В обработчике OnBeforePrint для отчета работает