Steema Central

Steve Maughan wrote:Hi,

I'm having problems exporting Charts as Metafiles. See video below:

http://screencast.com/t/uEkKdiSz2M

I've attached the small problematic code. This will not compile on my system. In other code I get an AV when I set the Enhanced property to FALSE.

Thanks,

Steve

P.S. I'm running Delphi XE4 under Windows 8 64 bit.

procedure TForm1.Button1Click(Sender: TObject);
var
  tmp:  TEMFExportFormat;
begin
  tmp:= TEMFExportFormat.Create;
  try
    tmp.Panel := Chart1;
    tmp.Enhanced := False; //    <== ERROR!
    tmp.SaveToFile('Chart1EMF.' + tmp.FileExtension);
  finally
    tmp.Free;
  end;
end;

Steve Maughan wrote:I've spent some more time trying to find the problem. In doing so I've come up with another error.

In the attached code a chart is created, set to a specific size and copied to the clipboard as a enhanced metafile. Here is the code:

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var
  tmp:  TEMFExportFormat;
  c: TChart;
begin
  c := TChart.Create(nil);
  c.Width := 1000;  //    <=== Height and width of new chart are not respected!
  c.Height := 500;
  CopyChart(Chart1, c);
  c.Refresh;
  tmp:= TEMFExportFormat.Create;
  try
    tmp.Enhanced := True; //    <== ERROR if set to false
    tmp.Panel := c;
    tmp.Width := c.Width;
    tmp.Height := c.Height;
    Clipboard.Clear;
    tmp.CopyToClipboard;
  finally
    tmp.Free;
    c.Free;
  end;
end;

Similar code has worked with previous versions.

The errors are as follows:

- If tmp.Enhanced is set to False there is an AV
- The Enhanced Metafile which is copies to the clipboard does not have the right weight and width

I'd appreciate your comments, and if there is a bug, which I believe there is, also a fix!

Thanks,

Steve

P.S. The code now compiles on my machine. I needed to add a "vcltee." before a unit.

Steve Maughan wrote:My problem is the size of the image copied to the clipboard. It isn't the size of the chart. In the example given in the code I set the chart size to 1000 x 500. The image which is copied to the clipboard is 641 x 319. This is a bug. In previous versions the image copied was the same as the Chart.

uses TeeEmfOptions, ClipBrd;

procedure TForm1.Button1Click(Sender: TObject);
var
  tmp:  TEMFExportFormat;
begin
  Chart1.Width:=1000;
  Chart1.Height:=500;
  tmp:= TEMFExportFormat.Create;
  try
    tmp.Panel := Chart1;
    tmp.Enhanced := false;
    Clipboard.Clear;
    tmp.CopyToClipboard;
  finally
    tmp.Free;
  end;
end;

Steve Maughan wrote:My application has exported chart of the correct size using XE3 and TChart 2012

Steve Maughan wrote: I could have sworn previous versions gave a chart of the exact dimensions. However, I cannot find a version which does this. Apologies for saying it did!

So I can only resort to asking it to be added to future versions. It's the only logical behavior.