TCustomTeeGradient.DrawRadial

Alessandro · Post by **Alessandro** » Tue May 23, 2006 12:23 pm

Hi,
I have found a bug in TCustomTeeGradient.DrawRadial (v.7.07), line 6441,6442 in TeCanvas.pas:

Step:=Math.Min(255,Math.Max(SizeX,SizeY));
InvStep:=1/Step;

if you pass an empty TRect to the procedure Step = 0 and division by 0 is raised.

Thanks

Narcís · Post by **Narcís** » Tue May 23, 2006 12:54 pm

Hi Alessandro,

Could you please send us an example we can run "as-is" or the steps we should follow to reproduce the problem here?

You can post your files at news://www.steema.net/steema.public.attachments newsgroup.

Thanks in advance.

Alessandro · Post by **Alessandro** » Tue May 23, 2006 1:05 pm

Hi Narcis, in my project I return an empty rect in OnGetLegendRect event.
If the gradient style of the legend is radial the error occurs. You shoud test that the rect passed to the procedure is not empty. You can easily find the potential error in the source of TeCanvas.

Thanks.

Narcís · Post by **Narcís** » Tue May 23, 2006 1:33 pm

Hi Alessandro,

I'm unable to reproduce the problem here using this code:

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
begin
  Series1.FillSampleValues();
  Chart1.Legend.Gradient.Direction:=gdRadial;
end;

procedure TForm1.Chart1GetLegendRect(Sender: TCustomChart;
  var Rect: TRect);
begin
  Chart1.Title.Text[0]:=IntToStr(Rect.Left)+', '+
                        IntToStr(Rect.Top)+', '+
                        IntToStr(Rect.Right)+', '+
                        IntToStr(Rect.Bottom);
end;

Can you please modify it or send us an example so that we can reproduce the problem here?

Thanks in advance.