Working with BCB6 and FR3.04
In an application, the user makes some selections which result in a metafile. The design of the report includes a TfrxPictureView to display the metafile. This works well.
After closing the preview, the user may change part of its initial selections to generate a new report (using the same FR3 file and the same frxReport). Though the program has produced a revised metafile (under the same name), when the report appears, it still shows the old metafile, despite the fact that the frxReport is Cleared and the FR3 loaded again. The FR3 does not include the metafile assignment, which is done in the BCB code.
I have tried, in the BCB code, to remove the picture from the frxPictureView before reloading the updated metafile without success.
Here is my code
Full Version: Updating the contents of frxPictureView
| CODE |
| Chart->Visible = true; String WmfFile = ExtractFilePath(Application->ExeName) + "Chart.wmf"; // these 2 following lines have no effect... HENHMETAFILE hMetaFile = GetEnhMetaFile(WmfFile.c_str()); DeleteEnhMetaFile(hMetaFile); Chart->SaveToMetafileEnh(WmfFile); Chart->Visible = false; String DesignFile = ExtractFilePath(Application->ExeName) + "TempChart.fr3"; frxReport1->Clear(); frxReport1->LoadFromFile(DesignFile); TfrxPictureView* v = (TfrxPictureView*)frxReport1->FindObject("Picture1"); v->Picture->LoadFromFile(WmfFile); frxReport1->PrepareReport(false); frxReport1->ShowPreparedReport(); |
Any idea to solve this problem?
Happy new year! Bonne année! Glückliches neues Jahr!
Sitting with just the same problem! No solution yet? I'm sitting with D7+FR3.08
Cheers
/Johan
Cheers
/Johan
This is how I got it to work nicely...
| CODE |
| [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
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;
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;
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.
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.
| CODE |
| 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?
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.
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;
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;
in the previous example you can clear at the pictureviewlevel.
pv.clear;
pv.clear;
This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.