TAdvGDIPChartView

VCL TMS VCL Chart
1

Hello!

I am trying to Export a TAdvGDIPCharView pane to EMF, using this function:

wmf:=Chart.createmetafile(chart.Width,chart.height);
wmf.savetofile('c:\temp\testwmf.emf');
wmf.free;

There are two issues:

The file contains the complete chart as awaited, but also a background and a border that has been added while using the CreateMetaFile function.

This is the original view as Delphi form:

image
image908×430 63.9 KB

After using the CreateMetafile it looks like this:

image
image908×430 72.8 KB

As you can see there is a small border around the pane which has also been exported to EMF.

If I open the emf file in an emf viewer, I get the following result:
image

you can see the pane in the upper left corner of the file. But there is also a background that is almost double in size.

Please advise what I can do to avoid both issues.

Best
Thore Simon

2

I'm able to reproduce this issue and will look into this as soon as possible

3

Thank you, Pieter!
Thore

4

any news about this issue?

6

We'll investigate this as soon as possible. There were other urgencies that needed attention.

7

Hi,

We have tested this with a default chart on the form and are not able to reproduce this. Are you sure the DPI settings of your application match the width & height of the chart?

8

I am not sure what you mean, Pieter. May it be helpful to send you the sources?
btw, it is Delphi 2007.

9

Yes, a sample would be helpful

10

Pieter, I prepared a zip file containing the project.

ChartTMS.zip (4.6 KB)

11

Hi,

thank you for the sample. We have tested this here but don't see issues with the size.

image
image1522×807 132 KB

I suppose this could be related to DPI settings of your project.

image
image965×716 43.7 KB

If I change the awareness to None, I get the following output:

image
image1522×807 122 KB

12

Pieter, yes, this might be the cause. Unfortunately, there is no manifest editor in Delphi 2007.

If I create the manifest file manually and set dpiaware=true, the program starts like this:

image
image1868×882 63.2 KB

the chart now looks different, much thinner and cropped.

but the wmf export seems to work correctly,

image
image2570×1500 189 KB

Any ideas?

13

Opening your sample in Delphi 11 we can see this:

image
image1167×553 20.3 KB

So it seems to be a high DPI / initialization issue in Delphi 2007. I noticed the size of the Y-Axis is forced to 100 pixels independant of the DPI, so you'll need to make sure the Y-Axis has the correct size as well when setting your application to be aware of DPI. The same applies to the X-Axis. The best approach would be to set AutoSize to true.

14

Hi Pieter, thank you for this tips. I now set the AutoSize for yaxis = true and get a much better result.

image
image1900×864 70.6 KB

I cannot set both axis to autosize because I am painting the x-axis values by function and the years will then be displayed out of bounds. I don't have any idea how to put an extra offset to the bottom of the pane.

As you can see the y-axis values are painted directly to the y-axis without any space. This doesn't look good so I changed ValueFormat := '%.0n' to ValueFormat := '%.0n ' with two blank spaces behind the "n". This leads to:

image
image1898×866 64.8 KB

Now it looks almost fine to me, but there is still the frame around the whole pane which is added when I use the chart.createmetafile command. I found out that this frame is also added if I use chart.setfocus. It seems to be the focus rectangle. How can I avoid this focus frame? The chart should look like this at the end

image
image1658×754 52.7 KB

because I want to print it in our documents without any frame.

Best,
Thore

15

Hi,

You can call Chart.DoExit; to remove the focus

16

Hi,

this works well, thank you! Great support!

As I just want to print the charts in a document, is there a way to create it without having a TForm?

17

You can try passing nil as an owner, but it could be possible that the canvas needs a handle to paint and you will receive an error.