Доступ к списку MemoView отчёта из программы

AlexGreG

Доброе время суток, программисты.

Подскажите пожалуйста, как добраться до всех MemoView отчёта из программы.

for i:=0 to MyRep.XXX.count-1 do
begin
  if MyRep.XXX[i] is TfrMemoView 
  then MyRep.XXX[i].font.color:=clGreen;
end;

Vano

Pages - список страниц
Objects - список объектов на данной страницы

Т.е. оббегать все объекты на всех страницах нужно так:

Pages[i].Objects[j]

AlexGreG

Пробую так:

procedure TForm1.Button1Click(Sender: TObject);
var view:TfrMemoView;
    i,j: integer;
begin
  for i:=0 to r.Pages.Count do
  begin
    for j:=0 to r.Pages[i].Objects.Count-1 do
    try
      view:=TfrMemoView(r.Pages[i].Objects[j]);
      view.font.Size:=8;
    except
      on e: exception do;  
    end;
  end;
  r.ShowReport;
end;

Ошибка доступа к памяти.

Danila

А так вот помоему нагляднее

procedure TForm1.Button1Click(Sender: TObject);
var
t: TfrMemoView;

begin
t := TfrMemoView(frReport1.FindObject('Memo5'));
if t <> nil then
t.Memo.Text:= ComboBox1.Text;

Danila

AlexGreG

Опа! Нашёл баг!

Нужно так:

procedure TForm1.Button1Click(Sender: TObject);
var view:TfrMemoView;
    i,j: integer;
begin
  for i:=0 to r.Pages.Count-1  {<<} do
  begin
    for j:=0 to r.Pages[i].Objects.Count-1 do
    try
      view:=TfrMemoView(r.Pages[i].Objects[j]);
      view.font.Size:=8;
    except
      on e: exception do;  
    end;
  end;
  r.ShowReport;
end;

AlexGreG

А помоему Danila не прчитал вопрос

Sergey P.

Да только тут переменная наверное не очень нужна, хотя это уже тонкости

view:=TfrMemoView(r.Pages[i].Objects[j]);
view.font.Size:=8;

=

TfrMemoView(r.Pages[i].Objects[j]).font.Size:= 8

А вот может, кто подскажет, в каком событии TfrReport можно
узнать непосредственное содержимое самого TfrMemoView. То есть, какой текст находится в Мемо после подстановки из DataSource, но еще до печати. Чтобы этот текст можно было изменить...
Я вот что то не нашел такой возможности...

Vano

Эх, молодость, молодость ...

Класс объекта кто проверять будет ?
Потом опять FR виноватым останется ?

procedure TForm1.Button1Click(Sender: TObject);
var view:TfrMemoView;
   i,j: integer;
begin
 for i:=0 to r.Pages.Count-1 do
   for j:=0 to r.Pages[i].Objects.Count-1 do 
    if r.Pages[i].Objects[j] is TfrMemoView then
     TfrMemoView(r.Pages[i].Objects[j]).font.Size:=8;
 r.ShowReport;
end;