TColorLineTool problem

[Leroy Casterline]

Hi Leroy,

sorry for delay. I'm not able to open the AVI files here. Could you please send them again directly to my mail account (pep@steema.com) ?

It's on the way...

-Leroy

[Pep]

Hi Leroy,

ok, I'll take a look and let you know something asap.

[Leroy Casterline]

Hi Leroy,

ok, I'll take a look and let you know something asap.

Hi Pep,

Have you had a chance to look at the file yet?

[Pep]

Hi Leroy,

I sent an email to you some days ago about this, maybe you've not received it. See my comments below :
-------------------------------------------------------------
well, I thought you refer to this but...
To make the mouse cursor to travel with the Line you can use similar code to the following :

procedure TForm1.ChartTool1DragLine(Sender: TColorLineTool);
begin
Application.ProcessMessages;
SetCursorPos(mouse.CursorPos.X, mouse.CursorPos.y);
if charttool1.Value < Chart1.Axes.Bottom.Minimum +10 then

Chart1.Axes.Bottom.SetMinMax(Chart1.Axes.Bottom.Minimum-10,Chart1.Axes.botto
m.Maximum-10)
else
if charttool1.Value > Chart1.Axes.Bottom.Maximum - 10 then

Chart1.Axes.Bottom.SetMinMax(Chart1.Axes.Bottom.Minimum+10,Chart1.Axes.botto
m.Maximum+10);
end;

[Leroy Casterline]

Sorry, my spam filter must have eaten your message. I've added steema.com to my white-list.

Thanks, I'll give your code a try.

-Leroy

[Leroy Casterline]

Hi Leroy,

I sent an email to you some days ago about this, maybe you've not received it. See my comments below :
-------------------------------------------------------------
well, I thought you refer to this but...
To make the mouse cursor to travel with the Line you can use similar code to the following :

procedure TForm1.ChartTool1DragLine(Sender: TColorLineTool);
begin
Application.ProcessMessages;
SetCursorPos(mouse.CursorPos.X, mouse.CursorPos.y);
if charttool1.Value < Chart1.Axes.Bottom.Minimum +10 then

Chart1.Axes.Bottom.SetMinMax(Chart1.Axes.Bottom.Minimum-10,Chart1.Axes.botto
m.Maximum-10)
else
if charttool1.Value > Chart1.Axes.Bottom.Maximum - 10 then

Chart1.Axes.Bottom.SetMinMax(Chart1.Axes.Bottom.Minimum+10,Chart1.Axes.botto
m.Maximum+10);
end;

I was pulled off this code and just am getting back to it. I've just tried your suggestion but no luck. I"m still having this problem. I wonder if this has anything to do with the acceleration problem message that I also posted today?

[Pep]

Hi Leroy,

see my other reply into the ActiveX forums.

[Leroy Casterline]

Hi Leroy,

see my other reply into the ActiveX forums.

Here's my reply in the ActiveX forum, copied here as this is really a VCL issue:

Hi Leroy,

you can simulate it using similar code to the following :

Code: Select all

Dim mdown As Boolean 
Dim xpos As Integer 

Private Sub Form_Load() 
With TChart1 
    .Aspect.View3D = False 
    .AddSeries scLine 
    .Series(0).FillSampleValues (1000) 
    .Page.MaxPointsPerPage = 10 
    .Zoom.Enable = False 
End With 
End Sub 

Private Sub TChart1_OnMouseDown(ByVal Button As TeeChart.EMouseButton, ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long) 
mdown = True 
xpos = X 
End Sub 

Private Sub TChart1_OnMouseMove(ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long) 
If mdown = True Then 
    If X > xpos Then 
     TChart1.Axis.Bottom.SetMinMax TChart1.Axis.Bottom.Minimum + 1, TChart1.Axis.Bottom.Maximum + 1 
    Else 
     TChart1.Axis.Bottom.SetMinMax TChart1.Axis.Bottom.Minimum - 1, TChart1.Axis.Bottom.Maximum - 1 
    End If 
End If 
End Sub 

Private Sub TChart1_OnMouseUp(ByVal Button As TeeChart.EMouseButton, ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long) 
mdown = False 
End Sub 

That doesn't work. In fact it makes things significantly worse. I don't know if this makes a difference, but I'm using the VCL version of TeeChart 7.

This is an important issue in my application because the user will often drag the chart with the mouse. Could you please escalate this issue so that it is fixed in the 7.01 update (and post a fixed version ASAP)?

[Pep]

Hi Leroy,

as I told you in the ActiveX forums we'll do all the efforts to solve it for the next maintenance release.

[Leroy Casterline]

Hi Leroy,

as I told you in the ActiveX forums we'll do all the efforts to solve it for the next maintenance release.

Do you know when that might be?

And do you have another work-around that I can try in the meantime?

[Pep]

Hi Leroy,

Do you know when that might be?

There's no date fixed. We'll notify you via mail or post a news on the web site.

And do you have another work-around that I can try in the meantime?

Not that I know of. Only the one I show in my last posts (using the mouse events).

[Leroy Casterline]

Hi Leroy,

as I told you in the ActiveX forums we'll do all the efforts to solve it for the next maintenance release.

Hi Pep,

I'm running 7.02 Pro and am still having the 'accelerating chart' problem when I drag it. I really need a fix for this.

[Leroy Casterline]

Hi Leroy,

as I told you in the ActiveX forums we'll do all the efforts to solve it for the next maintenance release.

Hi Pep,

I'm running 7.02 Pro and am still having the 'accelerating chart' problem when I drag it. I really need a fix for this.

Do you have any news on the fix for this problem?

[Leroy Casterline]

Marjan, have you had a chance to look at this?

[Leroy Casterline]

Please?