Is it right to add script from code like that?

longnight

FfrxReport.ScriptText.Add('procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant); '+
' begin '+
' Memo.AllowExpressions := false; '+
' end; ');
FfrxReport.ScriptText.Add('procedure Cross1OnPrintColumnHeader(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant); '+
' begin '+
' Memo.AllowExpressions := false; '+
' end; ');
FfrxReport.ScriptText.Add('procedure Cross1OnPrintRowHeader(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant); '+
' begin '+
' Memo.AllowExpressions := false; '+
' end; ');
FCross.OnPrintCell := 'Cross1OnPrintCell';
Fcross.OnPrintRowHeader := 'Cross1OnPrintRowHeader';
FCross.OnPrintColumnHeader := 'Cross1OnPrintColumnHeader';

In order to disable the expressions, I add CrossView's OnPrintCell Event like that. But it dosen't work.

Is it right to add script from code like that?

AlexTZ

A script should contain the 'begin end.'