Chart zoom not working good?

John K.
Bacau,

Jul 12, 2011
55 Posts

0  |  0  

Re: Chart zoom not working good?

Hi there! I've found the ZoomEnabled option for a chart control, but it's not very efficient (actually, it's not zooming like it should - when I left-click on my chart, the plotted points dissapear..). It's there another way to zoom on my chart control? Some sort of dividing the whole chart size into 4 or 9 regions, zooming one region to the whole chart size when it is clicked? Or, can I zoom on each axis? For example if I want the X axis to be zoomed an Y to remain unchanged, or vice versa. Has anyone met with this issue?

Regards,
Alex J.

Solution Available
Victor B.
Lake Forest, CA

Jul 12, 2011
93 Posts

1  |  0  

Re: Chart zoom not working good?

Hi Alex,

One way to create a more customized zoom is by manually manipulating the axes Min and Max properties.  You can use the chart's OnMouseDown Event to achieve this.  Here is an example:

Procedure cht1.OnMouseDown(nButton, nShift, x, y): Void Public    ! Occurs when the mouse button is pressed over the object.
--------------------------------------------------------------------------------
    nButton: Val Short
    nShift: Val Short
    x: Val Internal.APixel
    y: Val Internal.APixel
{
    if nButton=aMouseButtonLeft  ! Zoom in
        cht1.Axes("X-Axis").Min=cht1.Axes("X-Axis").Min/2
        cht1.Axes("Y-Axis").Min=cht1.Axes("Y-Axis").Min/2
    
        cht1.Axes("X-Axis").Max=cht1.Axes("X-Axis").Max/2
        cht1.Axes("Y-Axis").Max=cht1.Axes("Y-Axis").Max/2
    elseif nButton=aMouseButtonRight ! Zoom out
        cht1.Axes("X-Axis").Min=cht1.Axes("X-Axis").Min*2
        cht1.Axes("Y-Axis").Min=cht1.Axes("Y-Axis").Min*2
    
        cht1.Axes("X-Axis").Max=cht1.Axes("X-Axis").Max*2
        cht1.Axes("Y-Axis").Max=cht1.Axes("Y-Axis").Max*2
    endif
}

Regards,
Victor Brode



Please Note
You need to have a M@GIC account to participate in the Forums.
Not yet registered on our website? Click here to register today!

All content, information and opinions presented on the Marvin Test Solutions User Forums are those of the authors of the posts and messages and not Marvin Test Solutions'. All attachments and files are downloaded at your own risk. [Read More]