How to fill the circle area with a picture for TPolarChart?

[sripe]

The following codes are OK for TLineChart, but they do not work for TPolarChart.
if OpenDialog1.Execute then
begin
TheChart.BackImageInside := True;
TheChart.BackImage.LoadFromFile(OpenDialog1.FileName);
end;

For TPolarChart , how to fill THE CIRCLE AREA with a picture?
Best Regards

[Yeray]

Hello,

I've filed the issue to the public tracker:
http://bugs.teechart.net/show_bug.cgi?id=1417

As you'll see I've also found a workaround for it and I've also fixed it for the next maintenance release.

[sripe]

When assigning a BackImage or Gradient, how to make THE CIRCLE AREA transparent or not?

[Yeray]

Hello,

This seems to work fine for me:

Code: Select all

uses TeePolar;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  Chart1.View3D:=false;
  Chart1.Legend.Visible:=false;
  Chart1.Title.Visible:=false;

  Chart1.Gradient.StartColor:=RGB(240, 125, 20);
  Chart1.Gradient.MidColor:=RGB(150, 10, 240);
  Chart1.Gradient.EndColor:=RGB(200, 183, 225);

  for i:=0 to 1 do
    with Chart1.AddSeries(TPolarSeries) as TPolarSeries do
    begin
      FillSampleValues;
      Pointer.Visible:=false;
      Brush.Clear;
      Pen.Color:=Color;
      Pen.Width:=2;
      CircleBrush.Clear;
    end;
end;

Don't hesitate to let us know if you still find problems with it.

[sripe]

“Fill” is to fill Gradient or Picture.
“Inside” is to fill Gradient or Picture in THE CIRCLE AREA, Otherwise to fill THE CHART PANEL.

When “Inside” checked, it does not work as I expected. Would you like to test and correct it for me?
Best regards

[Yeray]

Hello,

When “Inside” checked, it does not work as I expected. Would you like to test and correct it for me?

I'm sorry, the workaround wasn't correct. The good one is to clear CircleBrush. Ie, in your test application:

Code: Select all

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    begin
      Chart1.BackImageInside := CheckBox8.Checked;

      (ChartListBox1.SelectedSeries as TPolarSeries).CircleBrush.Clear;
      Chart1.BackImage.LoadFromFile(OpenDialog1.FileName);
    end;
end;

[sripe]

Yes, it works to load a Picture. But, how to change the Gradient of THE CIRCLE AREA? Thanks.

[Yeray]

Hello,

In your FormCreate, after clearing the CircleBrush, try assigning it a bsSolid TBrushStyle:

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
//...
              CircleBrush.Clear;
              CircleBrush.Style:=bsSolid;
//...