DrawLineTool - Pen with no effect

[Carl]

Put a chart, series1 and a DrawLineTool on the screen and connect the DrawLineTool with the series1.

Now you are able to draw a line with the mouse on the screen.

The line is black and has a width of 1

I found no way to change the color of the "PEN" and his width.

I can change the Pen parameters in the Edit - no effect, I can change the Pen parameters at runtime - no effect, I also tryed to put a
ButtonPen1.LinkPen(ChartTool1.Pen);
in the Code, but also no effect.

I use Delphi 2005 and have the lastest Version of TeeChart Pro v8.06

In your DemoTool "Tee Chart Pro 8" -> "All features" -> "Draw Line" - it works. I look at your source code but not found a reason.

Any idea?

[Yeray]

Hi Carl,

Yes, it seems that having a DrawLineTool in Delphi 2005 its pen.width can't be greater than 1. If you set it to, for example 3, the colorline pen goes to black and the width is still 1.
I've added it to the wish list to be fixed in future releases (TV52014558).

[Carl]

Today I installed the Version 8.07 of TeeChart VCL - Delphi 2005. Unfortunaty, the Bug is not fixed. I can not change the size, type or color of the pen in the drawLine. I need this function so urgent. Is it possible to give me a bugfix? My customers waiting for a solution. Thank you.

Please change the Version of the VCL in your homepage. There still standing 8.06 (September). Only if you go to download, you will find the 8.07 Version.

[Yeray]

Hi Carl,

I'm afraid that the bug ticked isn't closed, but when I wanted to test it with the latest TeeChart sources to see if changing other things in the component this problem has been solved or changed, but I found a problem. I tried to reproduce the bug with Delphi 2005 and TeeChart v8.06 or 8.07 but now it seems I can't.

Could you please tell me if the following code reproduces the problem for you?

Code: Select all

uses Series, TeeTools;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.View3D:=false;

  with TLineSeries.Create(self) do
  begin
    ParentChart:=Chart1;
    FillSampleValues();
  end;

  with Chart1.Tools.Add(TDrawLineTool) as TDrawLineTool do
  begin
    Pen.Color:=clRed;
    Pen.Width:=3;
  end;
end; 

Here I've ran this code in two different machines (a WinXp and a Win7) and the lines I draw are always Red and wide.
If with the code above, the lines you draw are Black and thin, could you please tell us what exact Delphi 2005 version are you using? Here it is Borland Developer Studio Architect 9.0.1935.22056 Update 3
It would be also helpful to know the Windows version you are using.

[Carl]

With your source-code, the line is still black and width = 1.

I use
Delphi 2005 - Borland Developer Studio 9.0.1761.24408
Windows XP Professional, Version 2002, (Build 2006: Service Pack 3)

Thank you

[Yeray]

Hi Carl,

The only difference I see between our systems is the updates in the IDE.
Could you please try applying the updates, if possible?