Cross отчет заголовки в углу
Здравствуйте,
У меня есть кросс-отчет формируемый динамически, одна проблема не могу привоить название ячейкам которые в углу, это заголовки колонок и заголовок строк.
Пытаюсь через скриптовые переменные.
Вот в программе
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;
Одна задается, а вторая нет
У меня есть кросс-отчет формируемый динамически, одна проблема не могу привоить название ячейкам которые в углу, это заголовки колонок и заголовок строк.
Пытаюсь через скриптовые переменные.
Вот в программе
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;
Одна задается, а вторая нет
Комментарии
Не работает : (( я не понимаю. Cross1Corner1 присваивается нормально, Cross1Corner3 ничего. причем если даже одну и ту же переменную присваивать. : ((
все ок. а заголовки уголовые в OnBeforePrint для Cross1Corner3 и Cross1Corner1, для первого не работает, для второго все ок
В Delphi используйте
Я видела в 63.zip, сделала тоже самое в обработки OnBeforePrint для Cross1Corner3, Cross1Corner3.Text присвоила константе. но все равно ничего не изменилось
а вот код
сработал : )) Спасибо вам огромное : ))
там оставался тот же текст, который был написан в дизайнере
Извините предыдущее сообщение недочитала. и не досмотрела, пробовала в обработчике для угла, сейчас попробую для отчета