OnBeforePrint - не понял

pasko · October 2005

Есть мноого полей, в которых надо -1 заменить на х
Почему это работает

procedure Memo61OnBeforePrint(Sender: TfrxComponent);
begin
  if value='-1' then
    Memo61.text:='x';
end;

А это нет

procedure Memo61OnBeforePrint(Sender: TfrxComponent);
begin
  if value='-1' then
    TfrxMemoView(Sender).text:='x';
end;

Неужели надо писать для каждого поля отдельно!?

dron-s · October 2005

pasko
можно попробывать через перебор компонентов

for i:=0 to ComponentCount-1 do
 if Components[i] is TfrxMemoView then
    begin
      (Components[i] as TfrxMemoView).lines.add('dfd');
    end;

но как это реализовать в скрипте фаста не т пока представлений

vlad_galaxy · October 2005

Попробуйте использовать событие

procedure Memo61OnAfterData(Sender: TfrxComponent);
begin
SetXValue(  TfrxMemoView (Sender ));
end;

procedure SetXValue( m : TfrxMemoView );
begin
if m.Value = '-1' then
  m.Text := 'x';
end;

vlad_galaxy · October 2005

написал:

Почему это работает

CODE
procedure Memo61OnBeforePrint(Sender: TfrxComponent);
begin
if value='-1' then
Memo61.text:='x';
end;

Вообще то, по утверждениям разработчиков (
http://www.fast-report.com/en/forum/?p=/discussion/2259
), мемка Memo61 в рантайме в скрипте недоступна и такая запись должна где-то чего-то портить

pasko · October 2005

2vlad_galaxy
Спасибо! Работает.

OnBeforePrint - не понял

Комментарии

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