Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Displaying picture files
Message
 
 
To
26/04/2005 08:50:00
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01008054
Message ID:
01008439
Views:
19
David,

I did actually play around with it some last night.

I set LargeChange = 10, Max = 100 and used this code for each.
PROCEDURE oVScroll.Change

with thisform
   if ( .imgZoom.Height > .Height )
      .imgZoom.Top = - ( this.object.Value / 100 ) * ( .imgZoom.Height - .Height )
   endif
endwith
ENDPROC

PROCEDURE oHScroll.Change

with thisform
   if ( .imgZoom.Width > .Width )
      .imgZoom.Left = - ( this.object.Value / 100 ) * ( .imgZoom.Width - .Width )
   endif
endwith
ENDPROC
>Thanks. Do you have an example on how to use it?
df (was a 10 time MVP)

df FoxPro website
FoxPro Wiki site online, editable knowledgebase
Previous
Reply
Map
View

Click here to load this message in the networking platform