Добавление band-ов в run-time

Комментарии

• -=Den=-

  March 2006 отредактировано 01:17

  Если вообще для всех, то так:

  var
  i,j,k:integer;
  Memo:TfrxMemoView;
  begin
  
  for i := 0 to frxReport1.PagesCount -1 do
  for j := 0 to frxReport1.Pages[i].Objects.Count - 1 do
  for k := 0 to TfrxComponent(frxReport1.Pages[i].Objects[j]).Objects.Count -1 do
  begin
  Memo:=TfrxMemoView.Create(TfrxComponent(frxReport1.Pages[i].Objects[j]).Objects[k]);
   with Memo do begin
     CreateUniqueName;
     Align:=baClient;
     HAlign:=haCenter;
     VAlign:=vaCenter;
     SetBounds(0,0,100,100);
     Font.Color:=$9090ff;
     Font.Size:=100;
     Text:='Òåêñò'
   end;
  end;
  
• KiTE

  March 2006 отредактировано 01:17

  Я, наверное, неправильно сформулировал вопрос.
  Нужно чтобы этот текст добавлялся на каждую страницу и распологался поверх остальных бендов.
• -=Den=-

  March 2006 отредактировано 01:17

  Тогда так:

  var
  i,j:integer;
  Memo:TfrxMemoView;
  begin
  for i := 0 to frxReport1.PagesCount -1 do
  for j := 0 to frxReport1.Pages[i].Objects.Count - 1 do
  begin
  Memo:=TfrxMemoView.Create(frxReport1.Pages[i].Objects[j]);
  with Memo do begin
    CreateUniqueName;
    Align:=baClient;
    HAlign:=haCenter;
    VAlign:=vaCenter;
    Font.Color:=$9090ff;
    Font.Size:=100;
    Text:='Òåêñò'
  end;
  end;
  
• KiTE

  March 2006 отредактировано March 2006

  Опять не то.
  Так он накладывается на каждый объект отчета, а мне нужно всего один раз на страницу. У меня получается так, что это Memo ложится под Memo-полями Data-бендов, а нужно чтобы поверх них.
  У меня получается так, а нада так
  
• -=Den=-

  March 2006 отредактировано 01:17

  var
  i:integer;
  Memo:TfrxMemoView;
  begin
  frxReport1.PrepareReport();
  for i:= 0 to frxReport1.PreviewPages.Count -1 do
  begin
   Memo:=TfrxMemoView.Create(frxReport1.PreviewPages.Page[i]);
   with Memo do begin
     CreateUniqueName;
     Rotation := 315;
     SetBounds(round((frxReport1.PreviewPages.Page[i].Width - 300)/2),round((frxReport1.PreviewPages.Page[i].Height - 400)/2),300,400);
     Font.Color:=$9090ff;
     Font.Size:=100;
     Text:='Òåêñò'
   end;
  end;
   frxReport1.ShowPreparedReport;
  
  end;
  
• KiTE

  March 2006 отредактировано 01:17

  Огромное спасибо за вариант, получилось.
  Только есть один неприятный момент при формировании отчета на печать эта надпись исчезает. Получается эффект недоработанной программы.
  
  В дизайнере при вызове контекстного меню на объекте есть такие процедуры как "На передний план" и "На задний план". Как это реализовать в rum-time.
  
• -=Den=-

  March 2006 отредактировано 01:17

  var
  i,j:integer;
  memo1:TfrxMEmoView;
  Band:TfrxOverlay;
  begin
  for i := 0 to frxReport1.PagesCount -1 do
  begin
  Band := TfrxOverlay.Create(frxReport1.Pages[i]);
  Memo1:=TfrxMemoView.Create(Band);
  Band.CreateUniqueName;
  Band.PrintOnTop := True;
  Band.SetBounds(0,0,round(frxReport1.Pages[i].Width),round(frxReport1.Pages[i].Height));
  with Memo1 do begin
   CreateUniqueName;
   Align:=baClient;
   HAlign:=haCenter;
   VAlign:=vaCenter;
   Rotation := 315;
   Font.Color:=$9090ff;
   Parent.Objects.Remove(Memo1);
   Parent.Objects.Add(Memo1);
   Font.Size:=100;
   Text:='TEXT'
  end;
  end;
  frxReport1.ShowReport();
  end;