Updating the contents of frxPictureView

Comments

• JohanFr

  January 2005 edited 9:14AM

  Sitting with just the same problem! No solution yet? I'm sitting with D7+FR3.08
  
  Cheers
  /Johan
  
• JohanFr

  January 2005 edited January 2005

  This is how I got it to work nicely...
  

  ? 
   ? [B]var[/B]
    c: TfrxComponent;
  
    ...
    ...
  
   ? // Update diagram picture
   ? currchart.SaveToMetafile('stg.wmf');
   ? frxReport1.LoadFromFile('stg_history.fr3');
   ? c := frxReport1.FindObject('Picture1');
   ? (c as TfrxPictureView).Picture.Metafile.LoadFromFile('stg.wmf');
  
   ? // Show report
   ? sqlTemp.Prepare;
   ? sqlTemp.Open;
   ? frxReport1.ShowReport;
   ? sqlTemp.Close;
  
   ? // Delete wmf-file
   ? DeleteFile('stg.wmf');
  

  
  Cheers
  Johan
• gordk St.Catherines On. Canada.

  January 2005 edited 9:14AM

  here is a sample of i handle it in delphi you will have to translate to bcb
  
  new method for fr3
  
  use a pictureview object instead. and the obp event of report component.
  procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
  begin
  if Sender.Name='Picture1'then
  TfrxPictureView(Sender).Picture.Assign(form2.Chart1.TeeCreateMetafile(False,
  Rect(0, 0, Round(Sender.Width), Round(Sender.Height))));
  end;
  
  
• BJL Brussels, Belgium

  January 2005 edited 9:14AM

  Thank you Gord.
  Using TeeCreateMetaFile is handy when it is not necessary to keep the metafile on disk.
  In my case, I could not solve the problem by moving the code to the Report obp.
  I have tried to add the frxPictureView at run time, hoping to remove it after closing the preview. But I could not find a way to remove the picture view object.
  My present code is the following with the same problem as explained in the first message.

   frxReport1->Clear();
    frxReport1->LoadFromFile(DesignFile);
    TfrxChild* C = (TfrxChild*)frxReport1->FindObject("Child1");
    TfrxPictureView* v = new TfrxPictureView((TfrxChild*)C);
    v->Align = baWidth;
    v->Width = C->Width;
    v->Height = C->Height;
    v->Center = true;
    v->KeepAspectRatio = false;
    v->Picture->Assign(Chart->TeeCreateMetafile(false, Rect(0, 0, v->Width, v->Height)));
    frxReport1->PrepareReport(false);
    Chart->Visible = false;
    frxReport1->ShowPreparedReport();
    delete v;// this line is not accepted and leads to an error.
  

  However, when using the editor of the PictureView object, there is a CLEAR button which removes the pisture at design time. Which function is this button using?
• BJL Brussels, Belgium

  January 2005 edited 9:14AM

  Looking more closely, I found that the code above solves the problem in keeping the first graph and adding the new on a new page.
• gordk St.Catherines On. Canada.

  January 2005 edited 9:14AM

  frxreport1->Preparereport;
  frxReport1->ShowPreparedReport();
  delete v;// this line is not accepted and leads to an error.
  of course as you are beyond the design stream after calling
  preparereport.
  the code i gave you assumes an empty pictureview object.
  and by using the external obp event will always load whatever is current when encountered in the report.
  
  for initial clearing for example of a pictureview object in the report
  try something like
  pv:tfrxpictureview;
  
  frxreport1.loadfromfile('blah');
  pv := frxreport1.finobject('Picture1');
  pv.picture.clear;
  or pv.picture := nil;
  
  
  
• gordk St.Catherines On. Canada.

  January 2005 edited 9:14AM

  in the previous example you can clear at the pictureviewlevel.
  pv.clear;