Steema Central

Posted: **Tue May 12, 2009 5:15 pm**

Hey,
Since TeeSaveToPDFFile is not valid with Delphi 2009 (and TeeChart Pro 8.04), I try to export my graphs from QuickReport 5 with Gnostice Technologies...
I have installed QRChart (which is a little hard)! After that, I have created a form containing a QuickRep component and a QRChart. Her is my code:

Code: Select all

procedure TForm1.SpeedButtonPDFClick(Sender: TObject);
begin
  if SaveDialog1.Execute
  then
  begin
//    TeeSaveToPDFFile(Chart1, SaveDialog1.FileName, Chart1.Width, Chart1.Height);
    Screen.Cursor := crHourGlass;
    Form2 := TForm2.Create(nil);
    try
      Form2.QRChart1.SetChart(Chart1);
//      Form2.QuickRep1.PreviewModal;
      Form2.gtPDFEngine1.FileName := SaveDialog1.FileName;
      Form2.gtQRExportInterface1.RenderDocument(Form2.QuickRep1, False);
    finally
      Form2.Release;
      Screen.Cursor := crDefault;
    end;
  end;
end;

Chart1 has only a PieSeries. Everything is perfectly working with this code, excepted a strange problem with the value colors.
The values are inserted with the AddPie method and only AValue and ALabel parameters (not AColor in order to use the default color).
Graphs with 1 or 2 values are ok, but another with 9 values is not correctly copied: colors became (yellow, blue, white, gray, ...) instead of (red, green, yellow, blue, ...)!
This issue is not coming from the PDF export because it occurs also in a preview of the report!
Is it a bug?
--
Alain

Posted: **Wed May 13, 2009 7:52 am**

Hi Alain,

I've tested it and I see the preview with the good colors (dark blue, orange, red, soft blue, marine blue, dark green,...) of the opera palette.
I used this code and a teecommander to see the export preview.

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.AddSeries(TPieSeries.Create(self));

  with (Chart1[0] as TPieSeries) do
  begin
    AddPie(10,'one');
    AddPie(19,'two');
    AddPie(20,'three');
    AddPie(18,'four');
    AddPie(16,'five');
    AddPie(25,'six');
  end;
end;

Please, could you send us a simple example project we can run "as-is" to reproduce the problem here?
You can either post your files at news://www.steema.net/steema.public.attachments newsgroup or at our upload page.

Posted: **Wed May 13, 2009 10:11 am**

I have uploaded a simple project which reproduce the problem...
A Form with a Chart having a PieSeries and a SpeedButton to clone the graph in another Chart to anaother Form.
ValueColors are modified!
--
Alain

Posted: **Wed May 13, 2009 11:33 am**

Hi

It seems that having pie series with OtherSlice.Style := poBelowPercent and you clone the series, the colors seem to be copied in different indexes.

Easy to reproduce with this:

Code: Select all

uses series;

var Series1: TPieSeries;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Series1 := TPieSeries.Create(self);
  Chart1.AddSeries(Series1);

  with Series1 do
  begin
    AddPie(30, 'Part1');
    AddPie(30, 'Part2');
    AddPie(20, 'Part3');
    AddPie(10, 'Part4');

    OtherSlice.Style := poBelowPercent;
    OtherSlice.Value := 20;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Series2: TPieSeries;
begin
  Series2 := TPieSEries(CloneChartSeries(Series1, Chart2));
  Chart2.AddSeries(Series2);

  with Series2 do
  begin
    OtherSlice.Style := Series1.OtherSlice.Style;
    OtherSlice.Value := Series1.OtherSlice.Value;
  end;
end;

I've added this to the wish list to be fixed in future releases (TV52014152)

Posted: **Wed May 13, 2009 1:16 pm**

Thank you for your help!
This code is ok:

Code: Select all

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(nil);
  try
    Series1.OtherSlice.Style := poNone;
    CloneChartSeries(Series1, Chart1).ParentChart := Form2.Chart1;
    Series1.OtherSlice.Style := poBelowPercent;
    TPieSeries(Form2.Chart1[0]).OtherSlice.Style := poBelowPercent;
    Form2.ShowModal;
  finally
    Form2.Release;
  end;
end;

Best regards,
--
Alain