Archived Data Techniques Forums

I am using a full version ImageMan 7.0 on a Visual Foxpro 7.0 form. When I single click on one of the image control's scrolling arrow buttons, it keeps scrolling and wouldn't stop. If I scroll by dragging the scroll button, the button still moves with the mouse even when the mouse button is up.

Our client doesn't like this behavior!
Is there any way that I can change it, so it would only scroll as intended?

Anyone, please help!

Cullen

There is an open Change request, 211, concerning this issue (02/01/02, v7.01).
This issue is specific to the VFP environment; does not happen in VB or C.



Edited by - Gordonw on 02/05/2002 08:47:39

In Article #116, before the last update on the article on 1/30/02, Data-Tech, in bug fixes summary on ImageMax version 6.50 stated,
"- Fixed a bug which caused the scrollbars to 'stick' when the control was hosted in Visual FoxPro."
I tested in both Foxpro version 6.0, and 7.0, the same thing still occurs--the scrollbars 'stick'.
So I am in a dilemma here.

Does anybody have any idea why this is happening in ImageMan 7.0 again?
I am in a desprate need of help.

Cullen

It is a problem with the scrollbars in VFP (even in version 6). It is NOT a problem with ImageMan in itself. If you drop the Kodak Image controls on a form, you'll find the exact same problems.

We have gotten around the problem by specifying no scroll bars with the ImageMan control and dropping Scroll bar controls on the form. By linking the ImageSize with the Scroll bar limits, the image can be scrolled without the nasty side effects you talk about. The scroll bars do look a little different, but that is an improvement over the nasty "continuous scrolls" that happen by using the scrollbars on the actual image.


Cheryl A Bellucci

The problem does exist in VFP rather than in ImageMan control. I found the following article by search at VFP website at Microsoft.

http://support.microsoft.com/default.aspx?scid=kb;en-us;Q243255

Anybody who is interested can check it out.

Cullen

There is a work-around. I can vouch for the results of the following article. It does work! (Not quite as pretty as the scroll controls... but it does work)

http://www.foxite.com/scripts/foxisapi.dll/foxite.webengine.openarticle?Articleid=0000000015&Accountid=_0DX0J8DYX

Cheryl A Bellucci

<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
There is a work-around. I can vouch for the results of the following article. It does work! (Not quite as pretty as the scroll controls... but it does work)

http://www.foxite.com/scripts/foxisapi.dll/foxite.webengine.openarticle?Articleid=0000000015&Accountid=_0DX0J8DYX

Cheryl A Bellucci
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>
Cheryl appreciate the link. I'm trying to use a series of buttons to scroll around the image but I'm sort of lost as to what properties to modify in order to get the image to move up or down or left or right in the ImageMan control.
Thanks,
Chad Newman
Black Mountain Software

Okay, gotcha...

If you use the example as a tutorial on setting up the scroll bars, here's what you need to tie it in to ImageMan:

In the "initial" part (where you first display the image):

STORE 0 TO ThisForm.oleSlideVert.Value, ThisForm.oleSlideHorz.Value
ThisForm.oleSlideVert.Max = IIF(ThisForm.oleDocument.ImageHeight &gt; ThisForm.oleDocument.Height, ;
(ThisForm.oleDocument.ImageHeight - ThisForm.oleDocument.Height) + 1, ;
ThisForm.oleDocument.ImageHeight)
ThisForm.oleSlideHorz.Max = IIF(ThisForm.oleDocument.ImageWidth &gt; ThisForm.oleDocument.Width, ;
(ThisForm.oleDocument.ImageWidth - ThisForm.oleDocument.Width) + 1, ;
ThisForm.oleDocument.ImageWidth)

In the Scroll Method for the vertical scroll:
IF !EMPTY(ThisForm.oleDocument.Picture)
ThisForm.oleDocument.ScaleTop = This.Value
ThisForm.oleDocument.Refresh
ENDIF

In the Scroll Method for the Horizontal Scroll:
IF !EMPTY(ThisForm.oleDocument.Picture)
ThisForm.oleDocument.ScaleLeft = This.Value
ThisForm.oleDocument.Refresh
ENDIF

This works for me!

Cheryl A Bellucci